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

功能很独特
页: 1 2 [3] 4 5 6 7 8
查看完整版本: <<*** TT就可以選物件隱藏，空選則顯示全部，... ***>>>