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

wang_hui · 发表于 2005-1-19 15:43:00

请各位帮忙看一下这个为什么不能运行：
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 · 发表于 2005-1-19 18:36:00

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