chenry676 发表于 2021-6-1 11:19:10

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

本帖最后由 chenry676 于 2021-6-21 10:55 编辑

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

tranney 发表于 2021-6-4 21:26:24

;;;※vcf,vcf,选择要冻结当前布局视口中图层上的对象
(defun c:vcf ( / enlay 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 发表于 2021-6-5 09:03:49

本帖最后由 chenry676 于 2021-6-5 09:17 编辑

tranney 发表于 2021-6-4 21:26
;;;※vcf,vcf,选择要冻结当前布局视口中图层上的对象
(defun c:vcf ( / enlay lay_list)
(princ "请 ...
我是不希望进入到模型中选择对象，是希望选择该视口边框线就达到目的（注意是视口，要能窗选单选或者多选，如图，要能隐藏或显示切换），但还是谢谢您，目前源泉、海龙、迷你等插件均未达到此功能，选择对象太繁琐了。

start4444 发表于 2021-6-8 18:54:17

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

chenry676 发表于 2021-6-8 23:37:46

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

chenry676 发表于 2021-6-10 00:01:41

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

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

读古明今 发表于 2023-8-6 19:06:33

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

代码可以关闭视口，但是不能重新显示视口，能否调整下:lol
页: [1]
查看完整版本: 请问如何直接选择视口关闭或显示当前层？（已解决）