sub Main() Public acadApp As Object 'AutoCAD
的application对象 Public acadDoc As Object 'AutoCAD
document对象 Public moSpace As Object 'Modelspace
模型空间对象集合 Public paSpace As Object 'PaperSace 图纸空间对象集合 On Error
Resume Next Set acadApp = GetObject(," AutoCAD.Application") If
Err Then Err.Clear Set acadApp =
CreateObject("AutoCAD.Application") If Err Then Msgbox
Err.description Exit Sub End If End if End
sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
