各位大神帮我看下这个隐藏显示的程序，改为多选图层后对图层进行隐藏显示

664571221

(defun c:YCXS()
  (if ss3
    (progn
      (redrawss ss3 1)(setq ss3 nil)
    )
    (progn
       (setq ss3(ssadd))
       (while(setq ss(ssget ":s"))
        (setq i 0)
        (repeat (sslength ss)
          (ssadd (ssname ss i) ss3)
          (setq i(1+ i))
          )
        (redrawss ss3 2)
        )
      )
    )
  (princ)
  )

;;;显示隐藏亮显消隐函数 1.显示图元 2. 隐藏图元（使其不可见）3.亮显图元 4.不亮显图元
(defun Redrawss (ss mode)
     (mapcar '(lambda (x) (redraw x mode))
             (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
     )
   )

嘒彼小星

波总不是说发过的嘛 没找到嘛

wzg356

cad自带11111111111111

664571221

嘒彼小星 发表于 2023-11-26 14:40
波总不是说发过的嘛 没找到嘛

波总那个好像不行

bonny

664571221 发表于 2023-11-26 15:44
波总那个好像不行

2. (defun c:tt (/ g lp s)
   
3.         (if (and (setq s (ssget))
   
4.                                 (setq s (apply 'strcat (mapcar '(lambda(x)(strcat (cdr (assoc 8 (entget x)))","))(vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))))
   
5.                                 (setq s (ssget "X" (list (cons 8 s))))
   
6.                         )
   
7.                 (while (progn (princ "\n空格循环切换(ESC退出)")(setq g (grread t 15)))
   
8.                         (if (equal g '(2 32))
   
9.                                 (if (null lp)
   
10.                                         (progn (setq lp t)(command "hideobjects" s ""))
    
11.                                         (progn (setq lp nil)(command "UNISOLATEOBJECTS" ))
    
12.                                 )
    
13.                         )                       
    
14.                 )
    
15.         )       
    
16. )

(defun c:tt (/ g lp s)<br />         (if (and (setq s (ssget))<br />                                 (setq s (apply 'strcat (mapcar '(lambda(x)(strcat (cdr (assoc 8 (entget x)))","))(vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))))<br />                                 (setq s (ssget "X" (list (cons 8 s))))<br />                         ) <br />                 (while (progn (princ "\n空格循环切换(ESC退出)")(setq g (grread t 15)))<br />                         (if (equal g '(2 32))<br />                                 (if (null lp)<br />                                         (progn (setq lp t)(command "hideobjects" s ""))<br />                                         (progn (setq lp nil)(command "UNISOLATEOBJECTS" ))<br />                                 )<br />                         )                        <br />                 )<br />         )        <br /> )

masterlong

波总的这个隐藏方法挺有意思的
改60组码或者vla-put-Visible都不能恢复显示
隐藏前后查60组码也确实没变
而vlax-Dump-Object查看Visible是不一样的

如果是直接修改60组码
那前后的Visible也是不一样的

换句话说
Visible设为不可见时
对应了两种隐藏方式