请问如何直接选择视口关闭或显示当前层？（已解决）

chenry676

请问如何直接选择视口关闭或显示当前层？

tranney

;;;※vcf,vcf,选择要冻结当前布局视口中图层上的对象
(defun c:vcf ( / en  lay lay_list)
  (princ "请选择要冻结当前布局视口中图层上的对象<单选>.")
        (setq lay_list '())
  (setq key T)
        (while key
          (if (setq en (nentsel "\n请选择需要关闭的图层<空选或回车结束>:"))
            (progn
                    (setq ent (car en)
                      lay (cdr (assoc 8 (entget ent)))
                    );end setq
                                (setq lay_list (cons lay lay_list))
            )
                        (setq key nil)
          );end if
        )
        (repeat (length lay_list)
                (setq lay (car lay_list))
                (command "VPLAYER" "F" lay "" "")
                (setq lay_list (cdr lay_list))
        )
        (princ)
)

chenry676

tranney 发表于 2021-6-4 21:26
;;;※vcf,vcf,选择要冻结当前布局视口中图层上的对象
(defun c:vcf ( / en  lay lay_list)
  (princ "请 ...

我是不希望进入到模型中选择对象，是希望选择该视口边框线就达到目的（注意是视口，要能窗选单选或者多选，如图，要能隐藏或显示切换），但还是谢谢您，目前源泉、海龙、迷你等插件均未达到此功能，选择对象太繁琐了。

start4444

(defun c:tt5 (/ lay)               
(setq lay (getvar "clayer"))       
(command "VPLAYER" "f" lay "s" (ssget '((0 . "VIEWPORT"))) "" "")              
(princ)
)

chenry676

错误: 参数类型错误: numberp: nil

chenry676

start4444 发表于 2021-6-8 18:54
(defun c:tt5 (/ lay)               
(setq lay (getvar "clayer"))       
(command "VPLAYER" "f" lay "s" (ssget '((0 .  ...

错误: 参数类型错误: numberp: nil

读古明今

start4444 发表于 2021-6-8 18:54
(defun c:tt5 (/ lay)               
(setq lay (getvar "clayer"))       
(command "VPLAYER" "f" lay "s" (ssget '((0 .  ...

代码可以关闭视口，但是不能重新显示视口，能否调整下