大师帮忙写个插入图块时自动到指定的图层上去，插入结束自动回归当前层的代码

二更更二

我想插入外部块时自动到预定的图层，但插块结束还是回归到当前层，请帮忙写一下。（我不会写代码，请帮忙）

kucha007

插入的块后将块默认移至0图层，图层名称在第一行修改：

2. (defun c:TT (/ BLayNam Old_Cmd *ent*)
   
3.   (setq BLayNam "0");设置块插入的图层,默认为0图层
   
4.   
   
5.   (setq Old_Cmd (getvar "cmdecho"))(setvar "cmdecho" 0)
   
6.   (if (tblsearch "layer" BLayNam)
   
7.       (progn
   
8.         (initcommandversion)
   
9.         (command "insert" pause)
   
10.         (setq *ent* (entget (entlast)))
    
11.         (entmod  (subst (cons 8 BLayNam) (assoc 8 *ent*) *ent*))
    
12.       )
    
13.       (princ (strcat "\n<" BLayNam ">图层名称不存在"))
    
14.   )
    
15.   (command "redraw")
    
16.   (setvar "cmdecho" Old_Cmd)
    
17.   (princ)
    
18. )

(defun c:TT (/ BLayNam Old_Cmd *ent*) <br />   (setq BLayNam "0");设置块插入的图层,默认为0图层<br />   <br />   (setq Old_Cmd (getvar "cmdecho"))(setvar "cmdecho" 0)<br />   (if (tblsearch "layer" BLayNam) <br />       (progn <br />         (initcommandversion)<br />         (command "insert" pause)<br />         (setq *ent* (entget (entlast)))<br />         (entmod  (subst (cons 8 BLayNam) (assoc 8 *ent*) *ent*))<br />       )<br />       (princ (strcat "\n<" BLayNam ">图层名称不存在"))<br />   )<br />   (command "redraw")<br />   (setvar "cmdecho" Old_Cmd)<br />   (princ)<br /> )

tensir

感谢作者的分享！