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

lee50310

功能如下: 執行TT後
左擊滑鼠--->选择对象后确定:隐藏  (若 空选确定则全部显示)        
右擊滑鼠--->选择对象后确定:孤立  (若 空选确定则全部显示)   

這功能不難,可自行更改即可

jkop

程序简化了CAD 原本自带的方式，让绘图更简便，很实用！

muai2010

lee50310 发表于 2021-12-26 15:57
海龍工具箱 上網找過  都是簡體版 沒支援繁體版
不過大概懂你的意思!  但是這效果 試不出來 !  只能留給 ...

榨干了我最后一个币，为什么用孤立命令的时候我cad直接退出，cad2020

lee50310

muai2010 发表于 2023-10-27 00:25
榨干了我最后一个币，为什么用孤立命令的时候我cad直接退出，cad2020

已做修正 ,請重新下載

muai2010

lee50310 发表于 2023-10-27 06:09
已做修正 ,請重新下載

大佬，你好，我用最新的还是会在选择孤立的时候退出cad，其他没问题，麻烦你看下是不是哪里疏忽了

lee50310

muai2010 发表于 2023-10-27 10:11
大佬，你好，我用最新的还是会在选择孤立的时候退出cad，其他没问题，麻烦你看下是不是哪里疏忽了

已做修正
一般版本  tt5c_chs.lsp , tt5c_cht.lsp
滑鼠版本  tt6c_chs.lsp , tt6c_cht.lsp

請重新下載測試

muai2010

lee50310 发表于 2023-10-27 12:45
已做修正
一般版本  tt5c_chs.lsp , tt5c_cht.lsp
滑鼠版本  tt6c_chs.lsp , tt6c_cht.lsp

现在不闪退了，但是孤立和隐藏的效果是一样的了，按t也是隐藏了

请教下键盘上字母对应的f:keydown值是多少，我需要改动一下

lee50310

muai2010 发表于 2023-10-27 13:48
现在不闪退了，但是孤立和隐藏的效果是一样的了，按t也是隐藏了

请教下键盘上字母对应的f:keydown值是 ...

tt5c_chs.lsp
部分程式 ==> 判斷按鍵
;----------------------------------------------------

2. ;;--------------------------------------------------------------------------
   
3. 
   
4. (defun f:keydown ( / key)
   
5. ;(princ prm)
   
6. (while (/= (car (setq key (grread 10))) 2))
   
7. (cadr key)
   
8. )
   
9. 
   
10. 
    
11. (princ "\n<<--- 多选 --- >> 结束选取请按Enter")
    
12. (if (setq ss (ssget))
    
13.     (progn
    
14.                  (princ "\n按Enter隐藏 或 按T就孤立 :")
    
15.              (setq de (f:keydown ))                          
    
16.          (if (or (= de 84)(= de 116))  ;判断按T键 ascii碼=84 或 t 键  ascii碼=116
    
17.                 (progn (princ "\n你按T孤立对象")(c:teg ss) )               ;teg 孤立对象
    
18.             (progn (princ "\n你按Enter隐藏对象")(c:teb ss) )           ;teb 隐藏对象
    
19.          );end_if                 
    
20.     );end_progn
    
21. 
    
22.     (progn (princ "\n空选则显示全部") (c:tef)  )                     ; tef 全部取消隐藏
    
23. 
    
24. );end_if
    
25. 
    
26. );end_defun
    
27. (princ "\n<*** 执行指令:tt  功能:选对象 按Enter 隐藏，空选则显示全部，选中对象按T就孤立 ***>")

