Dim startpoint(2) As Double
Dim endpoint(2) As Double
Dim lineobj As Autodesk.AutoCAD.
//1
startpoint(0) = 0 : startpoint(1) = 1 : startpoint(2) = 0
endpoint(0) = 1 : endpoint(1) = 2 : endpoint(2) = 3
lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(startpoint, endpoint)
//2
我这个程序就是想画一条直线,给了两个点的 三维坐标。引用了autocad2006 的库文件。
不知道是不是 1 句和2 句不对应啊
请高手帮我看看,指点一下。谢谢!