大师帮忙写个插入图块时自动到指定的图层上去，插入结束自动回归当前层的代码
我想插入外部块时自动到预定的图层，但插块结束还是回归到当前层，请帮忙写一下。（我不会写代码，请帮忙）插入的块后将块默认移至0图层，图层名称在第一行修改：(defun c:TT (/ BLayNam Old_Cmd *ent*)
(setq BLayNam "0");设置块插入的图层,默认为0图层
(setq Old_Cmd (getvar "cmdecho"))(setvar "cmdecho" 0)
(if (tblsearch "layer" BLayNam)
(progn
(initcommandversion)
(command "insert" pause)
(setq *ent* (entget (entlast)))
(entmod(subst (cons 8 BLayNam) (assoc 8 *ent*) *ent*))
)
(princ (strcat "\n<" BLayNam ">图层名称不存在"))
)
(command "redraw")
(setvar "cmdecho" Old_Cmd)
(princ)
)
感谢作者的分享！
页:
[1]