阅读:3246回复:9
新人来请大侠们帮助,arcmap中如何用一条线来切割一个面?
大侠们可要帮小弟一下啊。。
|
|
|
1楼#
发布于:2005-08-18 20:32
用编辑工具里的split工具
|
|
|
2楼#
发布于:2005-08-18 21:42
<P>多谢老大对新人关怀倍至,小弟要多多努力,争取以后也可以帮助别人.</P>
|
|
3楼#
发布于:2005-08-19 15:53
<P>用cut polygon也可以</P>
|
|
4楼#
发布于:2005-08-22 20:44
cut polygon,功能菜在哪能找到啊.
|
|
|
5楼#
发布于:2005-08-25 14:39
<P>editor/task下有</P>
|
|
6楼#
发布于:2005-08-25 20:29
收到!!多谢...我所说的线割面,是两个ship文件,通过叠加运算,产生新的ship.就是split. 可是我这个功能用不了.是不是要装workstation才可以啊!
|
|
|
7楼#
发布于:2005-08-26 09:22
<P>你在arctoolbox里用split工具就可以是完成不了你的任务的</P>
<P>只能打断线,你可以在arcmap里编程完成</P> [此贴子已经被作者于2005-8-26 9:26:48编辑过]
|
|
|
8楼#
发布于:2005-08-26 09:27
<P>代码如下,在帮助里找的</P><PRE><P>The following VBA code fragment illustrates how to implement the appropriate calling behavior on multiple features within a set..</P><CODE><PRE> </PRE><PRE>‘Assume pSet (ISet) and pMoveVector (ILine) already exist.
Dim pUnknown As IUnknown, pFeatureEdit As IFeatureEdit Set pUnknown = pSet.Next</PRE><PRE>Do While pUnknown Is Not Nothing Set pFeatureEdit = pUnknown pFeatureEdit.MoveSet pSet, pMoveVector Set pUnknown = pSet.Next Loop</CODE> </PRE><P>The following code is an example of one way you could split a selected polygon features by a polyline.<CODE></P><PRE> </PRE><PRE>Public Sub SplitFeatures(pSelectionSet As ISelectionSet, pPolyLine As IPolyline)</PRE><PRE>‘ open a feature cursor on the selected features that ‘ intersect the splitting geometry Dim pFeatCursor As IFeatureCursor Dim pSpatialFilter As ISpatialFilter Set pSpatialFilter = New SpatialFilter Set pSpatialFilter.Geometry = pPolyLine pSelectionSet.Search pSpatialFilter, True, pFeatCursor</PRE><PRE>‘ Clean up the splitting geometry ‘ This is necessary because, for polygons, IFeatureEdit::Split ‘ relies internally on ITopologicalOperator::Cut Dim pTopoOpo As ITopologicalOperator Set pTopoOpo = pPolyLine pTopoOpo.Simplify</PRE><PRE>‘ Loop through the features and split them Dim pFeature As IFeature Set pFeature = pFeatCursor.NextFeature</PRE><PRE>Do Until pFeature Is Nothing Dim pFeatureEdit As IFeatureEdit Set pFeatureEdit = pFeature pFeatureEdit.Split pPolyLine Set pFeature = pFeatCursor.NextFeature Loop</PRE><PRE>End Sub</PRE></CODE></PRE> |
|
|
9楼#
发布于:2005-08-29 08:33
哇!老大你真是太热心了,多谢,多谢!!小弟离编程有段距离,但是看到你们用起编程来巨牛无比,好是羡慕,小弟定会潜心研究的。
[此贴子已经被作者于2005-8-29 8:34:10编辑过]
|
|
|