gagfeng 发表于 2013-5-24 17:43:11

如何批量更改替换增强属性块中的文字


如何批量更改替换增强属性块中的文字

meja 发表于 2020-11-8 09:29:50

longer1000 发表于 2020-7-13 09:36
兄弟，共享一下吧

希望帮到你(defun c:find-att (/ ov ss i en ed an ad ah)
(while (not ov)
         (setq ov (getstring t "\nATTRIB Value To Search For:   ")))

(and (setq ss (ssget "X" (list (cons 0 "INSERT")
                                 (cons 66 1)
                                 (if (getvar "CTAB")
                                     (cons 410 (getvar "CTAB"))
                                     (cons 67 (- 1 (getvar "TILEMODE")))))))
       (setq i (sslength ss))
       (while (not (minusp (setq i (1- i))))
            (setq en (ssname ss i)
                  ed (entget en)
                  an (entnext en))
            (while (/= "SEQEND" (cdr (assoc 0 (entget an))))
                     (setq ad (entget an)
                           ah (cdr (assoc 40 ad))
                           an (entnext an))
                     (if (= (strcase ov)
                            (strcase (cdr (assoc 1 ad))))
                         (progn
                            (command "_.ZOOM" "_C" (cdr (assoc 10 ed)) (* ah 33));缩放比例
                            ;(redraw en 3)
                            (getstring "\nPress Enter To Continue Searching..."))))))
;(redraw)
(prin1))

longer1000 发表于 2020-7-13 09:36:31

meja 发表于 2020-5-13 23:51
find-att有这么一个插件可以实现

兄弟，共享一下吧

meja 发表于 2020-5-13 23:51:11

find-att有这么一个插件可以实现

gagfeng 发表于 2013-5-24 17:43:44

搜索了好久，没有找到，还望高手指点

gagfeng 发表于 2013-5-24 17:44:34

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

gagfeng 发表于 2013-5-24 19:29:30

大神门都不在吗

pym 发表于 2013-5-25 08:36:17

用快速选择先选取要替换属性的块，再在特性中把属性改为新的值。

gagfeng 发表于 2013-5-25 10:41:01

这个属性块是没有名字的，是增强属性块

gagfeng 发表于 2013-5-25 10:42:19

就是用命令"ATT"创建的

lrd1861 发表于 2013-5-25 11:16:45

5楼方法可行建议上传附件

gagfeng 发表于 2013-5-25 11:40:13

附件已经上传，各位高人给分析下

lrd1861 发表于 2013-5-25 13:23:10

gagfeng 发表于 2013-5-25 11:40 http://bbs.mjtd.com/static/image/common/back.gif
附件已经上传，各位高人给分析下

是否是这个效果
页: [1] 2 3
查看完整版本: 如何批量更改替换增强属性块中的文字