本帖最后由 lee50310 于 2022-2-20 16:56 编辑
功能如下: 執行TT後
左擊滑鼠--->选择对象后确定:隐藏(若 空选确定则全部显示)
右擊滑鼠--->选择对象后确定:孤立(若 空选确定则全部显示)
這功能不難,可自行更改即可
程序简化了CAD 原本自带的方式，让绘图更简便，很实用！
lee50310 发表于 2021-12-26 15:57
海龍工具箱 上網找過都是簡體版 沒支援繁體版
不過大概懂你的意思!但是這效果 試不出來 !只能留給 ...
榨干了我最后一个币，为什么用孤立命令的时候我cad直接退出，cad2020
muai2010 发表于 2023-10-27 00:25
榨干了我最后一个币，为什么用孤立命令的时候我cad直接退出，cad2020
已做修正 ,請重新下載
lee50310 发表于 2023-10-27 06:09
已做修正 ,請重新下載
大佬，你好，我用最新的还是会在选择孤立的时候退出cad，其他没问题，麻烦你看下是不是哪里疏忽了
muai2010 发表于 2023-10-27 10:11
大佬，你好，我用最新的还是会在选择孤立的时候退出cad，其他没问题，麻烦你看下是不是哪里疏忽了
已做修正
一般版本tt5c_chs.lsp , tt5c_cht.lsp
滑鼠版本tt6c_chs.lsp , tt6c_cht.lsp
請重新下載測試
lee50310 发表于 2023-10-27 12:45
已做修正
一般版本tt5c_chs.lsp , tt5c_cht.lsp
滑鼠版本tt6c_chs.lsp , tt6c_cht.lsp
现在不闪退了，但是孤立和隐藏的效果是一样的了，按t也是隐藏了
请教下键盘上字母对应的f:keydown值是多少，我需要改动一下
本帖最后由 lee50310 于 2023-10-27 14:24 编辑
muai2010 发表于 2023-10-27 13:48
现在不闪退了，但是孤立和隐藏的效果是一样的了，按t也是隐藏了
请教下键盘上字母对应的f:keydown值是 ...
tt5c_chs.lsp
部分程式 ==> 判斷按鍵
;----------------------------------------------------
;;--------------------------------------------------------------------------
(defun f:keydown ( / key)
;(princ prm)
(while (/= (car (setq key (grread 10))) 2))
(cadr key)
)
(princ "\n<<--- 多选 --- >> 结束选取请按Enter")
(if (setq ss (ssget))
(progn
(princ "\n按Enter隐藏 或 按T就孤立 :")
(setq de (f:keydown ))
(if (or (= de 84)(= de 116));判断按T键 ascii碼=84 或 t 键ascii碼=116
(progn (princ "\n你按T孤立对象")(c:teg ss) ) ;teg 孤立对象
(progn (princ "\n你按Enter隐藏对象")(c:teb ss) ) ;teb 隐藏对象
);end_if
);end_progn
(progn (princ "\n空选则显示全部") (c:tef)) ; tef 全部取消隐藏
);end_if
);end_defun
(princ "\n<*** 执行指令:tt功能:选对象 按Enter 隐藏，空选则显示全部，选中对象按T就孤立 ***>")
ttˊˊ6c_chs.lsp
部分程式 ==> 判斷滑鼠按鍵
;;--------------------------------------------------------------------------
(defun f:keydown ( / key)
(while(and(setq key (grread 8))
(/= (car key) 3)
(/= (car key) 11)
(/= (car key) 25)
))
(car key)
)
(princ "\n<<--- 多选 --- >> 结束选取请按Enter")
(if (setq ss (ssget))
(progn
(princ "\n按滑鼠左键 隐藏，按滑鼠右键孤立:")
(setq de (f:keydown ))
(cond ((= de 3)
(princ "\n你按滑鼠左键 隐藏")(c:teb ss);teb 隐藏对象
)
((or (= de 11)(= de 25))
(princ "\n你按滑鼠右键孤立")(c:teg ss) ;teg 孤立对象
)
);end_cond
);end_progn
(progn (princ "\n空选则显示全部") (c:tef)) ; tef 全部取消隐藏
);end_if
);end_defun
lee50310 发表于 2023-10-27 14:08
tt5c_chs.lsp
部分程式 ==> 判斷按鍵
;----------------------------------------------------
非常感谢，更新的程序t和隐藏是一样的了，我怀疑是那个孤立代码那一块有点问题
muai2010 发表于 2023-10-27 14:31
非常感谢，更新的程序t和隐藏是一样的了，我怀疑是那个孤立代码那一块有点问题
的確後來改的 會造成 按孤立 和 隱藏 都變成隱藏
已修正回來 測試OK 請重新下載