隐藏显示实体

286168051

1. (defun c:yc ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq ss (ssget))
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq sn (ssname ss i))
   
7.     (setq ent (entget sn))
   
8.     (setq lx (cdr (assoc 60 ent)))
   
9.     (if        (= lx nil)
   
10.       (progn
    
11.         (setq a (list (cons 60 1)))
    
12.         (setq ent (append ent a))
    
13.         (entmod ent)
    
14.       )
    
15.     )
    
16.     (if        (/= lx nil)
    
17.       (progn
    
18.         (setq ent (subst (cons 60 1) (assoc 60 ent) ent))
    
19.         (entmod ent)
    
20.       )
    
21.     )
    
22.     (setq i (1+ i))
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun c:xs ()
    
27.   (setvar "cmdecho" 0)
    
28.   (setq ss (ssget "x"))
    
29.   (setq i 0)
    
30.   (repeat (sslength ss)
    
31.     (setq sn (ssname ss i))
    
32.     (setq ent (entget sn))
    
33. 
    
34.     (setq ent (subst (cons 60 0) (assoc 60 ent) ent))
    
35.     (entmod ent)
    
36. 
    
37.     (setq i (1+ i))
    
38.   )
    
39.   (princ)
    
40. )
    

(defun c:yc ()<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq sn (ssname ss i))<br />     (setq ent (entget sn))<br />     (setq lx (cdr (assoc 60 ent)))<br />     (if        (= lx nil)<br />       (progn<br />         (setq a (list (cons 60 1)))<br />         (setq ent (append ent a))<br />         (entmod ent)<br />       )<br />     )<br />     (if        (/= lx nil)<br />       (progn<br />         (setq ent (subst (cons 60 1) (assoc 60 ent) ent))<br />         (entmod ent)<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br /> (defun c:xs ()<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget "x"))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq sn (ssname ss i))<br />     (setq ent (entget sn))<br /> <br />     (setq ent (subst (cons 60 0) (assoc 60 ent) ent))<br />     (entmod ent)<br /> <br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />

LYC688

反显示可不可以？

oistre

牛牛牛，大神！

669423907

回复 286168051 的帖子

请问楼主是否方便改成隐藏未选择对象呢？很有用啊！

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

panliang9

好东西啊!

楼主！这两个命令的好处就在于不但可以隐藏，而且刷新后也看不见，我一直以为这是无法实现了，想不到真存在这样的东西。

这是我在另一个贴子时贴的在位块编辑只显示命令，但这个一刷新，周围的对象都出现了：
在位块编辑只显示命令L
(defun C:a()
  (command "move" "all" "" "0,0" "0,0")
  (COMMAND "SELECT" "ALL" "R" "P" "")
  (SETQ SS (SSGET "P"))
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (REDRAW (SSNAME SS (SETQ I (1+ I))) 2)
  )
)

楼主大人，能不能用你的这个原理帮我编一个同样的“在位块编辑只显示命令”呢！
即刷新也不会出现的在位块编辑命令！这东西对我和我的同事们意义非常的大！
我在这里至盼了！

669423907

回复 ZZXXQQ 的帖子

好！很好！非常好！

明_明

,请问怎么再显示回来呢?

Andyhon

回复 明_明 的帖子

(setq ent (subst (cons 60 1) (assoc 60 ent) ent))
(entmod ent)
===>
(setq ent (subst (cons 60 0) (assoc 60 ent) ent))
(entmod ent)

明_明

Andyhon 发表于 2011-7-5 13:49
回复 明_明 的帖子

(setq ent (subst (cons 60 1) (assoc 60 ent) ent))

多谢指点

panliang9

楼主，你好！

显示和隐藏命令都非常好啦，能不能用同样的方法做一个“在位块编辑只显示命令”呢。我原来用的那一个“在位块编辑也能用，但是刷新一下，周围的对象又出来了！

原来的那个程序实际上就是做了一个原位移动，然后获得了当前编辑块的选择集，不知道你的程序用这样的方法实现“在位块编辑只显示”行不行，应该是可以的吧！

这个东西对我们太重要了，我们图中的块很多，每天大量的时候都在编辑块，如果能做到“在位块编辑只显示”，而且刷新也不显示周围的对象，这对我们意义太大了！


希望楼主能在百忙之中弄一下这个命令，这是非常非常有价值的！

至盼了！

286168051

可以的 最近比较忙 明天给你答复吧