块的颜色如何更改?

rissa · 发表于 2002-12-1 21:20:00

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

cy956 · 发表于 2002-12-1 23:00:00

; 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 · 发表于 2002-12-4 22:52:00

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

cy956 · 发表于 2002-12-5 00:21:00

看例子

块的颜色如何更改?

发表回复

精选推荐