[求助],请问如何用vba求得多段线(包括直线和圆弧)的顶点坐标以及圆弧的凸度
具体情况是:打开一图形文件,在acad绘制一条多段线,然后提取该多段线的顶点坐标和圆弧段的凸度值,供进一步使用.[此贴子已经被作者于2002-9-8 22:18:21编辑过] 方法如下:首先利用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]