请问用VB如何自动启动AutoCAD?
使用shell "ACAD全路径文件名"的格式可以异步启动ACAD,但不能控制ACAD。使用CreateObject("AutoCAD.Application")也可以启动,并可以通过后续的ActiveX对象模型来控制 ACAD。 又看见e大侠了 我也想知道,能否讲清楚一些! 可先在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
页:
[1]