选择对象，然后隐藏

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

copy

(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