ThisDrawing需要定义代码如下:Private Sub Command1_Click()dim AcadApp as acadapplicationset acadapp=getobject("autocad.application")dim Thisdrawing as acaddocumentset thisdrawing=acadapp.activedocumentThisDrawing.SendCommand "_Circle 150,100,0 50 "End Sub上面的代码没测试过，理解意思就可以了VB里和VBA代码是不一样的，需要额外声明相关变量
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024