dengshu917
路人甲
路人甲
  • 注册日期2005-03-14
  • 发帖数1
  • QQ
  • 铜币115枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:2080回复:2

请教矢量裁切

楼主#
更多 发布于:2009-06-11 22:45
<P>请教大家一下,因项目需要,需实现如下功能。</P>
<P>地图引擎:ArcEngine,使用的语言为C# ,</P>
<P>完成的功能:动态地将SDE服务5个图层的数据 根据一个面裁剪到本机,这5个图层的总数据量为20万条,且包括点、线、面。请问如何实现?</P>
<P>谢谢</P>
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
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>
GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
heqjxiaoyao
路人甲
路人甲
  • 注册日期2003-07-31
  • 发帖数183
  • QQ
  • 铜币540枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2009-06-12 11:40
支持总统一个<img src="images/post/smile/dvbbs/em02.gif" />
从事RS与GIS 开发工作. 我的博客:随笔闲谈-http://rsgisman.bokee.com
举报 回复(0) 喜欢(0)     评分
游客

返回顶部