QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 6692|回复: 15
收起左侧

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

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

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

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

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

使用VBA的解决方案

编程要点( w+ _# b; j7 [) B# B7 q* C4 ~

' N4 ?! W( `8 z) {# @1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;8 _/ _. t" e8 M# \9 n* ?3 g" l  _
2、用Documents对象的Open方法逐个打开要修改的文档;! V1 a, h* ^1 ?: t& }4 H
3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);
, t, p; e/ t7 z0 D. Z4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;+ i" I, Y( R! K
5、用属性对象的标记(TagString)查找符合给定条件的属性;8 f# v  x% T9 `6 G( w
6、修改属性对象的TextString为新值;7 U. I! n3 U7 e; [: c
7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;
2 [1 ]6 i8 [! s  I+ a8、用Close方法关闭文档;7 O& C" p* p7 ^4 ]7 Y9 q
! c& G2 H, _( Y2 z  N8 G
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 | 显示全部楼层 来自: 中国辽宁营口
工具>宏>加载工程
* U0 s6 @- N1 R+ D6 X& q# B; n) _工具>宏>宏>运行
发表于 2009-6-29 09:23:56 | 显示全部楼层 来自: 中国黑龙江大庆
谢谢版主,我是了一下,还不太会用,不过已经调出来了
发表于 2019-10-11 09:16:15 | 显示全部楼层 来自: 中国湖北
请问这是怎么解决4 T9 p5 O( ]6 `: U, H/ c
06028E82-0CE9-46e4-A0E4-217F5C64FC6F.png
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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