一个批量生成直线的问题

枫叶(fox)

代码如下：
Dim Line(2) As AcadLine
For i = 0 to 2
   point_temp1(0) = Zheng_GK(i): point_temp1(1) = 0: point_temp1(2) = 0
   point_temp2(0) = 0 : point_temp2(1) = Ce_GK(i): point_temp2(2) = 0
   Set line(i) = ThisDrawing.ModelSpace.AddLine(point_temp1, point_temp2)
   line(i).TrueColor = color
   line(i).TransformBy transmatrix(i)
   line(i).Update
Next i
我想根据Zheng_GK(i) 和Ce_GK(i)数组中的不同值绘制不同直线，并改变直线的属性，但是发现VBA中不允许定义AcadLine对象为数组，不知有什么更好的方法，不需要一条一条的画直线。谢谢！！！

I大仙I

2. Dim Line As AcadLine
   
3. For i = 0 to 2
   
4.     point_temp1(0) = Zheng_GK(i): point_temp1(1) = 0: point_temp1(2) = 0
   
5.     point_temp2(0) = 0 : point_temp2(1) = Ce_GK(i): point_temp2(2) = 0
   
6.     Set line = ThisDrawing.ModelSpace.AddLine(point_temp1, point_temp2)
   
7.     line.TrueColor = color
   
8.     line.TransformBy transmatrix(i)
   
9.     line.Update
   
10. Next i
    

Dim Line As AcadLine<br /> For i = 0 to 2<br />     point_temp1(0) = Zheng_GK(i): point_temp1(1) = 0: point_temp1(2) = 0<br />     point_temp2(0) = 0 : point_temp2(1) = Ce_GK(i): point_temp2(2) = 0<br />     Set line = ThisDrawing.ModelSpace.AddLine(point_temp1, point_temp2)<br />     line.TrueColor = color<br />     line.TransformBy transmatrix(i)<br />     line.Update<br /> Next i<br />

这样貌似就可以了吧

yanyanjun999

能把变量定义一下吗，大哥，比如Zheng_GK(i)