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

郑梓莘

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

andyhua

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

alexmai

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你

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

自贡黄明儒

1. (if (setq ss (ssget))
   
2.   (command "_.layiso" ss "")
   
3.   (command "_.layuniso" "")
   
4. )

(if (setq ss (ssget))<br />   (command "_.layiso" ss "")<br />   (command "_.layuniso" "")<br /> )

郑梓莘

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

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

郑梓莘

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

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

alexmai

(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命令在大文件里使用会很卡，相比之下湘园和天正的孤立命令就很好很流畅，这是为什么？

andyhua

好程序，留个爪爪印……

KO你

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

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