[求助]请教高手，如何能把未定义成属性块的属性字快速批量更改？

userzhluserzhl

[求助]请教高手，如何能把未定义成属性块的属性字快速批量更改？

因为用find命令又更改不了。如图

carrot1983

1. 
   
2. ;|
   
3. ATTDEF DXF Example:
   
4. 
   
5. (-1 . <图元名: 7ef63f88>)
   
6. (0 . "ATTDEF")
   
7. (330 . <图元名: 7ef63cf8>)
   
8. (5 . "F1")
   
9. (100 . "AcDbEntity")
   
10. (67 . 0)
    
11. (410 . "Model")
    
12. (8 . "0")
    
13. (100 . "AcDbText")
    
14. (10 906.814 543.325 0.0)
    
15. (40 . 2.5)
    
16. (1 . "7-PS");_默认
    
17. (50 . 0.0)
    
18. (41 . 1.0)
    
19. (51 . 0.0)
    
20. (7 . "Standard")
    
21. (71 . 0)
    
22. (72 . 0)
    
23. (11 0.0 0.0 0.0)
    
24. (210 0.0 0.0 1.0)
    
25. (100 . "AcDbAttributeDefinition")
    
26. (3 . "图号");_提示
    
27. (2 . "*PS");_标记
    
28. (70 . 0)
    
29. (73 . 0)
    
30. (74 . 0)
    
31. (-3 ("AcDbAttr" (1070 . 0) (1070 . 1)))
    
32. |;
    
33. 
    

复制代码

[php]
;;修改纯属性文字 carrot1983 2009-01-21
(defun C:TT (/ ELIST I PATTERN NEW_V2 SS V1 V2 V3)
  (setq NEW_V2 "新标记") ;_新的标记值
  (setq PATTERN "*PS") ;_匹配的文字
  (if (setq SS (ssget (list (cons 0 "ATTDEF") (cons 2 PATTERN))))
    (repeat (setq I (sslength SS))
      (setq ELIST (entget (ssname SS (setq I (1- I)))))
      (setq V1 (cdr (assoc 1 ELIST)))
      (setq V2 (cdr (assoc 2 ELIST)))
      (setq V3 (cdr (assoc 3 ELIST)))
      ;; For example: Modify DXF 2
      (setq ELIST (subst (cons 2 NEW_V2)
                         (assoc 2 ELIST)
                         ELIST
                  )
      )
      (entmod ELIST)
    )
  )
  (princ)
)
[/php]

userzhluserzhl

非常感谢carrot1983 ！