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

Hart

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

秋枫

; 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

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

雷