VB启动acad。

概述Public Sub StartAcad()     On Error Resume Next     Set AcadApp = GetObject(, "AutoCAD.Application")     If Err Then         Err.Clear         Set AcadApp = CreateObject("AutoCAD.Application")         Public Sub StartAcad() 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 Set AcadDoc = AcadApp.Activedocument Set MoSpace = AcadDoc.ModelSpace Set PaSpace = AcadDoc.PaperSpace Set AcadUtil = AcadDoc.Utility AcadApp.Visible = True End Sub 总结

以上是内存溢出为你收集整理的VB启动acad。全部内容，希望文章能够帮你解决VB启动acad。所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。