社区 › CAD › 选择对象，然后隐藏

Butch 发表于 2022-7-8 11:45:48

选择对象，然后隐藏

标题说明了一切。
我想使用quickselect并隐藏选定的对象。
这可能吗？
提前感谢：-）

lpseifert 发表于 2022-7-8 11:53:56

你的版本有命令AecHideObjects吗？

Butch 发表于 2022-7-8 11:57:37

似乎不是：-（

Cad64 发表于 2022-7-8 12:05:10

抱歉，在Autocad中无法执行此操作。您需要关闭或冻结对象所在的图层。

Butch 发表于 2022-7-8 12:09:48

谢谢Cad64:-）

lynchwu 发表于 2022-7-8 12:14:46

(DEFUN C:ObjHide ()
(princ "\nSelect hide:")
(if (null SSenth)
(princ)
(progn
(setq ssolb SSenth)
(setq sseolb SSeobj)
);end progn
);end if
(initget 1)
(setq SST (ssget))
(if (null sst)
(princ)
(progn
(setq sseobj sst)
(setq SSenth (sslength SSeobj))
(setq nob 0)
(repeat SSenth
   (setq SSent (ssname SSeobj nob))
   (redraw ssent 2)
   (setq nob (+ nob 1))
);end repeat
(if (null ssolb)
   (princ)
   (progn
    (setq SSenth (+ SSolb SSenth));回归实体数
    (setq nob 0)
    (repeat SSolb
   (setq SSent (ssname SSeolb nob))
   (setq SSeobj (ssadd SSent sseobj))
   (setq nob (+ nob 1))
    );end repeat(回归实体集)
   );end progn
);end if
(princ)
);end progn
);end if
);end defun
   
(DEFUN C:ObjShow ()
(setq nob 0)
(if (null ssenth)
(princ "\n No hide object.")
(progn
(repeat SSenth
   (setq SSent (ssname SSeobj nob));
   (redraw ssent 1);
   (setq nob (+ nob 1))
);end repeat
(setq ssenth nil)
(setq ssolb nil)
(setq sseolb nil)
(setq SSend nil)
);end progn
);end if
(princ)
);end defun                           

Cad64 发表于 2022-7-8 12:22:53

谢谢林奇武，但是你能稍微解释一下这个例程的作用吗？这是你自己写的吗？如果没有，请向作者致谢：眨眼：

lynchwu 发表于 2022-7-8 12:25:21

“选择对象，然后隐藏它们”
我不认识作者，是从
互联网

Butch 发表于 2022-7-8 12:29:54

....他写的这篇文章怎么用？

fuccaro 发表于 2022-7-8 12:36:39

请参见此处：http://www.cadtutor.net/forum/showthread.php?t=1390

查看完整版本: 选择对象，然后隐藏