【转帖】请问vb中如何加载cad
 

请问vb中如何加载cad
www.dimcax.com
请问vb中如何加载cad请问vb中如何加载cad
sub connectcad()
'连接到autocad
dim acadapp as object '定义一个对象
on error resume next
set acadapp = getobject(, "autocad.application")
if err then '如果没有一个autocad副本在运行
err.clear
set acadapp = createobject("autocad.application")
acadapp.visable = true '启动一个autocad副本并设为可见
if err then
msgbox err.description '如果失败，给出错误提示
exit sub
end if
end if
end sub
先知先觉 后知后觉 不知不觉