如何自动切换到指定图层绘图

summervajane

已经新建好几种图首页层，1,2,3.如何自动切换图层，在所需图层里绘图？求代码

nyistjz

(defun C:Hlayer ()
       (setvar "cmdecho" 0)
       (command "Layer" "new" "LB_图层1" "color" "7" "LB_图层1" "" )
       (command "Layer" "new" "LB_图层2" "color" "1" "LB_图层2" "" )
       (command "Layer" "new" "LB_图层3" "color" "2" "LB_图层3" "" )
       (command "Layer" "new" "LB_图层4" "color" "3" "LB_图层4" "" )
       (command "Layer" "new" "LB_图层5" "color" "5" "LB_图层5" "" )
       (command "Layer" "new" "LB_图层6" "color" "6" "LB_图层6" "" )
       (initget "0 1 2 3 4 5 6 " )
       (princ "\n请选择图层:" )
       (setq key (getkword "\n输入数量1-6,指定当前层<默认新建>:" ))
       (cond
              ((not key) (progn (setvar "CLAYER" "LB_图层1" ) (princ "\n-->当前图层：LB_图层1" )))
              ((= key "1" ) (progn (setvar "CLAYER" "LB_图层1" ) (princ "\n-->当前图层：LB_图层1" )))
              ((= key "2" ) (progn (setvar "CLAYER" "LB_图层2" ) (princ "\n-->当前图层：LB_图层2" )))
              ((= key "3" ) (progn (setvar "CLAYER" "LB_图层3" ) (princ "\n-->当前图层：LB_图层3" )))
              ((= key "4" ) (progn (setvar "CLAYER" "LB_图层4" ) (princ "\n-->当前图层：LB_图层4" )))
              ((= key "5" ) (progn (setvar "CLAYER" "LB_图层5" ) (princ "\n-->当前图层：LB_图层5" )))
              ((= key "6" ) (progn (setvar "CLAYER" "LB_图层6" ) (princ "\n-->当前图层：LB_图层6" )))
       );end cond;cond
       (setvar "cmdecho" 1)
       (princ)
);end defun;defun

香田里浪人

l论体里已经有了，搜索一下即可。

小诚

我用14版本直接在命令行输入图层名就行，还支持自动补全来自: Android客户端

王航

找到方法了吗，没找到告诉我，我这里有现成的程序。

bai2000

能不能点击那个层上的图元就切换到那层？

lg328084985

用CAD的屏幕录制可以实现快速切换图层