Question

CAD lisp代码图层控制

求助，一段代码实现创建一个图层，
图层名字:圆圈
图层颜色:绿色
其他属性默认

我想把我图纸中所有直径为10的圆放到这图层，希望能够通过代码实现。

Answer 1

(setq chklay (tblsearch "layer" "圆圈"))
 (if (= chklay nil) (command "layer" "n" "圆圈" "c" "3" "圆圈" "") );;查找图层，如果没有，就创建这个图层，颜色绿色。