找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 617|回复: 12

[公告]:使用CAD2005以后VBEXE绘图程序需要重新编译

[复制链接]
发表于 2004-4-3 10:49:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

×
从CAD2002转向CAD2005以后,原来编译为EXE文件的绘图程序,会出现类型不匹配的提示,程序无法正常运行。这时需要在VB编程器里面更改“引用”的类型库,将原来引用的CAD2000类型库改为R2005的类型库重新编译一次即可正常使用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-4-4 14:03:38 | 显示全部楼层
原来是这样,我还以为代码也要改变呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2004-4-5 19:56:24 | 显示全部楼层
不引用类型库,其中声明的对象采用后期绑定,就可以实现通用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-4-5 19:59:19 | 显示全部楼层
最初由 efan2000 发布
[B]不引用类型库,其中声明的对象采用后期绑定,就可以实现通用。 [/B]

这倒是最好的办法,可是不清楚该如何绑定。如果不是很复杂的话请斑竹给介绍一下好吗。谢谢了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2004-4-7 20:55:23 | 显示全部楼层
其实R14的开发就是采用后期绑定的方式,那时所有的对象只能声明为Object,这种不能一开始就确定对象类型的就是后后期绑定。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-4-22 13:04:57 | 显示全部楼层
Dim acadApp as object
Dim acadDoc as Object
Set acadApp = GetObject(, "ACAD.Application")
Set acadDoc = acadApp.ActiveDocument
acadDoc.textStyles.Add "字体样式"
这个就是后期绑定,不好的是没有智能提示了,所以你可以先用前期绑定写程序,编译的时候再改后期绑定好了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-4-22 13:28:31 | 显示全部楼层
最初由 r33d 发布
[B]Dim acadApp as object
Dim acadDoc as Object
Set acadApp = GetObject(, "ACAD.Application")
Set acadDoc = acadApp.ActiveDocument
acadDoc.textStyles.Add "字体样式"
这个就是后期绑定,不好的是没有智能... [/B]


谢谢详细的解答,改一改免得CAD更新以后又要重编译。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-4-22 18:16:13 | 显示全部楼层
是这样,不过我喜欢智能提示,没有这个写程序很麻烦!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-4-26 19:53:50 | 显示全部楼层
最初由 efan2000 发布
[B]其实R14的开发就是采用后期绑定的方式,那时所有的对象只能声明为Object,这种不能一开始就确定对象类型的就是后后期绑定。 [/B]


请问efan班竹:
后期绑定就不要“引用”类型库了么?
如果不引用,会出现acWorld, acUCS等“变量未定义”错误
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2004-4-26 21:11:45 | 显示全部楼层
这是常量,使用对应的数值来代替,比如acWorld的定义是Const acWorld = 0,这时就用0而不用acWorld。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-4-26 22:43:47 | 显示全部楼层
谢谢efan2000!

我还有疑问,你是怎么知道acWorld = 0的呢?cad开发帮助里面好像找不到,
后来用google搜到一网页,是烂码,不过有一段cad常量值在里面,不知对不对?

...
acWorld = 0; acUCS = 1; acDisplayDCS = 2; acPaperSpaceDCS = 3; acEnglish = 0; acMetric = 1;
...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2004-4-27 09:24:07 | 显示全部楼层
单击对象浏览器按钮,在弹出的界面中选择库为AutoCAD,搜索文字输入acworld,就会找到关于这一个常量的定义了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-5-1 17:30:24 | 显示全部楼层
的确没有提示很不方便!重新编译也不是很麻烦吧?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-23 05:51 , Processed in 0.435830 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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