双重“隐藏/隔离对象”
大家好，如果您可以隐藏两组不同的对象并在不同时间显示，请告诉我。让我解释一下：
命令“hide1”隐藏第一组对象，命令“hide2”隐藏第二组对象，命令“unhide1”仅显示第一组对象，命令“unhide2”仅显示第二组对象，命令“unhide1+2”全部取消隐藏。
lisp还可能包括控件“隔离”和“切换”。
现在我使用这个lisp：
(defun OFF (OL / OBJNUM SSOBJ OBJECT OBJLIST)
(setq OBJNUM 0)
(repeat (sslength OL)
(setq SSOBJ (entget (ssname OL OBJNUM))
OBJNUM (+ OBJNUM 1)
OBJECT (append SSOBJ (list (cons 60 1)))
)
(if (= (cdr (assoc 0 SSOBJ)) "VIEWPORT")
(princ "\nViewports cannot be turned off.")
(entmod OBJECT)
)
)
)
(defun ON (OL / OBJNUM SSOBJ OBJECT)
(setq OBJNUM 0)
(repeat (sslength OL)
(setq SSOBJ (entget (ssname OL OBJNUM))
OBJNUM (+ OBJNUM 1)
OBJECT (subst (cons 60 0) (assoc 60 SSOBJ) SSOBJ)
)
(entmod OBJECT)
)
)
(defun C:OFF (/ OBJLIST)
(if (setq OBJLIST (ssget))
(OFF OBJLIST)
(princ "\nNo objects selected to turn off.")
)
)
(defun C:ON (/ OBJLIST OBJON OBJLISTLEN)
(if (setq OBJLIST (ssget "x" (list (cons 60 1))))
(progn
(ON OBJLIST)
(progn
(princ "\nSelect objects to turn on, or for all on.")
(setq OBJON (ssget))
(OFF OBJLIST)
(if OBJON
(ON OBJON)
(ON OBJLIST)
)
)
)
(princ "\nNo objects found to turn on.")
)
)
(defun C:TOGGLE (/ OBJLISTOFF OBJLISTON)
(setq OBJLISTOFF (ssget "x" (list (cons 60 1)))
OBJLISTON (ssget "x" (list (cons 60 0)))
)
(if OBJLISTOFF
(ON OBJLISTOFF)
(princ "\nNo objects found to toggle on.")
)
(if OBJLISTON
(OFF OBJLISTON)
(princ "\nNo objects found to toggle off.")
)
)
(defun C:ISOLATE (/ OBJLISTISO)
(if (setq OBJLISTISO (ssget))
(progn
(OFF (ssget "x"))
(ON OBJLISTISO)
)
(princ "\nNo objects selected to isolate.")
)
)
非常感谢！！！
马可
对不起我的英语：哎呀： 你好
您可以使用函数（entlast）并提示输入两个选择集，因此您可以通过变量的名称对它们进行控制。
(setq ss1 (ssget))
(setq ssNme1 (entlast))
(setq ss2 (ssget))
(setq ssNme2 (entlast))
当做
塔瓦特 我不久前写了一个程序来隔离物体，不管它们在哪一层。
您可以创建命名组并将其打开或关闭。因此，无论是哪一层，您都可以拥有多个对象，创建一个组，然后拥有其他组，并通过带有树的对话框切换它们。请在我的网站上查看，它可能会给你一些想法
它被称为3D/2D对象控制
如果你想下载它是一个VLX文件，lisp太多了，无法发布
http://www.jmhsoftware.com/4_QD%20Isolate.htm 你好
谢谢，我看过你写的节目，我觉得很有趣
Tharwat313感谢你的建议，但承认不知道lisp语言，也不知道该如何更改我发布的内容。
我想象了一个简单快速的lisp。
我将auatocad设置为没有图标，然后我更改了PGP，使其能够访问我经常使用的命令，例如与图层显示、选择过滤器和对象隔离相关的命令。
然后我想象了一个lisp“双重隐藏”非常快地使用，然后几个步骤，几个菜单等。
例如，命令会话可以是：
“H”，“空格键”，“选择对象-先隐藏”
“HH”，“空格键”“选择对象-第二次隐藏
“呃”，“空格键”-先取消隐藏
“UHH”，“空格键”-取消隐藏秒
不看菜单或其他。
无论如何，谢谢你的关注。
虽然我不懂lisp语言，但我觉得这个网站真的很棒，很有趣。
马可 关于隐藏命令，你可以使用下岗，这将控制你的所有问题，除此之外，你可以
通过PGP文件对其进行缩写。
当做
塔瓦特 看看重画功能，它将允许您在屏幕上隐藏（2）和显示（1）实体。
当做 你好
我已经使用自定义别名来显示层。
我经常使用LayON和LayFRZ来控制LayON和LayTHW。
它们单独工作，对对象的显示具有相同的效果。
有时我需要打开并解冻所有图层，并长时间隐藏图形的大部分（重生成），
在工作中隐藏/显示一小部分（易于再生）。
为此，我认为可以进行双重隐藏/取消隐藏。
我不知道lisp语言，我也不知道它是否很难写。。。
谢谢
马可
页:
[1]