|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 5 y; P4 I5 C" w
- G7 C: a9 t6 K! _; s
各位大虾# P. I# B& S/ E. u1 Z
本人在用VB启动CAD时出现“类型不匹配”的现象,无法启动- Public ACADApp As AcadApplication On Error Resume Next
9 n1 e5 d0 u! C, ~1 z - Set ACADApp = GetObject(, "autocad.application")
3 r7 ~9 O: X ~: @9 _& E/ E0 r1 v - If Err Then
: I D' v" b# R4 J. x$ x2 H - Err.Clear" B0 c) x9 c) J. g: K
- Set ACADApp = CreateObject("autocad.application") r: I) s, B5 @! P6 i0 K( I: ?" T
- If Err Then6 [) r+ Y9 X& f" l X% E7 q
- MsgBox ("不能运行Autocad,请检查是否安装了autocad")
& f7 W6 ~8 k0 g - Exit Sub
/ x# Y& H0 Z; g* c9 m - End If
$ D+ N: m0 F" n- q* |& b - End If
+ h. ^+ m$ O. G3 ?# s - ACADApp.Visible = True
复制代码 请求帮助!$ G, Y1 S, {0 \7 B
# F4 p# c0 U* d( P/ m9 G) o
6 Q& A9 N0 {$ r+ g3 Q+ n' s
|
|