新手问题，如何调用ThisDrawing.SendCommand

okwei1117

我vb只引用了AutoCAD2008 type library

Private Sub Command1_Click()
ThisDrawing.SendCommand "_Circle 150,100,0 50 "
End Sub

出错，“要求对象”

请问如何定义 ThisDrawing.SendCommand
我只想用这个功能

xinghesnak

ThisDrawing需要定义
代码如下:
Private Sub Command1_Click()
dim AcadApp as acadapplication
set acadapp=getobject("autocad.application")
dim Thisdrawing as acaddocument
set thisdrawing=acadapp.activedocument
ThisDrawing.SendCommand "_Circle 150,100,0 50 "
End Sub

上面的代码没测试过，理解意思就可以了
VB里和VBA代码是不一样的，需要额外声明相关变量