当图纸中有多个属性块时 如何用attsync命令来批量更新

wx_d14LsF51

attsync命令只能一个一个来点 实在太慢了 有什么方法可以批量更新属性？

newer

你想怎么批量更新法？

yuebirds

ATTSYNC命令有个“名称”选择，看看是否可以？
或者用 Battman命令：设置/勾选“某选项”后/双击“某选项”值/编辑属性、确定/同步……

wx_d14LsF51

yuebirds 发表于 2020-6-17 08:09
ATTSYNC命令有个“名称”选择，看看是否可以？
或者用 Battman命令：设置/勾选“某选项”后/双击“某选项 ...

还是不行 只能一个一个来 谢谢大佬

wx_d14LsF51

newer 发表于 2020-6-17 02:30
你想怎么批量更新法？

就比如 编辑了属性块内的属性文字的高度或样式，并退出块编辑并保存后块并不会自动更新，需要用attsync才能更新成功。当有很多块需要更新时，要用attsync一个个更新。就是想问问有没有命令可以一次性更新所有属性块。

王鹏_pBZlo

1. (defun c:tt( / ss i blklst blkn ent)
   
2.         (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 66 1))))
   
3.         (if (not ss) (vl-exit-with-value 0))
   
4.         (setq i -1 blklst nil)
   
5.         (while (setq ent (ssname ss (setq i (1+ i))))
   
6.                 (setq blkn (cdr (assoc 2 (entget ent))))
   
7.                 (if (not (member blkn blklst)) (setq blklst (cons blkn blklst)))
   
8.         )        (command "undo" "be")
   
9.         (setq i -1)
   
10.         (while (setq blkn (nth (setq i (1+ i)) blklst))
    
11.             (command "attsync" "n" blkn)
    
12.         )       (command "undo" "e")
    
13.         (princ)
    
14. )
    

(defun c:tt( / ss i blklst blkn ent)<br />         (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 66 1))))<br />         (if (not ss) (vl-exit-with-value 0))<br />         (setq i -1 blklst nil)<br />         (while (setq ent (ssname ss (setq i (1+ i))))<br />                 (setq blkn (cdr (assoc 2 (entget ent))))<br />                 (if (not (member blkn blklst)) (setq blklst (cons blkn blklst)))<br />         )        (command "undo" "be")<br />         (setq i -1)<br />         (while (setq blkn (nth (setq i (1+ i)) blklst))<br />             (command "attsync" "n" blkn)<br />         )       (command "undo" "e")<br />         (princ)<br /> )<br />

yuanming8847

王鹏_pBZlo 发表于 2020-7-14 08:56

王工这个厉害了学习了。拿走了呵呵

wx_d14LsF51

王鹏_pBZlo 发表于 2020-7-14 08:56

谢谢大佬！