大家好，
我遇到了一个LISP例程，可以冻结任何选定对象的层。它工作得很好，但我希望它在视口中冻结层，而不是冻结整个图形。
这就是我找到它的地方：
http://forums.augi.com/showthread.php?78426-特殊层冻结LISP例程
这是我想修改的代码：（代码换行按钮似乎不起作用）
- <p>(defun c:LFR (/ CLayer$ EntList@ EntName^ Layer$)</p><p>(setq CLayer$ (getvar "CLAYER"))</p><p> (princ "\nSelect object on layer to freeze")</p><p> (if (setq EntName^ (car (entsel)))</p><p> (progn</p><p> (setq EntList@ (entget EntName^))</p><p> (setq Layer$ (cdr (assoc 8 EntList@)))</p><p> (if (and (= Layer$ CLayer$)(/= Layer$ "0"))</p><p> (command ".LAYER" "T" "0" "U" "0" "ON" "0" "S" "0" "")</p><p> );if</p><p> (if (= Layer$ "0")</p><p> (princ "\nCannot freeze layer 0.")</p><p> (command ".LAYER" "F" Layer$ "")</p><p> );if</p><p> );progn</p><p> );if</p><p> (princ)</p><p>);defun c:LFR</p><p>[code]</p><p> </p><p> </p><p>I also attached the actual .LSP file to make it easier.</p><p>LFR.LSP</p>
| 
置顶卡
