独立图层layiso和恢复孤立layuniso,能否用同一个快捷键完成
想法是这样的，使用图层孤立快捷键例如LL后，在次按LL会自动检测是否孤立过图层，是的话恢复孤立那怎么样把楼上的代码换成：隐藏对象，HideObjects。结束对象隔离，UnIsolateObjects。也一样让电脑反应快点而不卡呢？
(defun c:gg(/ ent)
(prompt "\n请选择要隐藏的对象,结束对象隔离请直接按右键或空格：")
(if (setq ss (ssget))
(command "_.hideobjects" ss "")
(command "_.unisolateObjects")
)
(princ)
) 本帖最后由 alexmai 于 2023-5-11 11:48 编辑
KO你 发表于 2023-5-11 00:55
兄弟，怎么孤立Defpoints图层后，不能选择Defpoints对象，是什么原因。
如果孤立Defpoints加其他图层就 ...
你看代码就知道都是调用cad的内部程序，问官方吧，估计官方会推荐用新版本
Defpoints图层比较特殊，类似0层，会跟层的，如果这个块用了其他层，而那个层是锁定的，那就一起锁了
这个命令功能只是一键锁定选择外的图层
我的操作是单独锁定某些图层，完事后图层全开锁，这样效率会更快
;;;;;;;锁定图层
(defun c:stc ()
(setvar "cmdecho" 0)
(if (and
(prin1 "请选择要上锁层的实体")
(setq ss0 (ssget))
) (progn
(setq n 0)
(repeat (sslength ss0)
(setq cenn (cdr (assoc 8 (entget (ssname ss0 n)))))
(command "layer" "lock" cenn "")
(setq n (1+ n))
);repeat
))
(princ)
)
;;;图层全解锁
(defun c:tcjs (/ ent)
(command "-layer" "u" "*" "")
)
;;;;;;;解锁图层
(defun c:js ()
(setvar "cmdecho" 0)
(if (and
(prin1 "请选择要解琐层的实体")
(setq ss0 (ssget))
) (progn
(setq n 0)
(repeat (sslength ss0)
(setq cenn (cdr (assoc 8 (entget (ssname ss0 n)))))
(command "layer" "unlock" cenn "")
(setq n (1+ n))
);repeat
))
(princ)
) alexmai 发表于 2019-3-6 23:38
(defun c:ll(/ ent)
(if (setq ss (ssget))
(command "_.layiso" ss "")
快捷键r`孤立图层
(defun c:r`(/ q)
(prompt "\n请选择要孤立的图层,显示所有图层请直接按右键或空格：")
(setq ss (ssget))
(if (/= ss nil)
(progn
(setq num (sslength ss))
(setq n 0)
(command "layer" "off" "*" "y" "on" "" "")
(repeat num
(setq entlist (entget (ssname ss n)))
(setq lname (cdr (assoc 8 entlist)))
(command "layer" "on" lname "")
(setq n (+ n 1)))
(prompt (itoa num)))
(command "layer" "on" "*" ""))
(princ))
配合这份用基本达到要求 (if (setq ss (ssget))
(command "_.layiso" ss "")
(command "_.layuniso" "")
) 自贡黄明儒 发表于 2018-9-6 08:12
layiso命令每次使用都会有卡顿感，是怎么回事 自贡黄明儒 发表于 2018-9-6 08:12
能否将程序补完整，我是刚刚接触lisp,有C语言基础，能看懂lisp程序，但写不出来，麻烦答主写一下，谢谢了 (defun c:ll(/ ent)
(if (setq ss (ssget))
(command "_.layiso" ss "")
(command "_.layuniso" "")
)
(princ)
)
启动后，选择就孤立，不选择就解除 alexmai 发表于 2019-3-6 23:38
(defun c:ll(/ ent)
(if (setq ss (ssget))
(command "_.layiso" ss "")
谢谢，我想请问一下，CAD自带的layiso命令在大文件里使用会很卡，相比之下湘园和天正的孤立命令就很好很流畅，这是为什么？ 好程序，留个爪爪印…… 本帖最后由 KO你 于 2019-5-30 02:15 编辑
alexmai 发表于 2019-3-6 23:38
(defun c:ll(/ ent)
(if (setq ss (ssget))
(command "_.layiso" ss "")
(defun c:ll(/ ent)
(prompt "\n请选择要隔离的图层,恢复隔离的图层请直接按右键或空格：")
(if (setq ss (ssget))
(command "_.layiso" ss "")
(command "_.layuniso" ""))
(princ))
谢谢楼上的，高手啊~
恢复图层的速度要明显快了很多
页:
[1]
2