QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 6906|回复: 15
收起左侧

[已解决] 如何实现将一批CAD文件中某个特定的属性块中的某个属性值更改为特定值???

[复制链接]
发表于 2008-6-20 12:27:05 | 显示全部楼层 |阅读模式 来自: 中国辽宁鞍山

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

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

x
如何实现将一批CAD文件中某个特定的属性块中的某个属性值更改为特定值???(用CAD编程)+ Y8 p* x. t3 n6 X! U
特定值可能为某个固定的文本, 也可能是一个文本前缀加上一个流水号??
发表于 2008-6-21 13:24:40 | 显示全部楼层 来自: 中国山东枣庄
vb的程序,我会搞,和我联系吧
发表于 2008-6-23 20:49:31 | 显示全部楼层 来自: 中国辽宁本溪

使用VBA的解决方案

编程要点: L# r$ ^% v1 G0 |: H7 N" |, J
8 ^$ Z* O7 }  N9 z4 `  x
1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;
- J1 I0 l) O6 n$ Z" [2 c2、用Documents对象的Open方法逐个打开要修改的文档;
2 q+ z6 V% U7 ~9 [1 w* B* K3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);
$ A1 L6 v9 [7 `9 ~4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;1 C5 d4 z4 v: T1 T; K
5、用属性对象的标记(TagString)查找符合给定条件的属性;
" I! R: U; r/ x6、修改属性对象的TextString为新值;
& ~- j% ]& y: w# V7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;
" l0 h' h  s. X* F8 V0 w) g8、用Close方法关闭文档;' Q/ _. q: A) n4 n) S  m* S

- {1 C7 _9 U5 N$ O1 X, ^ PLXG.rar (14.69 KB, 下载次数: 123)

评分

参与人数 1三维币 +6 收起 理由
wsj249201 + 6 技术讨论

查看全部评分

发表于 2009-4-14 16:01:12 | 显示全部楼层 来自: 中国黑龙江大庆

回复 3# woaishuijia 的帖子

你好,你是了么,好用么
发表于 2009-4-17 08:08:19 | 显示全部楼层 来自: 中国黑龙江大庆
如何调出窗口一
发表于 2009-4-17 08:09:38 | 显示全部楼层 来自: 中国黑龙江大庆
可以告诉我么,谢谢
发表于 2009-4-20 08:18:42 | 显示全部楼层 来自: 中国黑龙江大庆
你好,我不知道怎么调出窗口一,您能告 诉我么?谢谢 :)
发表于 2009-4-20 08:23:38 | 显示全部楼层 来自: 中国黑龙江大庆
我很想学呀急急急急
发表于 2009-5-14 09:19:48 | 显示全部楼层 来自: 中国黑龙江大庆
没有人回答我的问题,楼主告诉我,怎么处理谢谢
 楼主| 发表于 2009-5-14 22:37:15 | 显示全部楼层 来自: 中国辽宁鞍山
3楼提供的文件是dvb格式的,如何执行?
发表于 2009-5-15 08:19:09 | 显示全部楼层 来自: 中国黑龙江大庆
你好,我也没弄明白
发表于 2009-5-15 08:20:52 | 显示全部楼层 来自: 中国黑龙江大庆
3#上来看到后希望给予答复谢谢
发表于 2009-6-2 09:59:51 | 显示全部楼层 来自: 中国黑龙江大庆
怎么没人告诉我呀
发表于 2009-6-2 12:52:33 | 显示全部楼层 来自: 中国辽宁营口
工具>宏>加载工程
# H* A. p3 g+ Z+ V7 [$ W工具>宏>宏>运行
发表于 2009-6-29 09:23:56 | 显示全部楼层 来自: 中国黑龙江大庆
谢谢版主,我是了一下,还不太会用,不过已经调出来了
发表于 2019-10-11 09:16:15 | 显示全部楼层 来自: 中国湖北
请问这是怎么解决
: U, h! `9 e" X! P0 c
06028E82-0CE9-46e4-A0E4-217F5C64FC6F.png
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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