各位大神帮忙看下，如图一个部分隐藏的功能，求大神增加如下功能

664571221

输入tt，选中图元，回车后隐藏物体，如果继续回车，则显示隐藏的物体，如此循环，只要选中一次图元，然后就按空格键循环隐藏显示

;;部分隐藏
(defun C:BFYC (/ OBJ)
  (princ "【部分隐藏】")
  (obj_onf (ssget) :vlax-false)
  (princ)
)

;;快速隐藏物体
(vl-load-com)
;对象显示与隐藏
(defun obj_onf (ss mode)
  (if (= (type ss) 'PICKSET)
    (vlax-for OBJ (vla-get-activeselectionset
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (if (/=(vla-get-visible OBJ) mode) (vla-put-visible OBJ mode))
    )
  )
)
;图层显示与隐藏
(defun lay_onf (LayName mode)
  (if (= (type LayName) 'STR)
    (vlax-for lay (vla-get-layers
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (if (eq (strcase (vla-get-name lay)) (strcase LayName))
  (if(/=(vla-get-layeron lay) mode)
    (vla-put-layeron lay mode)
    )
  )
    )
  )
)

;;;把选择集的物体转化为Lisp 图元表
(defun S2L:ENT (ss / i l objs)
  (setq i -1 l (sslength ss) objs nil)
  (repeat l
    (setq objs (cons  (ssname ss (setq i (1+ i))) objs))
  )
)
;;;把选择集的物体转化为VLisp 图元表
(defun S2V:ENT (ss / i l objs)
  (setq i -1 l (sslength ss) objs nil)
  (repeat l
    (setq objs (cons  (vlax-ename->vla-object (ssname ss (setq i (1+ i)))) objs))
  )
)

潘高寿

帮顶

xyp1964

1. ;; bfyc(部分隐藏)
   
2. (defun c:bfyc ()
   
3.   (princ "【部分隐藏】")
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (setq mode t  a 1)
   
7.       (while mode
   
8.         (setq ukw (Ukword 1 "1 2" "1-隐藏显示切换/2-退出" ukw))
   
9.         (if (= ukw "2")
   
10.           (setq mode nil)
    
11.           (cond ((and (= ukw "1") (= a 1))
    
12.                  (SS-VS ss :vlax-false)
    
13.                  (setq a 0)
    
14.                 )
    
15.                 ((and (= ukw "1") (= a 0))
    
16.                  (SS-VS ss :vlax-true)
    
17.                  (setq a 1)
    
18.                 )
    
19.           )
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. 
    
27. ;; 对象显示与隐藏
    
28. (defun SS-VS (ss mode)
    
29.   (if (= (type ss) 'PICKSET)
    
30.     (vlax-for OBJ (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
    
31.       (if (/= (vla-get-visible OBJ) mode)
    
32.         (vla-put-visible OBJ mode)
    
33.       )
    
34.     )
    
35.   )
    
36. )

;; bfyc(部分隐藏)<br /> (defun c:bfyc ()<br />   (princ "【部分隐藏】")<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq mode t  a 1)<br />       (while mode<br />         (setq ukw (Ukword 1 "1 2" "1-隐藏显示切换/2-退出" ukw))<br />         (if (= ukw "2")<br />           (setq mode nil)<br />           (cond ((and (= ukw "1") (= a 1))<br />                  (SS-VS ss :vlax-false)<br />                  (setq a 0)<br />                 )<br />                 ((and (= ukw "1") (= a 0))<br />                  (SS-VS ss :vlax-true)<br />                  (setq a 1)<br />                 )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 对象显示与隐藏<br /> (defun SS-VS (ss mode)<br />   (if (= (type ss) 'PICKSET)<br />     (vlax-for OBJ (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />       (if (/= (vla-get-visible OBJ) mode)<br />         (vla-put-visible OBJ mode)<br />       )<br />     )<br />   )<br /> )

zmzk

版主的程序是不是得 装你的 e派工具箱 才好使？？

广厦千万

Ukword是什么命令？

l982414603

帮顶