块的颜色如何更改?

rissa

有一些图形文件中用到的块是其它颜色,想用lisp程序统一更改他们的颜色,不知如何实现?

cy956

; convert all the elements of blocks into 0 layer;
; convert all the elements of blocks into 0 layer;

(defun blockconvert( blockname / bn en e)
   (setq bn (tblobjname "block" blockname))
   (setq en (entnext bn))
   (while en
      (setq e (entget en))
      (setq e (subst (cons 8 "0") (assoc 8 e) e))
      (if (assoc 62 e)
          (setq e (subst (cons 62 256)(assoc 62 e) e))
      )
      (entmod e)
      (setq en (entnext en))
   )
   (entupd bn)
)

(defun c:blockConvert(/ bname )
   (ai_undo_push)
   (setq bname (entsel "Select a block:"))
   (setq bname (entget (car bname)))
   (if (= "INSERT" (cdr (assoc 0 bname)))
       (progn
       (setq bname (cdr (assoc 2 bname)))
       (blockconvert bname)
       )
       (princ "\nIt is not a block insert.")
   )
   (princ)
   (ai_undo_pop)
)

最后要regen一下才能看到修改。

rissa

rissa

今天看lisp的一本书,讲到块的子图元不能用entmod更改,是这样吗?

cy956

看例子