图层冻结功能拼凑版

qmqyqj

使用场景：参照冻结、图块冻结，模型/视口内都可
近期因为图层冻结的事情困扰，只学过一点python，只能百度搜索加上论坛上查阅了好多资料，终于捣鼓出来了一点，个人觉得还不是很完美（ps：点击图块/参照内容的时候需要二次点击确认下）咱先把源码贡献出来，也请大牛看看能不能进一步优化以提升使用体验！

1. (defun c:k ()
   
2.   (if (/= (getvar "clayer") 0)  ;判断当前图层是否为0图层
   
3.   (vl-cmdf  "-LAYER" "S" 0 ""))
   
4.   (setq dh_kj(getvar "ctab")) ;获取当前所在空间是模型/布局
   
5.   (if(/= dh_kj "Model") ;如果当前不是在模型空间，是在布局内
   
6.     (while
   
7.       (setq Ent(entsel "\n选择对象:"));获取实体（块或者线）
   
8.       (setq Ent1(cdr (assoc 0 (entget (car Ent)))))
   
9.       (setq Ent_lay (cdr (assoc 8 (entget (car Ent)))));获取实体（块或者线）的图层名
   
10.       (if (= Ent1 "INSERT")
    
11.         (progn
    
12.           (setq ss1 (nentsel "\n选择的是块，需要再点击一次: ")) ;获取实体（线）
    
13.           (setq Ltp (cdr (assoc 8 (entget (car ss1)))));获取实体（线）的图层名
    
14.           (if (= Ltp "0")
    
15.             (if(= Ltp Ent_lay)
    
16.               (progn
    
17.                 (print "您选择的图块及图元都是")
    
18.                 (princ Ent_lay)
    
19.                 (prompt "图层,请检查！")
    
20.                 )
    
21.               (progn
    
22.                 (command "vplayer" "F" Ent_lay "C" "")
    
23.                 (print "图层 ")
    
24.                 (princ Ent_lay)
    
25.                 (prompt " 已冻结")
    
26.                 )
    
27.               )
    
28.             (progn
    
29.               (command "vplayer" "F" Ltp "C" "")
    
30.               (print "图层 ")
    
31.               (princ Ltp)
    
32.               (prompt " 已冻结")
    
33.               )
    
34.             )
    
35.           )
    
36.           (vl-cmdf  "LAYFRZ" "S" "v" "v" Ent "") ;冻结所选对象图层
    
37.         )
    
38.       )
    
39.    (while
    
40.       (setq Ent(entsel "\n选择对象:"));获取实体（块或者线）
    
41.       (setq Ent1(cdr (assoc 0 (entget (car Ent)))))
    
42.       (setq Ent_lay (cdr (assoc 8 (entget (car Ent)))));获取实体（块或者线）的图层名
    
43.       (if (= Ent1 "INSERT")
    
44.         (progn
    
45.           (setq ss1 (nentsel "\n选择的是块，需要再点击一次: ")) ;获取实体（线）
    
46.           (setq Ltp (cdr (assoc 8 (entget (car ss1)))));获取实体（线）的图层名
    
47.           (if (= Ltp "0")
    
48.             (if(= Ltp Ent_lay)
    
49.               (progn
    
50.                 (print "您选择的图块及图元都是")
    
51.                 (princ Ent_lay)
    
52.                 (prompt "图层,请检查！")
    
53.                 )
    
54.               (progn
    
55.                 (command "_layer" "F" Ent_lay "")
    
56.                 (print "图层 ")
    
57.                 (princ Ent_lay)
    
58.                 (prompt " 已冻结")
    
59.                 )
    
60.               )
    
61.             (progn
    
62.               (command "_layer" "F" Ltp "")
    
63.               (print "图层 ")
    
64.               (princ Ltp)
    
65.               (prompt " 已冻结")
    
66.               )
    
67.             )
    
68.           )
    
69.           (vl-cmdf  "LAYFRZ" "S" "B" "B" Ent "") ;冻结所选对象图层
    
70.         )
    
71.       )
    
72.     )
    
73.   )

