代码生成多个进程

sunny_8848 · 发表于 2021-1-24 10:03:00

请教大家，下面的代码怎么会生成多个CAD进程，本意是想在一个CAD里面打开模板进行绘图，GetObject(".Application.18")语句没有起作用。
On Error Resume Next
   Dim acadApp As Object
      Set acadApp = GetObject("AutoCAD.Application.18")
      If Err Then
         Err.Clear
         GoTo 800
800       Set acadApp = CreateObject("AutoCAD.Application.18")
         If Err Then
            Err.Clear
            GoTo 800
         End If
      End If
Dim acadDoc As Object
Set acadDoc = acadApp.ActiveDocument
acadApp.Visible = True
acadDoc.Exit
acadApp.Application.Documents("Drawing1.dwg").Close
Dim templateFileName As String
      templateFileName = "D:\Program Files\DT绘图模板.dwt"
acadApp.Application.Documents.Add templateFileName
Set acadDoc = acadApp.ActiveDocument
acadApp.Visible = True