VB启动acad。

发布时间：2020-12-17 08:05:57 所属栏目：百科来源：网络整理

导读：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 = Acad

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!