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

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

本帖最后由作者于 2003-5-11 13:24:10 编辑

具体情况是:打开一图形文件,在acad绘制一条多段线,然后提取该多段线的顶点坐标和圆弧段的凸度值,供进一步使用.

[此贴子已经被作者于2002-9-8 22:18:21编辑过]

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

提示: 作者被禁止或删除内容自动屏蔽

housm · 发表于 2002-9-15 22:38: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)

账号		自动登录	找回密码
密码			注册

dwjnet dwjnet 当前离线积分 963 明经币个注册时间 2002-1-4 在线时间小时威望金钱个贡献激情	发表于 2002-9-14 01:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

非常感谢dwjnet,我的问题完全解决了!