请教访问CAD的问题！（基本）

wang_hui

请各位帮忙看一下这个为什么不能运行： Sub sn()
ThisDrawing.SendCommand "_line 0,100 319,100 "
Dim i As Single
Dim x As Single
Dim y As Single
pi = 3.1415926
For i = 0 To 2 * pi Step 0.1
x = 50 * i
y = 100 + 75 * Sin(i)
ThisDrawing.SendCommand "_point x,y "
Next i
End Sub 运行老提示，画的点无较，我是刚刚用VBA弄CAD以前老用LISP，请会的告诉一下

yulijin608

Sub sn()
ThisDrawing.SendCommand "_line 0,100 319,100 "
Dim i As Single
Dim x As Single
Dim y As Single
pi = 3.1415926
For i = 0 To 2 * pi Step 0.1
x = 50 * i
y = 100 + 75 * Sin(i)
ThisDrawing.SendCommand "_point " & x & "," & y & " "
Next i
End Sub

雪山飞狐_lzh

VBA里尽量不用SendCommand，用AddXXX方法

wang_hui

哦，ADDXXX又是怎么个用法，我对这些一片空白，我呆的地方还卖不到这方面的书！！！望大家不吝指教！

yulijin608

画线可以用Thisdrawing.Modelspace.AddLine 画点可以用Thisdrawing.Modelspace.AddPoiint 建议楼主多看看对象模型http://www.mjtd.com/object/acad2004/.

mccad

多看看书，或多看看帮助