|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 " p q' v0 |$ N# e
5 f5 ~% m5 P" f. B
各位大虾
; y' @9 W. X2 v1 j本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next. f2 |0 [5 B( \4 e0 z& y
- Set ACADApp = GetObject(, "autocad.application")! S7 a* v, v5 V
- If Err Then( ~! J6 o0 K1 ~% N9 |7 Y+ x
- Err.Clear+ A d& U+ k _5 _/ p ~/ C3 `$ a
- Set ACADApp = CreateObject("autocad.application")! {, k1 W' \- k- R/ g3 J
- If Err Then* r( ?$ {8 Y" R7 W8 N* e" L$ V
- MsgBox ("不能运行Autocad,请检查是否安装了autocad")3 W J$ }' q1 \# e0 P
- Exit Sub- }: Z" E, o2 m$ o8 Y! U! B
- End If1 E2 L% D- q2 k7 B
- End If
, e% r# ~7 t# F. d+ M) p& B3 V8 B - ACADApp.Visible = True
# ~7 _: |& ?% ] G) ?
" C7 U9 G6 Y* _ n. O. f- O. p1 {& B2 R$ ~9 o+ P( A
|
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
