|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 % J n( N; t6 B* K! C
: ~% t E( b {
各位大虾
' x2 _( Q0 \' w& B. r本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next
$ |9 W! ` c% J7 s4 T - Set ACADApp = GetObject(, "autocad.application")
' R* F; x6 q. s! p% u. m - If Err Then
8 x( Q8 h+ F9 M3 W - Err.Clear5 Z- Z0 `( m$ i
- Set ACADApp = CreateObject("autocad.application")
; A! F- f& o1 I+ _, L$ Y( C - If Err Then
6 K' J9 @# A7 [* F" i - MsgBox ("不能运行Autocad,请检查是否安装了autocad")
$ d. u, c' g2 ^* S9 H! S - Exit Sub: ~% m7 I7 {% C: h" R! _$ U. {5 y
- End If
6 G c/ |( `7 U3 u5 h" \ - End If, J. D7 K3 W1 R" v, ]2 [
- ACADApp.Visible = True
' b5 S2 u" C6 M: }" f
& n: O$ G" w8 J! E6 d
|
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
