|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑
/ I! m& U4 G3 t7 e5 N3 N/ {
7 M! R! \: R2 C' e/ [7 s各位大虾9 | W( L$ P; @( Q: }; O
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动- Public ACADApp As AcadApplication On Error Resume Next% J: J8 Z( t) w7 x$ ^' ^
- Set ACADApp = GetObject(, "autocad.application")) s# ]) h+ Z7 \ J6 s% U
- If Err Then; K. h# \1 c& u, l8 V4 m
- Err.Clear
2 ^1 H: `% U8 ~ - Set ACADApp = CreateObject("autocad.application")
/ A$ r$ F- S, [5 a9 J - If Err Then
$ x6 f# K, |" \( \% E3 ^ - MsgBox ("不能运行Autocad,请检查是否安装了autocad")
, |0 e$ m$ l/ J - Exit Sub: W% j e% i& ~) |/ y$ C1 g
- End If. u) x6 K. {; L, z$ v
- End If
0 ?8 x3 y1 h) A5 ], _ - ACADApp.Visible = True
/ `, I6 e, e+ v1 F! E- x. z7 C
& v- g$ g/ _4 {, g* X |
|
发表于 2013-5-23 09:51:37
楼主
发表于 2013-5-23 15:54:53
