三维网
标题:
如何实现将一批CAD文件中某个特定的属性块中的某个属性值更改为特定值???
[打印本页]
作者:
maoyangmy
时间:
2008-6-20 12:27
标题:
如何实现将一批CAD文件中某个特定的属性块中的某个属性值更改为特定值???
如何实现将一批CAD文件中某个特定的属性块中的某个属性值更改为特定值???(用CAD编程)
: r2 h) J( [/ N/ `1 Y9 e0 L
特定值可能为某个固定的文本, 也可能是一个文本前缀加上一个流水号??
作者:
ps122hb
时间:
2008-6-21 13:24
vb的程序，我会搞，和我联系吧
作者:
woaishuijia
时间:
2008-6-23 20:49
标题:
使用VBA的解决方案
编程要点
: H4 z% t, G5 ?, f
3 {5 f/ u/ g: {% s9 P- s5 l7 b. `
1、插入用户窗体，在窗体上放置公共对话框（CommonDialog控件），并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型；Flags = 512以一次获得多个文件路径；
- l+ K C8 @0 D
2、用Documents对象的Open方法逐个打开要修改的文档；
9 l* U. q; w$ T& ~ b6 U- h
3、遍历文档（Document对象）的所有图元，用ObjectName属性（＝"AcDbBlockReference"）寻找符合给定条件的“块参照”（AcadBlockReference对象）；
' n% [' r& P" P* F' R4 U
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集；
' {- e9 S' n% E: ^
5、用属性对象的标记（TagString）查找符合给定条件的属性；
; i7 \% M/ r0 q- Q. [* C1 o; w+ |
6、修改属性对象的TextString为新值；
6 g* D R1 B, q6 B
7、用文档的ReadOnly属性判断文档是否用只读方式打开，对只读文档用SaveAs方法保存；其它用Save方法保存；
( A4 G3 z7 K6 q* _7 |5 j
8、用Close方法关闭文档；
1 P" g) h+ {- C
3 H! s5 s$ p) g( @/ [
[attach]880294[/attach]
( }; Y, q) _ T" A
, N, x+ y+ y0 [/ C( d/ q
附件是用上述方法编制的程序，可以打开同一目录下的多个DWG文档，修改指定的块参照的指定的属性值，保存修改结果并以文本文件记录被修改的文件、被修改的内容等。
- a2 f" Y8 k. h( B: l \1 _
4 W4 w% p! m* {/ Z
[attach]880292[/attach]
9 t* X/ k3 P% Y* |
0 z- f( F% [( w5 a
图1为用户窗口，其中属性值可以是多行文本。点击“浏览”按钮后会弹出“打开文件”对话框如图2
$ q F+ I2 U4 i d6 v# O! x8 Y4 ~! V
! s8 H% i- G6 B, i6 i" \5 [; F
[attach]880293[/attach]
6 ~6 k5 W- ^/ l6 J% J
; B# u7 v/ d/ r* Z9 S
在“打开”对话框可以在同一目录下选择多个文档；
1 M2 i2 X) D* c
在用户窗口点击“开始修改”按钮，所有含有符合给定条件的块参照的文档都将被修改并保存。
8 V: G, F! @* f# P7 a2 Q
选中用户窗口的“创建日志”复选框，程序会在文档目录下创建一个文本文档，记录修改信息。
9 M8 q" Y2 F& S; N
本程序仅供参考。
作者:
7788WRLWEE
时间:
2009-4-14 16:01
标题:
回复 3# woaishuijia 的帖子
你好，你是了么，好用么
作者:
7788WRLWEE
时间:
2009-4-17 08:08
如何调出窗口一
作者:
7788WRLWEE
时间:
2009-4-17 08:09
可以告诉我么，谢谢
作者:
7788WRLWEE
时间:
2009-4-20 08:18
你好，我不知道怎么调出窗口一，您能告 诉我么？谢谢
:)
作者:
7788WRLWEE
时间:
2009-4-20 08:23
我很想学呀急急急急
作者:
7788WRLWEE
时间:
2009-5-14 09:19
没有人回答我的问题，楼主告诉我，怎么处理谢谢
作者:
maoyangmy
时间:
2009-5-14 22:37
3楼提供的文件是dvb格式的，如何执行？
作者:
7788WRLWEE
时间:
2009-5-15 08:19
你好，我也没弄明白
作者:
7788WRLWEE
时间:
2009-5-15 08:20
3#上来看到后希望给予答复谢谢
作者:
7788WRLWEE
时间:
2009-6-2 09:59
怎么没人告诉我呀
作者:
woaishuijia
时间:
2009-6-2 12:52
工具>宏>加载工程
8 C( U3 p8 z4 h! _# y8 x
工具>宏>宏>运行
作者:
7788WRLWEE
时间:
2009-6-29 09:23
谢谢版主，我是了一下，还不太会用，不过已经调出来了
作者:
yqc801110
时间:
2019-10-11 09:16
请问这是怎么解决
8 r6 V- U4 L& n' c/ F& X( P3 Q9 d
欢迎光临 三维网 (http://www.3dportal.cn/discuz/)
Powered by Discuz! X3.4
:) 