请教如何用vb6启动定制的CAD

lyq511

请教如何用vb6启动定制的CAD
我用的是"D:\Program Files\Mechanical\acad.exe"  /p "<<XTMCAD>>"
vb对应语句如何写呀我用r14

myfreemind

dim acadobj As Object 'acad对象
  Set acadapp = CreateObject("autocad.application")

lyq511

On Error Resume Next
Set acadapp = GetObject(, "autocad.application") '若AutoCad已启动 , 则直接得到
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application") '若AutoCad未启动，则运行它
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
acadapp.Visible = True '使AutoCad可见
Set acaddoc = acadapp.ActiveDocument '设acaddoc为当前图形文件
Set mospace = acaddoc.ModelSpace '设mospace为当前图形
acadapp.Top = 0 '设置AutoCad窗口的位置
acadapp.Left = 0
我用的是以上语句，针对特定的开发环境不行，我想启动清华的XT6.0，请问有办法吗

myfreemind

在createobject("这里写程序路径",autocad.application)