|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 " B. k+ M6 w# C$ l$ n
! Z% D9 H) k9 o; @1 t5 I
各位大虾
5 }4 R7 t6 a( e: _% J: k本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next
4 n" T" K- b: w1 B2 U - Set ACADApp = GetObject(, "autocad.application")4 R- g, ~6 B8 `+ C2 @, \
- If Err Then
6 K8 S+ {8 |1 l. u( j" J* v- \ - Err.Clear
9 u0 Q) T( v9 e( G' z. B, R- \& B% } - Set ACADApp = CreateObject("autocad.application")& P+ _2 D' E% ]2 @! e; h7 e
- If Err Then/ t6 k2 P( k, J6 ?$ I* {
- MsgBox ("不能运行Autocad,请检查是否安装了autocad")
! e7 D- R% q5 U& W7 ~ - Exit Sub
: z: c& O$ j5 N4 Q* |8 G - End If
- E( y0 i6 W' s/ A - End If$ i- f" U0 H/ M9 q+ g* i
- ACADApp.Visible = True
' S; f. |- ^5 D, m8 q; l9 _+ O; p
; i' k6 w8 o3 E+ \+ G
|
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
