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

KO你 发表于 2019-5-30 12:01:50

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

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

alexmai 发表于 2019-5-30 19:24:54

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

magicheno 发表于 2019-6-23 17:59:53

这个功能太屌了~！~！

KO你 发表于 2023-5-11 00:55:49

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


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

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

atone 发表于 2024-2-11 17:59:34

不错的帖子，学习啦
页: 1 [2]
查看完整版本: 独立图层layiso和恢复孤立layuniso,能否用同一个快捷键完成