修改 属性块 标记

zhuquanmao

大虾们 怎么能修改属性块的标记？在不重新建块的前提下

ll_j

试试：
[pcode=lisp,true]
(defun subattlab(/ new old insert)
;;; (setq new "嘿嘿" old "哈哈")
;;; (setq ins (car(entsel "\n拾取属性块：")))
(while (= (cdr (assoc 0 (entget (setq ins (entnext ins))))) "ATTRIB")
  (if (= (cdr (assoc 2 (entget ins))) old)
    (entmod (subst
              (cons 2 new)
              (cons 2 old)
              (entget ins)
            )
    )
  )
)
[/pcode]

XDSoft

修改属性值还是标签？为啥要修改标签？说说你是怎么做的？

夜来风语声

参阅 vla-put-tagstring、vla-put-textstring函数！

zhuquanmao

自己瞎编了一个 修改所有块名为BLOCK的属性块里的标记A  将其改为标记B
编的太长了
[pcode=lisp,true]
(defun c:TTT ( / elist ename i lst ss test ttt)
(setq ss (ssget "X" '((0 . "INSERT") (2 . BLOCK))))
(setq i 0)
(setq ttt t)
(while (and
         (< i (sslength ss))
         (= ttt t)
       )
  (setq ename (ssname ss i)
        elist (entget ename)
        elist ename
        test t
  )
  (while (and
           test
           (setq elist (entnext elist))
         )
    (setq lst (entget elist))
    (cond                               ;
      ((= "A" (cdr (assoc 2 lst)))
        (progn
          (setq lst (subst
                      (cons 2 "B")
                      (assoc 2 lst)
                      lst
                    )
          )
          (entmod lst)
        )
      )                                       ;
      ((= "SEQEND" (cdr (assoc 0 lst)))
        (setq test nil)
      )
    )
  )
  (entupd ename)                       ;
  (setq i (1+ i))
)
(princ)
[/pcode]

zhuquanmao

ll_j 发表于 2013-4-18 16:19

                               
登录/注册后可看大图

试试：

(defun subattlab(/ new old insert)

比我的简单多了 顶一个 学习中

a20031079

解决啦？我怎么用不了~~

sicky111

学习一下。

SHUNDocker

学习一下。