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

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 ( / 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 · 发表于 2021-6-5 09:03:49

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

tranney 发表于 2021-6-4 21:26
;;;※vcf,vcf,选择要冻结当前布局视口中图层上的对象
(defun c:vcf ( / en lay 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 . ...

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

账号		自动登录	找回密码
密码			注册