|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 5 B+ R0 L3 i" v0 P$ h
% K% h( ]- G" F2 d7 Q1 p0 b0 g
各位大虾( m7 r8 c: ~; E, L" q7 i( o
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next' p7 M9 {7 d, x5 m
- Set ACADApp = GetObject(, "autocad.application")
/ R2 c g8 z7 c% n - If Err Then
2 f. e% m4 j2 ? - Err.Clear
( D9 v+ ^ \* Z$ Y3 h - Set ACADApp = CreateObject("autocad.application")+ S# `" \. m2 u( A w' B9 g% E
- If Err Then
: C/ D3 R6 }. [" W! A - MsgBox ("不能运行Autocad,请检查是否安装了autocad"): j4 {( L7 Y* ~7 @1 V2 H; N2 U
- Exit Sub
5 I/ l# x; d( w: Z! L* c# X - End If
: @+ P' v4 X: X% O, f - End If
1 T0 I( E0 s# O3 ~ b. V/ U$ n' r - ACADApp.Visible = True
0 m& _9 M' @" F' _0 M+ _, H
: E& c' ^# R, X |
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
