如何改块中所有子物体的图层

Hart · 发表于 2002-9-16 21:35:00

想把一个块物体的图层改变到当前层(要连子物体的图层一起改），是不是要先得到块中各子物体的实体名，然后再根据实体名改变点对中的图层。如何得到块中子物体的实体名。

秋枫 · 发表于 2002-9-16 21:51:00

; convert all the elements of blocks into 0 layer;[br]; 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一下才能看到修改。
[此贴子已经被作者于2002-9-16 21:50:17编辑过]

Hart · 发表于 2002-10-22 14:10:00

(ai_undo_push)是什么东东啊？
为什么块中会有出现一些图层有改变一些图层没改变？

如何改块中所有子物体的图层

发表回复

精选推荐

浏览过的版块