[求助]：请问如何快速更改块属性？

似水无痕 · 发表于 2005-11-8 11:46:00

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

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

×

我以前在绘制图纸时有一个块的属性值没有输入正确，现在想把他更改掉，但是图纸又太多，一个一个更改太麻烦，请问有没有更快的方法？是否只能用编程来解决？

cy956 · 发表于 2005-11-8 19:03:06

就是编程也没那么简单——假如你的属性有的对有的不对的话。

似水无痕 · 发表于 2005-11-8 19:36:32

谢谢cy956斑竹，我的属性大体都是一样的！我只是想知道不用编程能否实现！
再次感谢cy956斑竹的回复！当时并没有考虑那么多，不然刚刚开始画图时一切做好就行了！

HuaiYu · 发表于 2005-11-8 20:11:11

1-- express 中有一个 gatte ，可以供参考
2-- 可传样品图档上来，帮你写一个

xyp1964 · 发表于 2005-11-8 20:21:57

最初由 HuaiYu 发布
[B]1-- express 中有一个 gatte ，可以供参考
2-- 可传样品图档上来，帮你写一个 [/B]

这样就对了！
继续努力！

cy956 · 发表于 2005-11-8 23:42:40

不管编不编程，关键是有特征可以过滤出来，否则你还是一个一个选着改把。

LUCAS · 发表于 2005-11-9 08:16:52

可以用objectdbx解决,但问题要更详细说明及要有图测试

似水无痕 · 发表于 2005-11-9 10:44:55

比如这个图，我要将开工日期及竣工日期改为另外的数值，这样的图还有很多，都要进行更改！

xyp1964 · 发表于 2005-11-9 15:26:02

批量更改特定块属性的值：

[FONT=courier new]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
;;;批量更改特定块属性的值(For 似水无痕)
(defun c:test ()
(cmdla0)
(setq ss (ssget '((0 . "INSERT") (2 . "A3图框块1") (8 . "主体")))
date1 (USTR 7 "\n开工日期" date1 NIL)
date2 (USTR 7 "\n竣工日期" date2 NIL)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (xyp-get-Attibutes s1)
(progn
(setq lst (vlax-safearray->list
(vlax-variant-value
(vla-GetAttributes (vlax-ename->vla-object s1))
)
)
)
(vla-put-TextString (car lst) date2)
(vla-put-TextString (cadr lst) date1)
)
)
)
(cmdla1)
)[/FONT]

[FONT=courier new] 
(load "xyp_lib") 
;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib") 
■2·在每个程序内增加(load"xyp_lib") 
■3·在command下，输入(load"xyp_lib") 
■4·在菜单.mnl中增加(load"xyp_lib") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
;;;批量更改特定块属性的值(For 似水无痕) 
(defun c:test () 
  (cmdla0) 
  (setq        ss    (ssget '((0 . "INSERT") (2 . "A3图框块1") (8 . "主体"))) 
        date1 (USTR 7 "\n开工日期" date1 NIL) 
        date2 (USTR 7 "\n竣工日期" date2 NIL) 
        i     -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (if        (xyp-get-Attibutes s1) 
      (progn 
        (setq lst (vlax-safearray->list 
                    (vlax-variant-value 
                      (vla-GetAttributes (vlax-ename->vla-object s1)) 
                    ) 
                  ) 
        ) 
        (vla-put-TextString (car lst) date2) 
        (vla-put-TextString (cadr lst) date1) 
      ) 
    ) 
  ) 
  (cmdla1) 
)[/FONT]

LUCAS · 发表于 2005-11-9 15:32:06

;;请问如何快速更改块属性?
;;我以前在绘制图纸时有一个块的属性值没有输入正确，现在想把
;;他更改掉，但是图纸又太多，一个一个更改太麻烦，请问有没有更
;;快的方法?是否只能用编程来解决?
;;TEST FOR R2005
;;BY LUCAS
;;旧图档会增加"_OLD"表示
;;未详细测试,如有损害自行负责<请先COPY原图>
;;USAGE: (REPLACEATT <PATH> '(BLKNAME (TAG1 . VALUE) (TAG2 . VALUE).....))
注意:利用Objectdbx技巧更改整个目录,图档请不要打开(图档中不能有永久反应器)
(defun C:TT ()
(if (not (member "acetutil.arx" (arx)))
(arxload "acetutil.arx" NIL)
)
(REPLACEATT
(acet-ui-pickdir
"更换属性值"
(vl-string-right-trim "\" (getvar "dwgprefix"))
"选择目录"
)
'("标题" ("比例" . "1:100") ("材料规格" . "S45C???"))
)
(princ)
)

附件:REPACLEATT.VLX

似水无痕 · 发表于 2005-11-9 16:33:18

谢谢各位的鼎立帮助！

didini · 发表于 2005-11-9 19:21:48

反应器一般是用什么编的？

狂刀 · 发表于 2005-11-10 02:44:22

如果在本图修改，其实用find也不错

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请问如何快速更改块属性？

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

相关帖子

浏览过的版块