Question

autolisp 怎么查询一个图层是否存在呢？用IF条件语句！

Answer 1

其实不用if的。

直接 (command "layer" "m" "new_layer" "c" 1 "" "")
如果不存在，建立图层new_layer,并且置为当前图层。

Answer 2

(setq chklay (tblsearch "layer" "DIM")) (if (= chklay nil) (command "layer" "n" "DIM" "c" "7" "DIM" "LW" "0" "DIM" "") )
;查找图层DIM，如果不存在，建立图层DIM，颜色7，线宽0

追问

如果不多次执行“DIM”呢？

追答

如果有图层，就不会执行，如果没有图层，会自动执行。