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

andyhua

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

KO你

andyhua 发表于 2019-5-30 09:30
那怎么样把楼上的代码换成：隐藏对象，HideObjects。结束对象隔离，UnIsolateObjects。也一样让电脑反应快 ...

一份是隔离图层与恢复，一份是关闭图层与打开，各有所需，每个人的制图方式不同。

alexmai

这些是不常用的命令，没必要纠结，稳定为先

magicheno

这个功能太屌了~！~！

KO你

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

兄弟，怎么孤立Defpoints图层后，不能选择Defpoints对象，是什么原因。
如果孤立Defpoints加其他图层就可以选择对象。

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)
)

atone

不错的帖子，学习啦