独立图层layiso和恢复孤立layuniso,能否用同一个快捷键完成

郑梓莘 · 发表于 2018-9-5 22:36:39

想法是这样的，使用图层孤立快捷键例如LL后，在次按LL会自动检测是否孤立过图层，是的话恢复孤立

andyhua · 发表于 2019-5-30 09:30:19

那怎么样把楼上的代码换成：隐藏对象，HideObjects。结束对象隔离，UnIsolateObjects。也一样让电脑反应快点而不卡呢？
(defun c:gg(/ ent)
(prompt "\n请选择要隐藏的对象,结束对象隔离请直接按右键或空格：")
  (if (setq ss (ssget))
(command "_.hideobjects" ss "")
(command "_.unisolateObjects")
  )
  (princ)
)

alexmai · 发表于 2023-5-11 11:44:38

本帖最后由 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)
)

KO你 · 发表于 2019-5-30 01:59:06

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))
配合这份用基本达到要求

自贡黄明儒 · 发表于 2018-9-6 08:12:38

(if (setq ss (ssget))
(command "_.layiso" ss "")
(command "_.layuniso" "")
)

郑梓莘 · 发表于 2018-9-6 15:02:42

自贡黄明儒发表于 2018-9-6 08:12

layiso命令每次使用都会有卡顿感，是怎么回事

郑梓莘 · 发表于 2018-9-6 23:02:36

自贡黄明儒发表于 2018-9-6 08:12

能否将程序补完整，我是刚刚接触lisp,有C语言基础，能看懂lisp程序，但写不出来，麻烦答主写一下，谢谢了

alexmai · 发表于 2019-3-6 23:38:50

(defun c:ll(/ ent)
  (if (setq ss (ssget))
(command "_.layiso" ss "")
(command "_.layuniso" "")
  )
  (princ)
)

启动后，选择就孤立，不选择就解除

郑梓莘 · 发表于 2019-3-28 10:53:06

alexmai 发表于 2019-3-6 23:38
(defun c:ll(/ ent)
(if (setq ss (ssget))
(command "_.layiso" ss "")

谢谢，我想请问一下，CAD自带的layiso命令在大文件里使用会很卡，相比之下湘园和天正的孤立命令就很好很流畅，这是为什么？

andyhua · 发表于 2019-5-27 16:47:41

好程序，留个爪爪印……

KO你 · 发表于 2019-5-30 01:56:25

本帖最后由 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))

andyhua · 发表于 2019-5-30 09:20:56

谢谢楼上的，高手啊~
恢复图层的速度要明显快了很多

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

[讨论] 独立图层layiso和恢复孤立layuniso,能否用同一个快捷键完成

点评