|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 - H# |% ^9 Z5 u7 h8 E
* f$ m) w+ p/ c+ A9 l) \- z+ M
各位大虾
6 L2 Y \+ {; Y- ~0 X0 `8 Q本人在用VB启动CAD时出现“类型不匹配”的现象,无法启动- Public ACADApp As AcadApplication On Error Resume Next0 z6 e0 N5 v- N/ x3 ^( R, ?
- Set ACADApp = GetObject(, "autocad.application")& O1 f$ N. Y+ n6 k, j8 e, ~' Y$ Y
- If Err Then+ O& Y9 f- u$ B8 v3 b
- Err.Clear
0 W) H% L3 R6 k A% ? - Set ACADApp = CreateObject("autocad.application")
! }5 d; |* {7 u# K0 | - If Err Then/ C# g0 U6 }1 f; G% s$ D
- MsgBox ("不能运行Autocad,请检查是否安装了autocad")
6 ?- M' Q* E6 Q8 ^# { - Exit Sub* o0 }/ G6 m& i& ?5 v
- End If/ l6 S, S; U- U
- End If
8 {3 }! q- g! U, }+ P' V - ACADApp.Visible = True
复制代码 请求帮助!# m4 R) C; ?& f: _! T: n5 e
0 x6 ^! I. Z4 y7 Y
: U% k3 x, L' ^. E* z) z
|
|