不用BEDIT命令，怎么修改块内的实体不可见？

lisp_beginner

不用BEDIT命令，怎么修改块内的实体不可见？

csharp

2. 
   
3. (defun c:tt (/ updatess e blk bn ss)
   
4.   (defun updatess (ss / i e)
   
5.     (setq i 0)
   
6.     (while (setq e (ssname ss i))
   
7.       (entupd e)
   
8.       (setq i (1+ i))
   
9.     )
   
10.   )
    
11.   (while (setq e (nentsel "\npick entity: "))
    
12.     (entmod (append (entget (car e)) '((60 . 1))))
    
13.     (if        (> (length e) 2)
    
14.       (progn
    
15.         (setq blk (last (last e))
    
16.               bn  (assoc 2 (entget blk))
    
17.         )
    
18.         (if (setq ss (ssget "x" (list bn)))
    
19.           (updatess ss)
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

<br /> (defun c:tt (/ updatess e blk bn ss)<br />   (defun updatess (ss / i e)<br />     (setq i 0)<br />     (while (setq e (ssname ss i))<br />       (entupd e)<br />       (setq i (1+ i))<br />     )<br />   )<br />   (while (setq e (nentsel "\npick entity: "))<br />     (entmod (append (entget (car e)) '((60 . 1))))<br />     (if        (> (length e) 2)<br />       (progn<br />         (setq blk (last (last e))<br />               bn  (assoc 2 (entget blk))<br />         )<br />         (if (setq ss (ssget "x" (list bn)))<br />           (updatess ss)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

marting

用VL，TT1，设置隐藏，TT2块内所有的都可见。

1. (defun c:tt1 ()
   
2.   (if (setq e (nentsel "\n拾取块内实体<退出>:"))
   
3.     (progn (setq e (car e)
   
4.                  o (vlax-ename->vla-object e)
   
5.            )
   
6.            (vla-put-Visible o :vlax-false)
   
7.            (vla-regen (vla-get-activedocument (vlax-get-acad-object))
   
8.                       acAllViewports
   
9.            )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt1 ()<br />   (if (setq e (nentsel "\n拾取块内实体<退出>:"))<br />     (progn (setq e (car e)<br />                  o (vlax-ename->vla-object e)<br />            )<br />            (vla-put-Visible o :vlax-false)<br />            (vla-regen (vla-get-activedocument (vlax-get-acad-object))<br />                       acAllViewports<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br />

1. (defun c:tt2 ()
   
2.   (if (and (setq e (car (entsel "\n拾取块<退出>:")))
   
3.            (setq o (vlax-ename->vla-object e))
   
4.            (= (vla-get-objectname o) "AcDbBlockReference")
   
5.            (setq blkname (vla-get-name o))
   
6.       )
   
7.     (progn (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
   
8.            (setq blks (vla-get-blocks acdoc))
   
9.            (setq blk (vla-item blks blkname))
   
10.            (vlax-for ent blk (vla-put-Visible ent :vlax-true))
    
11.            (vla-regen acdoc acAllViewports)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:tt2 ()<br />   (if (and (setq e (car (entsel "\n拾取块<退出>:")))<br />            (setq o (vlax-ename->vla-object e))<br />            (= (vla-get-objectname o) "AcDbBlockReference")<br />            (setq blkname (vla-get-name o))<br />       )<br />     (progn (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))<br />            (setq blks (vla-get-blocks acdoc))<br />            (setq blk (vla-item blks blkname))<br />            (vlax-for ent blk (vla-put-Visible ent :vlax-true))<br />            (vla-regen acdoc acAllViewports)<br />     )<br />   )<br />   (princ)<br /> )<br />