Question

中望cad的vba编程问题，下面一段程序在AUTOCAD里可以运行，但在中望2009专业版里不行

请看这一段程序
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 100 '开始循环
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
End Sub
上面的程序只有一句不行，是 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆；
在中望里提示object required。公司里是用中望的，希望高手帮忙解决，万分感谢

Answer 1

ThisDrawing改成 ThisDocument
Acad改成ZWCAD ，如AcadLWPolyline改成zwcadLWPolyline
再重生成

Answer 2

老哥，你的i忘了定义了，dim i asinteger就好了
不过我很好奇，这个cad里面编程在哪里学的呀，求教程

Answer 3

我也想学vba啊。

Answer 4

这是对象不正确

追问

解决方法是什么呢？谢谢

追答

我没用过什么中望，不知道是什么，但你的提示就是对象问题

Answer 5

太高深了，我看不懂哦。