[求助],请问如何用vba求得多段线(包括直线和圆弧)的顶点坐标以及圆弧的凸度

housm · 发表于 2003-5-11 13:24:00

具体情况是:打开一图形文件,在acad绘制一条多段线,然后提取该多段线的顶点坐标和圆弧段的凸度值,供进一步使用.
[此贴子已经被作者于2002-9-8 22:18:21编辑过]

dwjnet · 发表于 2002-9-14 01:00:00

方法如下:首先利用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)

[求助],请问如何用vba求得多段线(包括直线和圆弧)的顶点坐标以及圆弧的凸度

发表回复

精选推荐