<<*** TT就可以選物件隱藏，空選則顯示全部，... ***>>>

muai2010

lee50310 发表于 2023-10-27 16:08
的確後來改的 會造成 按孤立 和 隱藏 都變成隱藏
已修正回來 測試OK 請重新下載

不知道我是的问题还是，最新一版，孤立t还是会退出cad，我专门测试了前面你发的那一段单独 对象孤立的代码也是跳出cad，不知道是不是我的问题

lee50310

muai2010 发表于 2023-10-27 16:25
不知道我是的问题还是，最新一版，孤立t还是会退出cad，我专门测试了前面你发的那一段单独 对象孤立的代 ...

我這邊AutoCad 2018繁體版 64bit 測試皆 ok

把 孤立物體 程式 單獨挪出 你自行測試看看 問題出在哪裡?
執行指令:bb2
             1.選擇要孤立的物體

1. ;;-------------------------------------------------------------------------
   
2. ;;孤立对象函数
   
3. (defun c:teg ( ss / ssn n)
   
4. (setvar "cmdecho" 0)
   
5. (vl-cmdf "SELECT" "ALL" "R" ss "")
   
6. (setq ss (ssget "P"))
   
7. (setq i 0)
   
8. (repeat (sslength ss)
   
9. (setq sn (ssname ss i))
   
10. (setq ent (entget sn))
    
11. (setq lx (cdr (assoc 60 ent)))
    
12. (if (= lx nil) (progn
    
13. (setq a (list (cons 60 1)))
    
14. (setq ent (append ent a))
    
15. (entmod ent)))
    
16. (if (/= lx nil) (progn
    
17. (setq ent (subst (cons 60 1) (assoc 60 ent) ent))
    
18. (entmod ent)))
    
19. (setq i (1+ i)))
    
20. (princ))
    
21. 
    
22. ;;<--- 主程式 --->>
    
23. (defun c:bb2()
    
24. (princ "\n选择要孤立的物体:")
    
25. (setq ss (ssget))    ;选择要孤立的物体
    
26. (c:teg ss)           ;执行孤立函数
    
27. )
    
28. ;----------------------------------------------------------------------------

;;-------------------------------------------------------------------------<br /> ;;孤立对象函数<br /> (defun c:teg ( ss / ssn n)<br /> (setvar "cmdecho" 0)<br /> (vl-cmdf "SELECT" "ALL" "R" ss "")<br /> (setq ss (ssget "P"))<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) (progn<br /> (setq a (list (cons 60 1)))<br /> (setq ent (append ent a))<br /> (entmod ent)))<br /> (if (/= lx nil) (progn<br /> (setq ent (subst (cons 60 1) (assoc 60 ent) ent))<br /> (entmod ent)))<br /> (setq i (1+ i)))<br /> (princ))<br /> <br /> ;;<--- 主程式 --->><br /> (defun c:bb2()<br /> (princ "\n选择要孤立的物体:")<br /> (setq ss (ssget))    ;选择要孤立的物体<br /> (c:teg ss)           ;执行孤立函数<br /> )<br /> ;----------------------------------------------------------------------------

muai2010

lee50310 发表于 2023-10-27 17:08
我這邊AutoCad 2018繁體版 64bit 測試皆 ok

把 孤立物體 程式 單獨挪出 你自行測試看看 問題出在哪裡? ...

那可能是我的问题，单独用也是cad直接退出了，感谢了
能否帮忙看下我发的这个问题，一个顺序问题，没搞出来，请赐教
http://bbs.mjtd.com/thread-188800-1-1.html

月下闲人

lee50310 发表于 2021-12-25 19:45
很抱歉! 我沒用過海龍隱藏

不過看你敘述內容 第1點與原先的功能相同

大佬实在太有耐心了，逐个回复我把39楼的帖子录个视频大佬看的更直观，海龙的操作是不支持先选择对象再命令操作的，大佬的是可以的，只不过两者在输入命令后操作有区别，大佬是先命令再选择对象操作，而海龙是先命令后有子级选项（此过程不需要输入空格或者回车）再选择对象操作，因此导致流程下来会有多一次确认的操作.

lee50310

月下闲人 发表于 2023-10-28 00:39
大佬实在太有耐心了，逐个回复我把39楼的帖子录个视频大佬看的更直观，海龙的操作是不支持先 ...

我有一疑問 例:若有10個圓 1,2 ,3. . .10
想選 1,3,5,6,9 圓
" 海龍 可支持跳選  不用按enter "


;-----------------------------------------
我將 原本程式內  (setq ss(ssget))         ;多選
                  改為 (setq ss (ssget ":S"))  ;單選一次

你測試看看是否跟海龍一樣  直接按T 鍵 => "孤立" 或 按 Enter鍵  => "隱藏"  ,不用再多按一次 Enter鍵

執行指令:tt
                PS:要多選 => 選取時壓住滑鼠左鍵拖曳出選取範圍 選取範圍內物體

月下闲人

lee50310 发表于 2023-10-28 04:08
我有一疑問 例:若有10個圓 1,2 ,3. . .10
想選 1,3,5,6,9 圓
" 海龍 可支持跳選  不用按enter "

大佬现在的代码测试已经可以直接按键操作无需再次空格确认操作了，随便也附上海龙的选择模式，它是支持跳选的.

lee50310

月下闲人 发表于 2023-10-28 09:43
大佬现在的代码测试已经可以直接按键操作无需再次空格确认操作了，随便也附上海龙的选择模式，它是支持跳 ...

了解! 謝謝!


            

muai2010

lee50310 发表于 2023-10-28 04:08
我有一疑問 例:若有10個圓 1,2 ,3. . .10
想選 1,3,5,6,9 圓
" 海龍 可支持跳選  不用按enter "

1.把cad重新装了一次可以用了，弱弱问下大佬是用原版cad还是论坛珊瑚海的推荐下呗，我还以为是代码问题

2.这个选取范围好像没有显示出被选中的对象，用是不错的，就是不好判断哪些是选了哪些没选

lee50310

muai2010 发表于 2023-10-29 13:31
1.把cad重新装了一次可以用了，弱弱问下大佬是用原版cad还是论坛珊瑚海的推荐下呗，我还以为是代码问题
...

參考海龍  1.移動滑鼠點選螢幕下方 任一項目
                            2. 被點選物體會亮顯

執行指令 TT
             1.移動滑鼠點選螢幕下方 任一項目 【隱藏對象(B)】/【全部取消隱藏(C)】/【孤立對象(T)】

muai2010

lee50310 发表于 2023-10-29 15:02
最新版 參考海龍  1.移動滑鼠點選螢幕下方 任一項目
                            2. 被點選物體會亮顯
...

1.目录项点取会出现参数类型错误: lselsetp nil，我用鼠标点下面的可以用
2.孤立T好像变成全部隐藏了，作者测试下是不是
3.图纸未进行任何选择时，按tt，选目录项C会有  参数类型错误: lselsetp nil，但进行隐藏后再次操作则不会
4.这个版本怎么进行多选呢
我发现一个问题，针对有的图，用这个会闪退，有的就没事，不明原因