;;-------------------------------------------------------------------------- <br /> <br /> (defun f:keydown ( / key)<br /> ;(princ prm)<br /> (while (/= (car (setq key (grread 10))) 2))<br /> (cadr key)<br /> )<br /> <br /> <br /> (princ "\n<<--- 多选 --- >> 结束选取请按Enter")<br /> (if (setq ss (ssget))<br />     (progn <br />                  (princ "\n按Enter隐藏 或 按T就孤立 :")<br />              (setq de (f:keydown ))                          <br />          (if (or (= de 84)(= de 116))  ;判断按T键 ascii碼=84 或 t 键  ascii碼=116<br />                 (progn (princ "\n你按T孤立对象")(c:teg ss) )               ;teg 孤立对象 <br />             (progn (princ "\n你按Enter隐藏对象")(c:teb ss) )           ;teb 隐藏对象<br />          );end_if                 <br />     );end_progn<br /> <br />     (progn (princ "\n空选则显示全部") (c:tef)  )                     ; tef 全部取消隐藏<br /> <br /> );end_if<br /> <br /> );end_defun<br /> (princ "\n<*** 执行指令:tt  功能:选对象 按Enter 隐藏，空选则显示全部，选中对象按T就孤立 ***>")

ttˊˊ6c_chs.lsp
部分程式 ==> 判斷滑鼠按鍵

1. ;;--------------------------------------------------------------------------
   
2. 
   
3. (defun f:keydown ( / key)
   
4. 
   
5. (while  (and  (setq key (grread 8))
   
6.               (/= (car key) 3)
   
7.         (/= (car key) 11)
   
8.         (/= (car key) 25)
   
9.      ))
   
10. (car key)
    
11. )
    
12. 
    
13. (princ "\n<<--- 多选 --- >> 结束选取请按Enter")
    
14. (if (setq ss (ssget))
    
15.     (progn
    
16.            (princ "\n按滑鼠左键 隐藏，按滑鼠右键孤立:")
    
17.              (setq de (f:keydown ))        
    
18.          (cond ((= de 3)  
    
19.                     (princ "\n你按滑鼠左键 隐藏")(c:teb ss)  ;teb 隐藏对象
    
20.          )               
    
21.          ((or (= de 11)(= de 25))
    
22.                      (princ "\n你按滑鼠右键孤立")(c:teg ss)    ;teg 孤立对象         
    
23.          )
    
24.          );end_cond     
    
25.     );end_progn
    
26. 
    
27.     (progn (princ "\n空选则显示全部") (c:tef)  )                     ; tef 全部取消隐藏
    
28. 
    
29. );end_if
    
30. 
    
31. );end_defun

;;--------------------------------------------------------------------------<br /> <br /> (defun f:keydown ( / key)<br /> <br /> (while  (and  (setq key (grread 8))<br />               (/= (car key) 3)<br />         (/= (car key) 11)<br />         (/= (car key) 25)<br />      ))<br /> (car key)<br /> )<br /> <br /> (princ "\n<<--- 多选 --- >> 结束选取请按Enter")<br /> (if (setq ss (ssget))<br />     (progn <br />            (princ "\n按滑鼠左键 隐藏，按滑鼠右键孤立:")<br />              (setq de (f:keydown ))        <br />          (cond ((= de 3)  <br />                     (princ "\n你按滑鼠左键 隐藏")(c:teb ss)  ;teb 隐藏对象<br />          )                <br />          ((or (= de 11)(= de 25))<br />                      (princ "\n你按滑鼠右键孤立")(c:teg ss)    ;teg 孤立对象          <br />          )<br />          );end_cond     <br />     );end_progn<br /> <br />     (progn (princ "\n空选则显示全部") (c:tef)  )                     ; tef 全部取消隐藏<br /> <br /> );end_if<br /> <br /> );end_defun

muai2010

lee50310 发表于 2023-10-27 14:08
tt5c_chs.lsp
部分程式 ==> 判斷按鍵
;----------------------------------------------------

非常感谢，更新的程序t和隐藏是一样的了，我怀疑是那个孤立代码那一块有点问题

lee50310

muai2010 发表于 2023-10-27 14:31
非常感谢，更新的程序t和隐藏是一样的了，我怀疑是那个孤立代码那一块有点问题

的確後來改的 會造成 按孤立 和 隱藏 都變成隱藏
已修正回來 測試OK 請重新下載