一个解锁图层的命令请改成框选的

jiajun_16888 · 发表于 2010-5-1 12:18:00

;AQ ***** unlock a layer
(defun c:AQ(/ x)
(setq x (entsel "\n Select Layer to be unlocked:"))
(command "layer" "unlock" (cdr(assoc 8 (entget(car x)))) "")
)

一个解锁图层的命令请改成框选的

ZZXXQQ · 发表于 2010-5-1 20:50:00

;AQ ***** unlock a layer
(defun c:AQ(/ x)
(setvar "CMDECHO" 0)
(if (progn (princ "\nSelect Layer to be unlocked:")
            (setq ss (ssget))) (progn
(setq n 0)
(repeat (sslength ss)
   (setq ln (cdr(assoc 8 (entget(ssname ss n))))
         n (1+ n))
   (command "layer" "unlock" ln "")
)
))
(setvar "CMDECHO" 1)
(princ)
)

jiajun_16888 · 发表于 2010-5-2 00:19:00

很好用谢啦

xotoo · 发表于 2010-6-15 17:30:00

这个程序我喜欢
比ET自带的那个解锁图层的工具好用

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

一个解锁图层的命令 请改成框选的

点评

一个解锁图层的命令请改成框选的