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

lee50310 · 发表于 2021-12-19 11:00:03

zm880928 发表于 2021-12-19 08:55
孤立和隐藏有什么区别吗、，怎么我用着都隐藏了

已修正
請再重新下載測試看看!!

pizi158545086 · 发表于 2021-12-19 11:06:53

lee50310 发表于 2021-12-19 10:33
已修正
請再重新下載測試看看!!

还是不行奇怪

lee50310 · 发表于 2021-12-19 11:37:21

本帖最后由 lee50310 于 2021-12-20 15:00 编辑

pizi158545086 发表于 2021-12-19 11:06
还是不行奇怪

原樓主請求帖所提供程式
http://bbs.mjtd.com/thread-113902-5-1.html

那麼請單獨執行 tg指令選取後孤立

快捷键 tg 孤立选定对象
(defun c:tg ()
(setvar "cmdecho" 0)
(setq ss (ssget))
(command "SELECT" "ALL" "R" ss "")
(setq ss (ssget "P"))
(setq i 0)
(repeat (sslength ss)
(setq sn (ssname ss i))
(setq ent (entget sn))
(setq lx (cdr (assoc 60 ent)))
(if (= lx nil) (progn
(setq a (list (cons 60 1)))
(setq ent (append ent a))
(entmod ent)))
(if (/= lx nil) (progn
(setq ent (subst (cons 60 1) (assoc 60 ent) ent))
(entmod ent)))
(setq i (1+ i)))
(princ))

pizi158545086 · 发表于 2021-12-19 11:50:02

lee50310 发表于 2021-12-19 11:37
原樓主請求帖所提供程式
http://bbs.mjtd.com/thread-113902-5-1.html

好的非常感谢

lee50310 · 发表于 2021-12-19 12:35:44

最後修正 tt4_chs 或 tt4_cht.lsp
將所有附程式包裹在主程式 tt內

longer1000 · 发表于 2021-12-19 17:16:51

能否改为鼠标操作，选择图元左键隐藏，选择图元右键孤立。这样更为便捷

lz123456 · 发表于 2021-12-19 17:41:58

建议判断T键，能支持大小写。现在是判断ASCII码。

lee50310 · 发表于 2021-12-20 09:15:36

lz123456 发表于 2021-12-19 17:41
建议判断T键，能支持大小写。现在是判断ASCII码。

支持T大小寫 ,已更新

panliang9 · 发表于 2021-12-20 10:57:03

谢谢楼主分享！

zhangkui9070 · 发表于 2021-12-20 15:52:48

功能很独特

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

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

本帖子中包含更多资源

点评

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