QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2023|回复: 5
收起左侧

[已解决] VB启动CAD有问题

[复制链接]
发表于 2013-5-23 09:51:37 | 显示全部楼层 |阅读模式 来自: 中国浙江宁波

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 woaishuijia 于 2013-5-23 15:52 编辑 5 y; P4 I5 C" w
- G7 C: a9 t6 K! _; s
各位大虾# P. I# B& S/ E. u1 Z
本人在用VB启动CAD时出现“类型不匹配”的现象,无法启动
  1. Public ACADApp As AcadApplication On Error Resume Next
    9 n1 e5 d0 u! C, ~1 z
  2. Set ACADApp = GetObject(, "autocad.application")
    3 r7 ~9 O: X  ~: @9 _& E/ E0 r1 v
  3. If Err Then
    : I  D' v" b# R4 J. x$ x2 H
  4. Err.Clear" B0 c) x9 c) J. g: K
  5. Set ACADApp = CreateObject("autocad.application")  r: I) s, B5 @! P6 i0 K( I: ?" T
  6. If Err Then6 [) r+ Y9 X& f" l  X% E7 q
  7. MsgBox ("不能运行Autocad,请检查是否安装了autocad")
    & f7 W6 ~8 k0 g
  8. Exit Sub
    / x# Y& H0 Z; g* c9 m
  9. End If
    $ D+ N: m0 F" n- q* |& b
  10. End If
    + h. ^+ m$ O. G3 ?# s
  11. ACADApp.Visible = True
复制代码
请求帮助!$ G, Y1 S, {0 \7 B
# F4 p# c0 U* d( P/ m9 G) o
6 Q& A9 N0 {$ r+ g3 Q+ n' s
 楼主| 发表于 2013-5-23 09:53:44 | 显示全部楼层 来自: 中国浙江宁波
是不是本人装了两个版本的CAD的原因啊2004\2007
发表于 2013-5-23 15:54:53 | 显示全部楼层 来自: 中国辽宁营口
你引用AutoCAD类库了吗?
 楼主| 发表于 2013-5-26 14:54:08 | 显示全部楼层 来自: 中国浙江宁波
引用了,在只装2004时可以调用,但在两个CAD系统下就不能用了,
发表于 2013-5-27 15:11:18 | 显示全部楼层 来自: 中国辽宁营口
在 autocad.application 后面加上版本号,例如
  1. CreateObject("autocad.application.16")
复制代码
应该是打开2004的.或者
  1. CreateObject("autocad.application.16.0")
复制代码
,我手头没有这两个版本,也说不准.反正2004是R16.0版本,2007是R17.0版本,打开2007应该是
  1. CreateObject("autocad.application.17")
复制代码
或者
  1. CreateObject("autocad.application.17.0")
复制代码
,前提是和引用的类库一致
 楼主| 发表于 2013-5-28 12:23:23 | 显示全部楼层 来自: 中国浙江宁波
搞定了,多谢了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表