怎么做快速切换线型的控制面板？

zilong136

类似这种图层切换面板，既可以在命令行选择，又可以在面板选择，可同时选多个对象，即选即改。

如何修改下面这些代码？要求默认保留上一次选择图层？

;;重画选择集中的对象-----(一级)-----
;;Sel为选择集或图元名; mode为方式码
;;mode 1 在屏幕重画该选择集对象
;;mode 2 隐藏该选择集对象
;;mode 3 <醒目显示> 该选择集对象
;;mode 4 取消<醒目显示>该选择集对象
(defun sl-sel-redrawsel (sel mode / n)
        (if sel
                (cond
                        ((= 'PICKSET (type sel))
                                (repeat (setq n (sslength sel))
                                        (redraw (ssname sel (setq n (1- n))) mode)
                                )
                        )
                        ((= 'ENAME (type sel))
                                (redraw sel mode)
                        )
                )
        )
        t
)
(defun C:W4 (/ key nm-gg ss)
        (defun nm-gg (ss tc co lt)
                (if (not (tblsearch "layer" tc))  
                        (command "-layer" "m" tc "c" "3" "" "")               
                )
                (command "CHPROP" ss "" "la" tc "c" co "LT" lt "")
        )
        (while (setq ss (ssget ":S"))
                (sl-sel-redrawsel ss 3) ;亮显
                (initget 1 "0 1 2 3 4 5")
                (setq key (getkword "\n 选择图层[0(0)/图层1(1)/图层2(2)/图层3(3)/图层4(4)/图层5(5)]"))
                (cond   ;;;(nm-gg ss "图层0" "COL" "LT")
                        ((= key "0")
                                (nm-gg ss "图层0" "bylayer" "bylayer")                       
                        )
                        ((= key "1")
                                (nm-gg ss "图层1" "1" "bylayer")
                        )
                        ((= key "2")
                                (nm-gg ss "图层2" "2" "bylayer")
                        )
                        ((= key "3")
                                (nm-gg ss "图层3" "3" "bylayer")
                        )
                        ((= key "4")
                                (nm-gg ss "图层4" "4" "bylayer")
                        )
                        ((= key "5")
                                (nm-gg ss "图层5" "5" "bylayer")
                        )
                )
                (sssetfirst nil nil) ;取消亮显
        )
        (princ)
)
(princ "\n****W4图层切换****") (princ)

xj6019

(defun C:NM (/ key nm-gg ss)
        (defun NM-GG (ss tc CO LT)
                (if (not (tblsearch "layer" tc))  
                        (command "-layer" "m" tc "c" "3" "" "")                 
                )
                (command "CHPROP" ss "" "la"  tc   "c" CO   "LT" LT  "")
        )
        (setq ss(ssget))
        (initget 1 "0 1 2 3 4 5")
        (setq key
                (getkword
                        "\n 选择图层[0(0)/图层1(1)/图层2(2)/图层3(3)/图层4(4)/图层5(5)]")
               
        )
        (cond   ;;;(NM-GG SS "图层0" "COL" "LT")
                ((= key "0")
                        (NM-GG SS "图层0" "bylayer" "bylayer")                        
                )
                ((= key "1")
                        (NM-GG SS "图层1" "1" "bylayer")
                )
                ((= key "2")
                        (NM-GG SS "图层2" "2" "bylayer")
                )
                ((= key "3")
                        (NM-GG SS "图层3" "3" "bylayer")
                )
                ((= key "4")
                        (NM-GG SS "图层4" "4" "bylayer")
                )
                ((= key "5")
                        (NM-GG SS "图层5" "5" "bylayer")
                )
        )
        (princ)
)

xj6019

(defun C:NM (/ key ss)
        (setq ss(ssget))
        (initget 1 "0 1 2 3 4 5")
        (setq key
                (getkword
                        "\n 选择图层[0(0)/图层1(1)/图层2(2)/图层3(3)/图层4(4)/图层5(5)]")
               
        )
        (cond
                ((= key "0")
                        (command  "CHPROP" ss "" "la" "图层0"  "")
                )
                ((= key "1")
                        (command  "CHPROP" ss "" "la" "图层1"  "")
                )
                ((= key "2")
                        (command  "CHPROP" ss "" "la" "图层2"  "")
                )
                ((= key "3")
                        (command  "CHPROP" ss "" "la" "图层3"  "")
                )
                ((= key "4")
                        (command  "CHPROP" ss "" "la" "图层4"  "")
                )
                ((= key "5")
                        (command  "CHPROP" ss "" "la" "图层5"  "")
                )
        )
        (princ)
)

zilong136

xj6019 发表于 2024-1-14 09:37
(defun C:NM (/ key ss)
        (setq ss(ssget))
        (initget 1 "0 1 2 3 4 5")

这个只切换图中已存在的图层，能不能优化一下，原图中没的该图层的话就直接新建，有的话就直接切换？
还有颜色、线型也可以加上。

zilong136

xj6019 发表于 2024-1-14 14:12
(defun C:NM (/ key nm-gg ss)
        (defun NM-GG (ss tc CO LT)
                (if (not (tblsearch "layer" tc))  

你这个还是不能新建图层，只能改为原图纸中已存在的图层。

zilong136

xj6019 发表于 2024-1-14 14:12
(defun C:NM (/ key nm-gg ss)
        (defun NM-GG (ss tc CO LT)
                (if (not (tblsearc ...

恩，这个可以，能不能再加一个功能，默认保留上一次选择的图层？

伊偭

大神牛B，学习了