cad的vba问题，谢谢。

bluehawk

以下是我的画直线的代码，为什么说少个　　（　　　　　？？？？？？谢谢。

Public Sub line()
Dim lineobj As AcadLine
Dim spoint(0 To 2) As Double
Dim epoint(0 To 2) As Double
spoint(0) = 100: spoint(1) = 100: spoint(2) = 0
epoint(0) = 200: epoint(1) = 200: epoint(2) = 0
Set lineobj = ThisDrawing.ModelSpace.AddLine(spoint, epoint)
End Sub

dunkel

line 是保留的吧, 换个子程名了