[求助]修改多段线高程的问题

怪石斋主人

我在CAD应用版中求助修改无数多段线高程的问题,没得到满意答复,现我用VBA解决,有点问题,现求助,代码如下:
Sub xx()
Dim returnobj As AcadEntity
Dim basepnt As Variant
Dim pl1 As AcadLWPolyline
Dim pt1(0 To 9998) As Double
ActiveDocument.Utility.GetEntity returnobj, basepnt, "选择多段线:"
gc = InputBox("修改后高程:", gc)
retCoord = returnobj.Coordinates
For Number = LBound(retCoord) To UBound(retCoord) + 2 - 2 Step 2
pt1(k) = retCoord(Number)
pt1(k + 1) = retCoord(Number + 1)
pt1(k + 2) = gc
k = k + 3
Next
returnobj.Delete
Close #1
10 pt1(k) = pt1(k - 3)
pt1(k + 1) = pt1(k - 2)
pt1(k + 2) = gc
k = k + 3
If k < 9999 Then GoTo 10
Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt1)
End Sub
但运行总提示"数组中元素太少或总元素数目不是3的倍数"
把lwpolyline换为polyline可运行,但多段线的高程仍为0,请问我要怎样修改

zhang007

挺简单的一个事，先CTRL+A,再打开对象特性管理器，选择多段线，再在下面选择高程（/Z坐标？记不清了），改为指定的高程，几秒种。。

shirazbj

10 pt1(k) = pt1(k - 3)
pt1(k + 1) = pt1(k - 2)
pt1(k + 2) = gc
k = k + 3
If k < 9999 Then GoTo 10

假设k=9998,满足<9999的条件，跳转到语句10。

再+1，+2当然大于你定义的数组上界了。

 

 

怪石斋主人

谢谢,我想复杂了,主要是原来用对象特性管理器修改时误解为各个顶点修改,但三楼的老大说法有误,K不可能等于9998,而从9996直接跳到9999,所以假设应没有问题

catonline

我没记错的话,修改高程是修改polyline的Elevation属性.而不是Coordinates.