summervajane 发表于 2015-3-15 10:23:49

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

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

nyistjz 发表于 2018-10-27 20:13:44

(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

香田里浪人 发表于 2015-3-16 06:21:40

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

小诚 发表于 2015-4-9 10:20:06

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

王航 发表于 2015-4-23 20:07:46

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

bai2000 发表于 2015-4-25 12:37:07

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

lg328084985 发表于 2018-10-27 09:22:48

用CAD的屏幕录制可以实现快速切换图层
页: [1]
查看完整版本: 如何自动切换到指定图层绘图