LISP修改请求。。。
大家好，我遇到了一个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></p><p> </p><p> </p><p>I also attached the actual .LSP file to make it easier.</p><p>LFR.LSP</p>
页:
[1]