[求助],请问如何用vba求得多段线(包括直线和圆弧)的顶点坐标以及圆弧的凸度
本帖最后由 作者 于 2003-5-11 13:24:10 编辑具体情况是:打开一图形文件,在acad绘制一条多段线,然后提取该多段线的顶点坐标和圆弧段的凸度值,供进一步使用.
[此贴子已经被作者于2002-9-8 22:18:21编辑过]
非常感谢dwjnet,我的问题完全解决了!
方法如下:首先利用plineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)提取当前图形的最后一个多段线对象,然后
'求顶点坐标
Dim retCoord As Variant
retCoord = plineObj.Coordinates
' Find the bulge of the 3rd segment
Dim currentBulge As Double
currentBulge = plineObj.GetBulge(3)
页:
[1]