按功能在指定视口中冻结特定图层

小毛草

TOOLS-LAY-SKGNDJ
*** 选择视口前，请保持视口中有效图层开启 ***
需要设置的视口功能： 1-天花布置平面图 / 2-地面铺装平面图 / 3-平面布置图 /
4-定位平面图3

选择要冻结图层的视口：未知命令“TOOLS-LAY-SKGNDJ”。按 F1 查看帮助。
这个是指示信息！

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

mj0000

小毛草 发表于 2014-5-9 13:37
TOOLS-LAY-SKGNDJ
*** 选择视口前，请保持视口中有效图层开启 ***
需要设置的视口功能： 1-天花布置平面图 ...

(command "_.vplayer" "F" LST "" "") ;_在模型空间中操作，冻结
改
(command "_.vplayer" "F" LST "")
再试一试

小毛草

改了试了，无什么效果，呵呵，真的不知是什么问题了！

無恒的地盘

mj0000 发表于 2014-5-9 14:03
(command "_.vplayer" "F" LST "" "") ;_在模型空间中操作，冻结
改
(command "_.vplayer" "F" LST "") ...

LST 是什么,好像都没找到

hanniu_1973

在视口中冻结与解冻，autocad中有命令：冻结是layfrz或vplayer并选F选项，解冻是vplayer并选T选项，其他按如下操作：1、若解冻某一具体图层，直接单击所在图层的图形；2、若解冻全部图层，则用通配符“*”并选全部（A）退出即可。注意：laythw只能解冻模型空间中的图层，不能用于视口中。

mj0000

無恒的地盘 发表于 2014-5-9 20:07
LST 是什么,好像都没找到

Lst是函数变量，在 C:Tools-LAY-SKGNDJ函数中的(FreezLayInVPCmd (car VP) DjLst)这句中的DjLst就等于lst。

mj0000

無恒的地盘 发表于 2014-5-9 20:07
LST 是什么,好像都没找到

有个变量错了，不好意思 (FreezLayInVPCmd (car VP) DjLst) 应该为  (FreezLayInVPCmd (car VP) DjKey)   再试试看

無恒的地盘

mj0000 发表于 2014-5-10 15:07
有个变量错了，不好意思 (FreezLayInVPCmd (car VP) DjLst) 应该为  (FreezLayInVPCmd (car VP) DjKey)   ...

2. ;;;按功能在指定视口中冻结特定图层
   
3. (defun C:vb (/ DjKeyN DjKey DjLst VP)
   
4.   (princ "\n*** 选择视口前，请保持视口中有效图层开启 ***")
   
5.   (setvar "cmdecho" 0)
   
6.   (if (= (getvar "tilemode") 0)
   
7.     (progn
   
8.       (setq DjKeyN (mycadgetkword
   
9.            "\n①问墙定位图 ②平面布置图 ③平面家私开线图/索引图 ④天花平面布置图 ⑤天花灯具开线图 ⑥天花灯具指向图 ⑦地面材质铺贴图 ⑧地面材质开线图 ：<1>"
   
10.            '("1" "2" "3" "4" "5" "6" "7" "8" "9") "1")
    
11.       )
    
12. ;;;      (initget 7 "1 2 3 4")
    
13. ;;;      (setq Key (getkword "\n需要设置的视口功能： 1_平面布置 / 2_平面家私开线图/索引图 / 3_天花平面布置图 / 4_天花灯具开线图"))
    
14.       (cond
    
15.         ((= DjKeyN "1") (setq DjKey "F-FL*,C-CE*,P-D*,P-W*,P-F*,P-L*,P-i*"))
    
16.         ((= DjKeyN "2") (setq DjKey "C-CE*,F-FL*"))
    
17.         ((= DjKeyN "3") (setq DjKey "C-CE*,P-D*,P-W*,P-F*,P-L*,P-i*"))
    
18.         ((= DjKeyN "4") (setq DjKey "P-D*,P-W*,P-F*,P-L*,P-i*"))
    
19.         ((= DjKeyN "5") (setq DjKey "P-D*,P-W*,P-F*,P-L*,P-i*"))
    
20.         ((= DjKeyN "6") (setq DjKey "*填充*"))
    
21.         ((= DjKeyN "7") (setq DjKey "*填充*"))
    
22.         ((= DjKeyN "8") (setq DjKey "*填充*"))
    
23.       )
    
24.       (command "_PSPACE")
    
25.       (if (setq VP (entsel "\n选择要冻结图层的视口："))
    
26.   (FreezLayInVPCmd (car VP) DjKey)
    
27.       )
    
28.     )
    
29.     (princ "\n该命令仅允许在布局空间有效运行！")
    
30.   )
    
31.   (princ)
    
32. )
    
33. ;;;支持通配符
    
34. (defun FreezLayInVPCmd (Ven Lst / ENT)
    
35.   (if (and (= (getvar "tilemode") 0) (= (getvar "cvport") 1)) ;_判断鼠标是否在布局空间
    
36.     (progn
    
37.       (setq ENT (cdr (assoc 69 (entget Ven))))
    
38.       (command "_.MSPACE") ;_切换到模型空间
    
39.       (setvar "cvport" ENT)
    
40.       (command "_.vplayer" "F" LST "" "") ;_在模型空间中操作，冻结
    
41.       (command "_PSPACE") ;_切换到布局空间
    
42.     )
    
43.     (princ "\n*** 该命令仅允许在布局空间有效运行，请将鼠标切换到布局空间 ***")
    
44.   )
    
45. )

;;;按功能在指定视口中冻结特定图层<br /> (defun C:vb (/ DjKeyN DjKey DjLst VP)<br />   (princ "\n*** 选择视口前，请保持视口中有效图层开启 ***")<br />   (setvar "cmdecho" 0)<br />   (if (= (getvar "tilemode") 0)<br />     (progn<br />       (setq DjKeyN (mycadgetkword<br />            "\n①问墙定位图 ②平面布置图 ③平面家私开线图/索引图 ④天花平面布置图 ⑤天花灯具开线图 ⑥天花灯具指向图 ⑦地面材质铺贴图 ⑧地面材质开线图 ：<1>"<br />            '("1" "2" "3" "4" "5" "6" "7" "8" "9") "1")<br />       )<br /> ;;;      (initget 7 "1 2 3 4")<br /> ;;;      (setq Key (getkword "\n需要设置的视口功能： 1_平面布置 / 2_平面家私开线图/索引图 / 3_天花平面布置图 / 4_天花灯具开线图"))<br />       (cond<br />         ((= DjKeyN "1") (setq DjKey "F-FL*,C-CE*,P-D*,P-W*,P-F*,P-L*,P-i*"))<br />         ((= DjKeyN "2") (setq DjKey "C-CE*,F-FL*"))<br />         ((= DjKeyN "3") (setq DjKey "C-CE*,P-D*,P-W*,P-F*,P-L*,P-i*"))<br />         ((= DjKeyN "4") (setq DjKey "P-D*,P-W*,P-F*,P-L*,P-i*"))<br />         ((= DjKeyN "5") (setq DjKey "P-D*,P-W*,P-F*,P-L*,P-i*"))<br />         ((= DjKeyN "6") (setq DjKey "*填充*"))<br />         ((= DjKeyN "7") (setq DjKey "*填充*"))<br />         ((= DjKeyN "8") (setq DjKey "*填充*"))<br />       )<br />       (command "_PSPACE")<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 /> )

小毛草

兄弟，成功了！在AUTOCAD2004可以用了！多谢！

xieyanghui

在CAD2012还是不行，提示*** 选择视口前，请保持视口中有效图层开启 ***Error: no function definition: MYCADGE