|
阅读:2080回复:2
请教矢量裁切
<P>请教大家一下,因项目需要,需实现如下功能。</P>
<P>地图引擎:ArcEngine,使用的语言为C# ,</P> <P>完成的功能:动态地将SDE服务5个图层的数据 根据一个面裁剪到本机,这5个图层的总数据量为20万条,且包括点、线、面。请问如何实现?</P> <P>谢谢</P> |
|
|
1楼#
发布于:2009-06-12 10:37
<PRE>Public Sub ClipFC()
MsgBox("entra") Dim filePath As String filePath = "C:\mxd\PGDB.mdb" Dim pWorkspace As IWorkspace Dim pFact As IWorkspaceFactory pFact = New ESRI.ArcGIS.DataSourcesGDB.AccessWorkspaceFactory pWorkspace = pFact.OpenFromFile(filePath, 0) Dim pFWorkspace As IFeatureWorkspace pFWorkspace = pWorkspace Dim pInfc As IFeatureClass Dim pClipfc As IFeatureClass pInfc = pFWorkspace.OpenFeatureClass(txtEntrada.Text) 'MsgBox(pFWorkspace.OpenFeatureDataset("PGDB.mdb")) pClipfc = pFWorkspace.OpenFeatureClass(txtClip.Text) Dim GP As Geoprocessor = New Geoprocessor GP.OverwriteOutput = True Dim clipTool As ESRI.ArcGIS.AnalysisTools.Clip = New ESRI.ArcGIS.AnalysisTools.Clip clipTool.in_features = pInfc clipTool.out_feature_class = "C:/mxd/PGDB.mdb/" ; txtSalida.Text clipTool.clip_features = pClipfc GP.Execute(clipTool, Nothing) MsgBox("salio") End Sub</PRE> |
|
|
|
2楼#
发布于:2009-06-12 11:40
支持总统一个<img src="images/post/smile/dvbbs/em02.gif" />
|
|
|