(defun c:k ()<br />   (if (/= (getvar "clayer") 0)  ;判断当前图层是否为0图层<br />   (vl-cmdf  "-LAYER" "S" 0 ""))<br />   (setq dh_kj(getvar "ctab")) ;获取当前所在空间是模型/布局<br />   (if(/= dh_kj "Model") ;如果当前不是在模型空间，是在布局内<br />     (while<br />       (setq Ent(entsel "\n选择对象:"));获取实体（块或者线）<br />       (setq Ent1(cdr (assoc 0 (entget (car Ent)))))<br />       (setq Ent_lay (cdr (assoc 8 (entget (car Ent)))));获取实体（块或者线）的图层名 <br />       (if (= Ent1 "INSERT") <br />         (progn<br />           (setq ss1 (nentsel "\n选择的是块，需要再点击一次: ")) ;获取实体（线）<br />           (setq Ltp (cdr (assoc 8 (entget (car ss1)))));获取实体（线）的图层名<br />           (if (= Ltp "0")<br />             (if(= Ltp Ent_lay)<br />               (progn <br />                 (print "您选择的图块及图元都是")<br />                 (princ Ent_lay)<br />                 (prompt "图层,请检查！")<br />                 )<br />               (progn<br />                 (command "vplayer" "F" Ent_lay "C" "")<br />                 (print "图层 ")<br />                 (princ Ent_lay)<br />                 (prompt " 已冻结")<br />                 )<br />               )<br />             (progn <br />               (command "vplayer" "F" Ltp "C" "")<br />               (print "图层 ")<br />               (princ Ltp)<br />               (prompt " 已冻结")<br />               )<br />             ) <br />           )<br />           (vl-cmdf  "LAYFRZ" "S" "v" "v" Ent "") ;冻结所选对象图层<br />         )<br />       )<br />    (while<br />       (setq Ent(entsel "\n选择对象:"));获取实体（块或者线）<br />       (setq Ent1(cdr (assoc 0 (entget (car Ent)))))<br />       (setq Ent_lay (cdr (assoc 8 (entget (car Ent)))));获取实体（块或者线）的图层名 <br />       (if (= Ent1 "INSERT") <br />         (progn<br />           (setq ss1 (nentsel "\n选择的是块，需要再点击一次: ")) ;获取实体（线）<br />           (setq Ltp (cdr (assoc 8 (entget (car ss1)))));获取实体（线）的图层名<br />           (if (= Ltp "0")<br />             (if(= Ltp Ent_lay)<br />               (progn <br />                 (print "您选择的图块及图元都是")<br />                 (princ Ent_lay)<br />                 (prompt "图层,请检查！")<br />                 )<br />               (progn<br />                 (command "_layer" "F" Ent_lay "")<br />                 (print "图层 ")<br />                 (princ Ent_lay)<br />                 (prompt " 已冻结")<br />                 )<br />               )<br />             (progn <br />               (command "_layer" "F" Ltp "")<br />               (print "图层 ")<br />               (princ Ltp)<br />               (prompt " 已冻结")<br />               )<br />             ) <br />           )<br />           (vl-cmdf  "LAYFRZ" "S" "B" "B" Ent "") ;冻结所选对象图层<br />         )<br />       )<br />     )<br />   )

magicheno

感谢大佬分享

mojianxing

感谢大佬分享

tigcat

要不用穿透选择nentsel函数呢?

qmqyqj

tigcat 发表于 2023-9-14 22:37
要不用穿透选择nentsel函数呢?

也结合nentsel穿透用了，因为主要有3种场景，所以结合使用了下，冻结 单一图元、图块内单一图元、图块(块内图元是0图层)，目前遇见图块就得需要重复确定点一次，想破脑袋没有想出办法解决，不知道哪位大牛给解决掉！

e2002

1. 用 nentselp ，不用再去点击一次。
2. 可以试试Table或vla对象的方式，完全不使用 command 来实现。

qmqyqj

e2002 发表于 2023-9-15 11:06
1. 用 nentselp ，不用再去点击一次。
2. 可以试试Table或vla对象的方式，完全不使用 command 来实现。

对于我这种新手，还不会用那些高阶功法