请问用VB如何自动启动AutoCAD？

efan2000 · 发表于 2003-8-17 12:25:00

使用shell "ACAD全路径文件名"的格式可以异步启动ACAD，但不能控制ACAD。
使用CreateObject("AutoCAD.Application")也可以启动，并可以通过后续的ActiveX对象模型来控制 ACAD。

zzlzz · 发表于 2003-8-20 13:20:00

又看见e大侠了

neteasy · 发表于 2003-8-23 21:35:00

我也想知道，能否讲清楚一些！

china-hz · 发表于 2003-8-24 09:32:00

可先在VB中引用CAD，然后用如下语句解决：
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
      Err.Clear
      Set AcadApp = CreateObject("AutoCAD.Application")
      If Err Then
         MsgBox "不能运行AutoCAD 2002，请检查安装是否正确。" & vbCrLf & "可先启动AutoCAD2002，再试本程序。", vbInformation, "提示"
         Set AcadApp = Nothing
         End
      End If
End If
AcadApp.Visible = True

账号		自动登录	找回密码
密码			注册