CAD-lisp的图块属性的互相复制

原创

已于 2024-08-20 00:56:40 修改 · 555 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#lisp #java #前端

于 2024-08-20 00:30:40 首次发布

将一个图块的某个属性，复制给其他图块的同名属性；

这个例子是将：文字图块：阀门位号属性值KV-20710810值，赋值给支架图块的阀门位号属性（隐藏）

(defun c:copy_weihao ()
  (setq ss3 "")
  (setq stxt "阀门位号")
  ;将阀门位号属性同步到其他图块的同名属性中去
  (setq sname (ssname (ssget) 0))
  (setq ent(entget sname))
  (setq ent1 ent)
  (setq ss (cdr (assoc -1 ent1)))
  ;获取文字图块的阀门位号属性值；
  (IF (/= "SEQEND" (cdr (assoc 0 ENT))) 
    (WHILE 
      (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
      (cond 
        ((= (CDR (ASSOC 2 ENT1)) stxt)
          (setq ss3 (cdr (assoc 1 ent1)))
        )
      )
    )
  )
  ;将文字图块的阀门位号属性值，重复更新给选中的单个对象
  (WHILE
    (setq SS1 (ssget))
      (IF SS1 
        (Repeat (SsLength SS1) 
          (progn 
            (Set