属性块或块，块内或块外图层如何变更

magicheno

请教下大侠们，比如类似一个还有标高的属性块或其他块，如何能使命令比如TT5，框选一个或者多个对象，使得属性块内的对象变为0层，块外的图层按我设定的指定图层来指定，比如“A"图层，这样子可以实现么

magicheno

自己找来的一些程序然后瞎拼乱凑解决啦，先把属性块等等块变为0层，再变更为自己想要的图层名

好像不能给自己加币，尴尬了，自己的帖子怎样才能自己结束然后归还币呢~~~
(defun c:TT5 ()
  (setq I 0)
  (if (setq ss (ssget)
    (PROGN (REPEAT (SSLENGTH SS)
             (setq ENT (SSNAME SS I))
             (setq OBJ (vlax-ename->vla-object ENT))
             (CHANGE-COLOR OBJ)
             (setq I (1+ I))
           )
    )
  )
  (setq oldlay (getvar "clayer"))
  (command "layer" "m" "WP" "c" "4" "" "")
  (command "change" ss "" "p" "la" "WP" "")
  (command "clayer" oldlay)
  (PRINC)
)


(DEFUN CHANGE-COLOR (OBJ / NAME *ACAD* *BLKS* *DOC*)
  (setq *ACAD* (vlax-get-acad-object))
  (setq *DOC* (vla-get-ActiveDocument *ACAD*))
  (setq *BLKS* (vla-get-Blocks *DOC*))
  (vla-put-Layer OBJ "0")
  (vla-put-Color OBJ acByLayer)
  (if (OR (= (vla-get-ObjectName OBJ) "AcDbBlockReference")
          (= (vla-get-ObjectName OBJ) "AcDbMInsertBlock")
      )
    (PROGN (FOREACH ATT        (vlax-invoke OBJ 'GETATTRIBUTES)
             (vla-put-Layer ATT "0")
             (vla-put-Color ATT acByLayer)
           )
           (setq NAME (vla-get-Name OBJ))
           (VLAX-FOR N (vla-Item *BLKS* NAME) (CHANGE-COLOR N))
    )
  )
)