扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
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 |
在存储及绘图模板使用如下:
acadDoc.activedocument.SaveAs(′d:\capp\fractal.dwg′) '执行ActiveDocument对象的SaveAs方法 exportFile := ′d:\capp\fractal′ |
将AutoCAD应用程序关闭使用Quit方法:acadApp.Quit. :Set acadApp =Nothing
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。