请问为什么隐显对象对象有时行有时不行

xiaxiang

2. ;隐藏或显示部分图形
   
3. ;作者wujimmy 来自:http://www.wujimmy.com
   
4. ;修改自XIAXIANG 明经通道
   
5. (setq wjm_hide_lst nil)
   
6. (defun c:ee( / es es1 es2 bz)
   
7. (setq index_num (getint "图形组编号:"))
   
8. (princ "\n选择要显示或隐藏的图形:")
   
9. (initget "Z F ")
   
10. (setq bz (getkword "\n正向选择-Z/反向选择-F<Z>:"))
    
11.   (cond
    
12. 
    
13. ((= bz "F")
    
14. (setq es (ssget ))
    
15. )
    
16. 
    
17.   (T
    
18.   (setq es1 (ssget))
    
19.   (setq es2 (ssget "_x"))
    
20.   (command "_.select" ES1 "a" ES2 "r" ES1 "")
    
21.   (setq es (ssget "P"))
    
22.   )
    
23. );end cond
    
24. (if es
    
25. (progn
    
26. 
    
27. (if (assoc index_num wjm_hide_lst)
    
28. (progn
    
29. (if (null(caddr(assoc index_num wjm_hide_lst))) (wjm_show_hide index_num) );_如果原来图层是关着的,就打开显示.
    
30. (setq wjm_hide_lst (subst (list index_num es t)(assoc index_num wjm_hide_lst) wjm_hide_lst )))
    
31. (setq wjm_hide_lst (append wjm_hide_lst (list (list index_num es t))))
    
32. )
    
33. (eval (read (strcat"(defun c:" (rtos index_num 2 0)"() (wjm_show_hide "(rtos index_num 2 0) "))")))
    
34. )
    
35. )
    
36. )
    
37. 
    
38. (defun wjm_show_hide(index_num / i% es index_num mid isShow )
    
39. ;(setq index_num 1)
    
40. (setq mid (assoc index_num wjm_hide_lst))
    
41. (setq es (cadr mid))
    
42. (setq isShow (null (caddr mid)))
    
43. (setq wjm_hide_lst (subst (list index_num es isShow)(assoc index_num wjm_hide_lst) wjm_hide_lst ))
    
44. (setq i% 0)
    
45. (repeat (sslength es)
    
46. (if isShow
    
47. (redraw (ssname es i%) 1)
    
48. (redraw (ssname es i%) 2)
    
49. )
    
50. (setq i% (1+ i%))
    
51. )
    
52. (if isShow
    
53. (princ "\n已经全部显示!")
    
54. (princ "\n已经全部隐藏!")
    
55. )
    
56. (princ)
    
57. )
    
58. (princ "\n ******* 显示隐藏编号程序已加载。命令: EE ************\n")
    
59. (princ)

;隐藏或显示部分图形<br /> ;作者wujimmy 来自:http://www.wujimmy.com<br /> ;修改自XIAXIANG 明经通道<br /> (setq wjm_hide_lst nil)<br /> (defun c:ee( / es es1 es2 bz)<br /> (setq index_num (getint "图形组编号:"))<br /> (princ "\n选择要显示或隐藏的图形:")<br /> (initget "Z F ")<br /> (setq bz (getkword "\n正向选择-Z/反向选择-F<Z>:"))<br />   (cond<br /> <br /> ((= bz "F")<br /> (setq es (ssget ))<br /> )<br /> <br />   (T<br />   (setq es1 (ssget))<br />   (setq es2 (ssget "_x"))<br />   (command "_.select" ES1 "a" ES2 "r" ES1 "")<br />   (setq es (ssget "P"))<br />   )<br /> );end cond<br /> (if es<br /> (progn<br /> <br /> (if (assoc index_num wjm_hide_lst)<br /> (progn<br /> (if (null(caddr(assoc index_num wjm_hide_lst))) (wjm_show_hide index_num) );_如果原来图层是关着的,就打开显示.<br /> (setq wjm_hide_lst (subst (list index_num es t)(assoc index_num wjm_hide_lst) wjm_hide_lst )))<br /> (setq wjm_hide_lst (append wjm_hide_lst (list (list index_num es t))))<br /> )<br /> (eval (read (strcat"(defun c:" (rtos index_num 2 0)"() (wjm_show_hide "(rtos index_num 2 0) "))")))<br /> )<br /> )<br /> )<br /> <br /> (defun wjm_show_hide(index_num / i% es index_num mid isShow )<br /> ;(setq index_num 1)<br /> (setq mid (assoc index_num wjm_hide_lst))<br /> (setq es (cadr mid))<br /> (setq isShow (null (caddr mid)))<br /> (setq wjm_hide_lst (subst (list index_num es isShow)(assoc index_num wjm_hide_lst) wjm_hide_lst ))<br /> (setq i% 0)<br /> (repeat (sslength es)<br /> (if isShow<br /> (redraw (ssname es i%) 1)<br /> (redraw (ssname es i%) 2)<br /> )<br /> (setq i% (1+ i%))<br /> )<br /> (if isShow<br /> (princ "\n已经全部显示!")<br /> (princ "\n已经全部隐藏!")<br /> )<br /> (princ)<br /> )<br /> (princ "\n ******* 显示隐藏编号程序已加载。命令: EE ************\n") <br /> (princ)

xgr

我觉得还要加个显示出隐藏实体的窗体就好，在窗体内选择已经隐藏的实体，再次打开操作。
不知G版的功能怎样，看看。

flytoday

G版兄弟太好了好人啊谢谢

flytoday

G版这个应列入明经出书的光盘源码。。这个太好了

1993063

g版总是那么热心！

功夫佬

看看，怎么研究

lz123456

G版的程序一定要看

CTC

看看G版

1993063

flytoday 发表于 2012-3-31 15:21
严哥这个在天正中多选择对象直接CAD崩溃，。卡住退出了哦。。不过也是很感谢

;看看这个怎么样
(defun c:ocu (/ sel_vis cant_vis cont_vis sel_ocu cant_ocu cont_ocu obj_ocu vlobj_ocu ocu obj_vis vlobj_vis vis)
   (vl-load-com)
   (setq sel_vis (ssget))
   (setq cant_vis (sslength sel_vis))
   (setq cont_vis 0)

   (setq sel_ocu (ssget "_X"))
   (setq cant_ocu (sslength sel_ocu))
   (setq cont_ocu 0)
   (repeat cant_ocu
      (setq obj_ocu (ssname sel_ocu cont_ocu))
      (setq vlobj_ocu (vlax-ename->vla-object obj_ocu))
      (setq ocu (vla-get-visible vlobj_ocu))
      (if (= ocu :vlax-true)
         (vla-put-visible vlobj_ocu 0)
         (vla-put-visible vlobj_ocu -1)
      )
      (setq cont_ocu (1+ cont_ocu))
   )
   (repeat cant_vis
      (setq obj_vis (ssname sel_vis cont_vis))
      (setq vlobj_vis (vlax-ename->vla-object obj_vis))
      (setq vis (vla-get-visible vlobj_vis))
      (if (= vis :vlax-false)
         (vla-put-visible vlobj_vis -1)
         (vla-put-visible vlobj_vis 0)
      )
      (setq cont_vis (1+ cont_vis))
   )
   (prin1)
)

flytoday

G版的对天正对象还是会
; 错误: Automation 错误。未提供说明。