锁定所选物体所在的层改成反选锁定

jreeybin · 发表于 2019-12-18 16:24:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;****************************************************锁定所选物体所在的层
(defun C:KL (/ ES EN EL A)
(princ "请选择要加锁的图层上的对象.")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "LO" (eval FL) "")
(princ))

sharetow · 发表于 2019-12-19 19:08:30

(defun C:KLL(/ dx i aa a1 lst)
(setq dx (ssget) lst '() i 0)
(repeat (sslength dx)
(setq aa (cdr(assoc ' 8 (entget (ssname dx i)))))
(if (not(vl-position aa lst))
(setq lst (cons aa lst))
)
(setq i (1+ i))
)
(setq dx (ssget "x")
i 0
)
(repeat (sslength dx)
(setq aa (cdr(assoc ' 8 (entget (ssname dx i)))))
(if (not(vl-position aa lst))
(progn
(if (not a1)
(setq a1 aa)
(setq a1 (strcat a1 "," aa))
)
)
)
(setq i (1+ i))
)
(command "-layer" "LO" (eval a1) "")
(princ)
)

jreeybin · 发表于 2019-12-20 11:33:03

sharetow 发表于 2019-12-19 19:08
(defun C:KLL(/ dx i aa a1 lst)
(setq dx (ssget) lst '() i 0)
(repeat (sslength dx)
...

非常感谢，·

kwok · 发表于 2019-12-21 14:08:49

LAYISO --自带的命令ET里的,选中指定对象后其他全锁定

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

[求助] 锁定所选物体所在的层改成反选锁定

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。