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

meja

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

希望帮到你

2. (defun c:find-att (/ ov ss i en ed an ad ah)
   
3.   (while (not ov)
   
4.          (setq ov (getstring t "\nATTRIB Value To Search For:   ")))
   
5. 
   
6.   (and (setq ss (ssget "X" (list (cons 0 "INSERT")
   
7.                                  (cons 66 1)
   
8.                                  (if (getvar "CTAB")
   
9.                                      (cons 410 (getvar "CTAB"))
   
10.                                      (cons 67 (- 1 (getvar "TILEMODE")))))))
    
11.        (setq i (sslength ss))
    
12.        (while (not (minusp (setq i (1- i))))
    
13.               (setq en (ssname ss i)
    
14.                     ed (entget en)
    
15.                     an (entnext en))
    
16.               (while (/= "SEQEND" (cdr (assoc 0 (entget an))))
    
17.                      (setq ad (entget an)
    
18.                            ah (cdr (assoc 40 ad))
    
19.                            an (entnext an))
    
20.                      (if (= (strcase ov)
    
21.                             (strcase (cdr (assoc 1 ad))))
    
22.                          (progn
    
23.                             (command "_.ZOOM" "_C" (cdr (assoc 10 ed)) (* ah 33));缩放比例
    
24.                             ;(redraw en 3)
    
25.                             (getstring "\nPress Enter To Continue Searching..."))))))
    
26.   ;(redraw)
    
27.   (prin1))
    

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