多段线的长度用什么属性获得？

yicol · 发表于 2003-6-10 18:18:00

本帖最后由作者于 2003-6-10 18:18:56 编辑

多段线和spline的长度用什么属性获得？

zfbj · 发表于 2003-6-11 09:35:00

yicol · 发表于 2003-6-11 09:53:00

直线可以，圆弧用object.arclength
多段线和曲线就不知道了

zfbj · 发表于 2003-6-11 15:05:00

Sub GetLength()
'创建多段线
Dim plineObj As AcadPolyline
Dim points(0 To 14) As Double

'定义点
points(0) = 1: points(1) = 1: points(2) = 0
points(3) = 1: points(4) = 2: points(5) = 0
points(6) = 2: points(7) = 2: points(8) = 0
points(9) = 3: points(10) = 2: points(11) = 0
points(12) = 4: points(13) = 4: points(14) = 0

'在模型空间创建多段线
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll

MsgBox "多段线的长度是：" & plineObj.Length
End Sub

yicol · 发表于 2003-6-12 19:26:00

下面的代码：
Sub GetLength()
'创建多段线
Dim plineObj As AcadPolyline
Dim points(0 To 14) As Double

'定义点
points(0) = 1: points(1) = 1: points(2) = 0
points(3) = 1: points(4) = 2: points(5) = 0
points(6) = 2: points(7) = 2: points(8) = 0
points(9) = 3: points(10) = 2: points(11) = 0
points(12) = 4: points(13) = 4: points(14) = 0

'在模型空间创建多段线
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll

MsgBox "多段线的长度是：" & plineObj.Length '''此处出错
End Sub

mccad · 发表于 2003-6-12 20:30:00

详见：http://www.mjtd.com/object/acad2004/idh_length.htm

thankyou · 发表于 2003-6-13 13:35:00

zfbj的程序是对的，我刚运行过。

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

多段线的长度用什么属性获得？

Length

不行呀，

下面的代码：

运行出错，对象不支持该属性或方法

Length属性在2002及以前版本只支持直线，而2004版后增加支持了多段线

RE