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

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

<p>;AQ ***** unlock a layer<br/>&nbsp;(defun c:AQ(/ x)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq x (entsel "\n Select Layer to be unlocked:"))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "layer" "unlock"&nbsp;&nbsp; (cdr(assoc 8 (entget(car x)))) "")<br/>&nbsp;)</p><p></p><p>一个解锁图层的命令&nbsp; 请改成框选的</p>

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

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

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

很好用谢啦

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

这个程序我喜欢
比ET自带的那个解锁图层的工具好用
页: [1]
查看完整版本: 一个解锁图层的命令 请改成框选的