lyq511 发表于 2003-7-8 07:53:00

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

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

myfreemind 发表于 2003-7-9 00:03:00

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

lyq511 发表于 2003-7-9 23:58:00

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 发表于 2003-7-10 00:05:00

在createobject("这里写程序路径",autocad.application)
页: [1]
查看完整版本: 请教如何用vb6启动定制的CAD