（完成）[建议]：晓东工具急待改进的命令（执行速度奇慢）

doongs

晓东工具箱的很难执行的命令（速度奇慢，还常死机……）
①        常常对一些复杂的图形修改，就要用到那个实体隐藏和取消的命令，但在取消隐藏的时候常常速度奇慢，如果有一些填充和文字实体时，我就要停下来泡上一杯茶（科学的利用时间），当然这是好的状态，如果当你喝完水以后还发现CAD没有动静，这时你按CRTL＋ALT＋DEL键就发现CAD没有响应，这时你得平静，因为你还没有办法存盘（在经过几次惨痛的教训后我就把自动存盘改成了5分钟），强烈建议修改算法；
②        因为填充要求多，我常常要检查实体的Z坐标是否为0（重要性是不言而喻的），在发现晓东工具箱有一个Z坐标为0的命令后我是欣喜若狂，太爽了。誰知用过了以后一点都不爽，仅对一些单线条操作很有效，如果是一个pline线的时候，下面的状态条就出现了那个温情脉脉的提示“请稍等，处理中……”好了，我的喝茶时间又到了；
我用的是CAD2002，WIN98操作系统，奔三800（好象是破旧了一点），DDR256M内存，64M的Winfast显卡

XDSoft

最初由 doongs 发布
[B]晓东工具箱的很难执行的命令（速度奇慢，还常死机……）
①        常常对一些复杂的图形修改，就要用到那个实体隐藏和取消的命令，但在取消隐藏的时候常常速度奇慢，如果有一些填充和文字实体时，我就要停下来泡上一杯茶?.. [/B]

1、你的图一定非常大，隐藏实体推荐你别用，换用下版本工具箱和现在论坛提供过的程序，“图层孤立”，“孤立恢复”、“图层保留”、“图层关闭”等，速度很快。如果非要实体隐藏的话，以后修改下，对当前图的隐藏过的实体重新修正下算法。

2、Z坐标为0好像论坛提供过多个版本，有快、有慢的，慢的考虑的要多，比如块内实体等等。以后的版本尽量给大家一个快的吧。

谢谢你的建议！

XDSoft

程序已经修改了，现在速度很快了，试试

2. [font=courier new]
   
3. ;|
   
4.    命令：XDTB_EntityOFF
   
5.    功能：隐藏选择的实体
   
6. |;
   
7. (defun c:XDTB_EntityOFF (/ ss e)
   
8.   (prompt "\n请选取要隐藏的实体<退出>:")
   
9.   (if (setq ss (ssget))
   
10.     (progn
    
11.       (if (not $XDTB_Global_EntityGroup)
    
12.         (setq $XDTB_Global_EntityGroup (ssadd))
    
13.       )
    
14.       (xdrx_setsstodb ss 0)
    
15.       (while (setq e (xdrx_getentdata 0))
    
16.         (ssadd e $XDTB_Global_EntityGroup)
    
17.         (xdrx_entity_setvisible e)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23. 
    
24. ;|
    
25. |;
    
26. (defun c:XDTB_EntityON (/ n)
    
27.   (if $XDTB_Global_EntityGroup
    
28.     (progn
    
29.       (xdrx_entity_setvisible $XDTB_Global_EntityGroup T)
    
30.       (setq $XDTB_Global_EntityGroup nil)
    
31.     )
    
32.     (progn
    
33.       (if (= 1 (xdrx_yesorno "\n没有找到隐藏记录信息，是否继续全图处理" 1))
    
34.         (xdrx_entity_setvisible (ssget "x") T)
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    
40. 
    
41. [/font]

[font=courier new]<br /> ;|<br />    命令：XDTB_EntityOFF<br />    功能：隐藏选择的实体<br /> |;<br /> (defun c:XDTB_EntityOFF (/ ss e)<br />   (prompt "\n请选取要隐藏的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (if (not $XDTB_Global_EntityGroup)<br />         (setq $XDTB_Global_EntityGroup (ssadd))<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (ssadd e $XDTB_Global_EntityGroup)<br />         (xdrx_entity_setvisible e)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;|<br /> |;<br /> (defun c:XDTB_EntityON (/ n)<br />   (if $XDTB_Global_EntityGroup<br />     (progn<br />       (xdrx_entity_setvisible $XDTB_Global_EntityGroup T)<br />       (setq $XDTB_Global_EntityGroup nil)<br />     )<br />     (progn<br />       (if (= 1 (xdrx_yesorno "\n没有找到隐藏记录信息，是否继续全图处理" 1))<br />         (xdrx_entity_setvisible (ssget "x") T)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> [/font]