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

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))

(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
附件已经上传，各位高人给分析下

是否是这个效果

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

[进阶习题] 如何批量更改替换增强属性块中的文字

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源

点评