QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
11天前
查看: 6693|回复: 15
收起左侧

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

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

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

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

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

使用VBA的解决方案

编程要点
$ l2 M, f9 `% k% P: z
: e0 d' o$ O! a2 d* V1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;' [9 _( T6 R, X
2、用Documents对象的Open方法逐个打开要修改的文档;% c  i& W* \1 v; m. v2 a" I! Y
3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);4 ]/ P6 h( Q, q! l
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;: Q9 `$ c3 E: J" y" `9 d
5、用属性对象的标记(TagString)查找符合给定条件的属性;
/ s7 j2 I1 p9 X" A% B# ?8 b6、修改属性对象的TextString为新值;
/ A2 C8 S8 o; w+ I  a0 R1 F) S7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;: ^( A3 ]! q" V. D, Z
8、用Close方法关闭文档;
% S; j& z& {* K( k6 k8 p  X2 N5 B) T$ B
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 | 显示全部楼层 来自: 中国辽宁营口
工具>宏>加载工程" ?9 S; o* O( t" N" d1 U8 P
工具>宏>宏>运行
发表于 2009-6-29 09:23:56 | 显示全部楼层 来自: 中国黑龙江大庆
谢谢版主,我是了一下,还不太会用,不过已经调出来了
发表于 2019-10-11 09:16:15 | 显示全部楼层 来自: 中国湖北
请问这是怎么解决. J' Q% I8 ?# O  ]% C( r. r
06028E82-0CE9-46e4-A0E4-217F5C64FC6F.png
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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