bluehawk 发表于 2007-6-12 13:56:00

cad的vba问题，谢谢。

<p>以下是我的画直线的代码，为什么说少个　　（　　　　　？？？？？？谢谢。</p><p>Public Sub line()<br/>Dim lineobj As AcadLine<br/>Dim spoint(0 To 2) As Double<br/>Dim epoint(0 To 2) As Double<br/>spoint(0) = 100: spoint(1) = 100: spoint(2) = 0<br/>epoint(0) = 200: epoint(1) = 200: epoint(2) = 0<br/>Set lineobj = ThisDrawing.ModelSpace.AddLine(spoint, epoint)<br/>End Sub</p>

dunkel 发表于 2007-6-12 15:27:00

line 是保留的吧, 换个子程名了
页: [1]
查看完整版本: cad的vba问题，谢谢。