求解：这段源码如何把点选改为框选？

kinger

下面是从论坛发现的源码，可惜选择视口时只能点选，能否使其变为框选从而批量修改视口内的图层冻结。

2. ;;;按功能在指定视口中冻结特定图层
   
3. (defun C:Tools-LAY-SKGNDJ (/ DjKeyN DjKey VP)
   
4.   (princ "\n*** 选择视口前，请保持视口中有效图层开启 ***")
   
5.   (if (= (getvar "tilemode") 0)
   
6.     (progn
   
7.       (initget 7 "1 2 3 4")
   
8.       (setq Key (getkword "\n需要设置的视口功能： 1-总平面图 / 2-分区铺装索引平面图 / 3-竖向平面图 / 4-定位平面图"))
   
9.       (cond
   
10.         ((= Key "1") (setq DjKey "*ELEV*,*COOR*,*IDEN*,*LEAD*,*SYMB*,*PUB_DIM*")) ;_总平面图
    
11.         ((= Key "2") (setq DjKey "*ELEV*,*COOR*,*SYMB*,*PUB_DIM*")) ;_分区铺装索引平面图
    
12.         ((= Key "3") (setq DjKey "*填充*,*HATCH*,*COOR*,*IDEN*,*LEAD*,*SYMB*,*PUB_DIM*")) ;_竖向平面图
    
13.         ((= Key "4") (setq DjKey "*填充*,*HATCH*,*ELEV*,*IDEN*,*LEAD*,*SYMB*")) ;_定位平面图
    
14.       )
    
15.       (if (setq VP (entsel "\n选择要冻结图层的视口："))
    
16.   (FreezLayInVPCmd (car VP) DjKey)
    
17.       )
    
18.     )
    
19.     (princ "\n该命令仅允许在布局空间有效运行！")
    
20.   )
    
21.   (princ)
    
22. )
    
23. ;;;支持通配符
    
24. (defun FreezLayInVPCmd (Ven Lst / ENT)
    
25.   (if (and (= (getvar "tilemode") 0) (= (getvar "cvport") 1)) ;_判断鼠标是否在布局空间
    
26.     (progn
    
27.       (setq ENT (cdr (assoc 69 (entget Ven))))
    
28.       (command "_.MSPACE") ;_切换到模型空间
    
29.       (setvar "cvport" ENT)
    
30.       (command "_.vplayer" "F" LST "" "") ;_在模型空间中操作，冻结
    
31.       (command "_PSPACE") ;_切换到布局空间
    
32.     )
    
33.     (princ "\n*** 该命令仅允许在布局空间有效运行，请将鼠标切换到布局空间 ***")
    
34.   )
    
35. )

;;;按功能在指定视口中冻结特定图层<br /> (defun C:Tools-LAY-SKGNDJ (/ DjKeyN DjKey VP)<br />   (princ "\n*** 选择视口前，请保持视口中有效图层开启 ***")<br />   (if (= (getvar "tilemode") 0)<br />     (progn<br />       (initget 7 "1 2 3 4")<br />       (setq Key (getkword "\n需要设置的视口功能： 1-总平面图 / 2-分区铺装索引平面图 / 3-竖向平面图 / 4-定位平面图"))<br />       (cond<br />         ((= Key "1") (setq DjKey "*ELEV*,*COOR*,*IDEN*,*LEAD*,*SYMB*,*PUB_DIM*")) ;_总平面图<br />         ((= Key "2") (setq DjKey "*ELEV*,*COOR*,*SYMB*,*PUB_DIM*")) ;_分区铺装索引平面图<br />         ((= Key "3") (setq DjKey "*填充*,*HATCH*,*COOR*,*IDEN*,*LEAD*,*SYMB*,*PUB_DIM*")) ;_竖向平面图<br />         ((= Key "4") (setq DjKey "*填充*,*HATCH*,*ELEV*,*IDEN*,*LEAD*,*SYMB*")) ;_定位平面图<br />       )<br />       (if (setq VP (entsel "\n选择要冻结图层的视口："))<br />   (FreezLayInVPCmd (car VP) DjKey)<br />       )<br />     )<br />     (princ "\n该命令仅允许在布局空间有效运行！")<br />   )<br />   (princ)<br /> )<br /> ;;;支持通配符<br /> (defun FreezLayInVPCmd (Ven Lst / ENT)<br />   (if (and (= (getvar "tilemode") 0) (= (getvar "cvport") 1)) ;_判断鼠标是否在布局空间<br />     (progn<br />       (setq ENT (cdr (assoc 69 (entget Ven))))<br />       (command "_.MSPACE") ;_切换到模型空间<br />       (setvar "cvport" ENT)<br />       (command "_.vplayer" "F" LST "" "") ;_在模型空间中操作，冻结<br />       (command "_PSPACE") ;_切换到布局空间<br />     )<br />     (princ "\n*** 该命令仅允许在布局空间有效运行，请将鼠标切换到布局空间 ***")<br />   )<br /> )

源码来源：按功能在指定视口中冻结特定图层

饼仲郎

里面有个entsel，想要框选就用ssget，再遍历图元循环执行。

饼仲郎

• (if (setq VP (entsel "\n选择要冻结图层的视口："))
•   (FreezLayInVPCmd (car VP) DjKey)
•       )
• 改为
• (if (setq VP (ssget))
•   (progn
•     (setq lst-ent (mapcar '(lambda (x) (cadr x)) (vl-remove-if-not '(lambda (x) (if (= (car x) (caar (ssnamex VP))) t)) (ssnamex VP))))
•     (foreach x lst-ent (FreezLayInVPCmd x DjKey))
•   )
• )
  

不保熟，没试代码

MZ_li

哦，原来是金牌会员啊。楼上的，你不给全部代码，他不会呀

kinger

饼仲郎 发表于 2024-7-19 21:41

(if (setq VP (entsel "\n选择要冻结图层的视口："))

  (FreezLayInVPCmd (car VP) DjKey)

   ...

试了，可用。感谢！！