gagfeng 发表于 2013-5-24 20:00:28

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

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

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



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


属性块中的文字

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

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

chn_no1@163.com 发表于 2020-6-8 17:33:39

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

xujinhua 发表于 2019-4-7 19:26:25

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


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

gagfeng 发表于 2013-5-25 10:39:47

没人能够解决这个问题吗

gagfeng 发表于 2013-5-25 11:09:33

各位高人能帮忙研究下吗

gagfeng 发表于 2013-5-25 11:35:20

Gu_xl 发表于 2013-5-25 11:30 static/image/common/back.gif


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

gagfeng 发表于 2013-5-25 11:56:32

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

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

yoyoho 发表于 2013-5-25 17:41:29

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

gagfeng 发表于 2013-5-27 18:33:00

问题还没解决啊

菡萏 发表于 2013-5-27 18:57:27

gagfeng 发表于 2013-5-27 18:33 static/image/common/back.gif
问题还没解决啊

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

zhanyanchun 发表于 2015-10-20 21:27:10

谢谢高人指点，
页: [1] 2
查看完整版本: 关于增强属性快的中内容的修改（求助）