|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑
5 v! K6 s7 D; L8 _' @, e3 f( m+ @' \, F. {6 D# ]/ @; z
各位大虾3 j) p; p d% ~& Y& |* @2 n
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next' B1 D, Z% r( C6 _, G8 Q
- Set ACADApp = GetObject(, "autocad.application"). e6 o6 J( L* @; j- Y2 L, q
- If Err Then& m$ y. g, J1 i3 \6 v
- Err.Clear
. A, q" l% `9 a. l) `/ T7 P - Set ACADApp = CreateObject("autocad.application")
: K4 Z7 l# K# p5 n) o; ` - If Err Then( ]" g" C* u# [% g( \
- MsgBox ("不能运行Autocad,请检查是否安装了autocad")
* ]. r! E+ r2 n( r" `$ { - Exit Sub! `) h+ E4 a% T8 B
- End If, X1 @" ]7 w4 [8 e1 F W
- End If6 c/ }* r* m" |. M
- ACADApp.Visible = True
7 T# r: H) s+ M# }( m8 q; g
% ]) B, ?5 T8 i/ t# N |
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
