|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 % e, M8 G/ w* ]+ a8 n) ?, h* Z& I9 p
- |" f5 U& \8 N9 q
各位大虾- ]. X4 {1 h1 j2 \( A- @) O) Z
本人在用VB启动CAD时出现“类型不匹配”的现象,无法启动- Public ACADApp As AcadApplication On Error Resume Next
7 J. J9 D* D$ E# {7 i2 w3 L - Set ACADApp = GetObject(, "autocad.application")
% y" F+ `$ p. q - If Err Then0 g+ }% i' O p1 M8 g
- Err.Clear
1 _/ b) |) f1 b; L& e3 p3 B6 r5 G - Set ACADApp = CreateObject("autocad.application"), X& a8 k( U) O8 U6 b
- If Err Then
" z, T) V3 |. E1 h$ v8 H3 Z - MsgBox ("不能运行Autocad,请检查是否安装了autocad")
+ F N2 L$ X2 J* y! {+ t# | b - Exit Sub
2 d; A: x/ z0 ?2 G X) x N- M1 r) {/ @ - End If) g4 u- v# U8 J. w0 _" x
- End If# V5 l3 W5 k; O1 N
- ACADApp.Visible = True
复制代码 请求帮助!
* _! O" c; L/ n4 d5 n+ S1 K8 x9 _3 j; l4 p
8 l- q( {$ H2 Q
|
|