okwei1117 发表于 2011-7-5 12:51:00

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

我vb只引用了2008 type library
Private Sub Command1_Click()
ThisDrawing.SendCommand "_Circle 150,100,0 50 "
End Sub
出错，“要求对象”
请问如何定义 ThisDrawing.SendCommand
我只想用这个功能

xinghesnak 发表于 2011-7-8 08:35:00

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代码是不一样的，需要额外声明相关变量
页: [1]
查看完整版本: 新手问题，如何调用ThisDrawing.SendCommand