关于增强属性快的中内容的修改（求助）

gagfeng

cad使用过程中需要批量更改替换增强属性块中的文字

不知道各位高人有没有好的解决办法，能把增强属性块炸开成为单行或多行文字也行，炸成块也行

有没有插件或什么可以像cad中的文字查找与替代那样批量的更改增强 属性块中的文字

Gu_xl

2. (defun c:tt ()
   
3.   (setq NewStr (getstring "\n新字串:")
   
4.         OldStr (getstring "\n原字串:")
   
5.         )
   
6.   (setq ss (ssget "x" '((0 . "insert") (66 . 1))))
   
7.   (repeat (setq n (sslength ss))
   
8.     (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
9.     (setq atts (vlax-invoke obj 'GetAttributes))
   
10.     (foreach att atts
    
11.       (setq str (vla-get-TextString att))
    
12.       (while (vl-string-search OldStr str)
    
13.         (setq str (vl-string-subst NewStr OldStr str))
    
14.         )
    
15.       (vla-put-TextString att str)
    
16.       )
    
17.     )
    
18.   )

(defun c:tt ()<br />   (setq NewStr (getstring "\n新字串:")<br />         OldStr (getstring "\n原字串:")<br />         )<br />   (setq ss (ssget "x" '((0 . "insert") (66 . 1))))<br />   (repeat (setq n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />     (setq atts (vlax-invoke obj 'GetAttributes))<br />     (foreach att atts<br />       (setq str (vla-get-TextString att))<br />       (while (vl-string-search OldStr str)<br />         (setq str (vl-string-subst NewStr OldStr str))<br />         )<br />       (vla-put-TextString att str)<br />       )<br />     )<br />   )

chn_no1@163.com

这事儿就不用AUTOLISP了吧，愣是整麻烦了。
直接ctrl+1打开特性不就能批量修改了吗...
再不济，把查找与替换文字左下角的箭头打开，有一个忽略隐藏项的勾去掉就可以了,隐藏属性一样替换。

xujinhua

Gu_xl 发表于 2013-5-25 11:30

谢谢G版！！！！！！！！！！

gagfeng

没人能够解决这个问题吗

gagfeng

各位高人能帮忙研究下吗

gagfeng

Gu_xl 发表于 2013-5-25 11:30

终于有版主解决了，可是版主，启动命令是什么呢

gagfeng

版主，刚把您的代码运行后，普通的文字可以替代，

但是增强属性快内的文字还是无动于衷，附件已经上传，还请大家指点

yoyoho

感谢G版分享程序,学习了!

gagfeng

问题还没解决啊

菡萏

gagfeng 发表于 2013-5-27 18:33
问题还没解决啊

描述问题不清楚！别人无法理解你的真实意图！所以你得不到你想要的答案！

zhanyanchun

谢谢高人指点，