[LISP函数]：转贴判断图层是否存在,如果不存在则建立图层的代码

userzhluserzhl

(if (=(tblobjname "LAYER" "-视口") nil)
(progn
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(6 . "CONTINUOUS") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 "-视口") ;图层名
)
)
)
)
如果有若干个图层的话,要怎么改?高手请指教.

qjcpj

定义一子函数，然后配合foreach函数很容易搞定！

yfywk

如果加入图层打印控制
不用command能不能实现?

kohi

2. (defun mlayer (name color ltype)
   
3.   (if (tblsearch "layer" name)
   
4.       (vl-cmdf "layer" "s" name "")
   
5.       (progn
   
6.         (setq regen (getvar "regenmode"))
   
7.         (setvar "regenmode" 0)
   
8.         (vl-cmdf "layer" "m" name)
   
9.         (if color (vl-cmdf "c" color name))
   
10.         (if ltype (vl-cmdf "lt" ltype name))
    
11.         (vl-cmdf "")
    
12.         (setvar "regenmode" regen)
    
13.       )
    
14.   )
    
15. )

(defun mlayer (name color ltype)<br />   (if (tblsearch "layer" name)<br />       (vl-cmdf "layer" "s" name "")<br />       (progn<br />         (setq regen (getvar "regenmode"))<br />         (setvar "regenmode" 0)<br />         (vl-cmdf "layer" "m" name)<br />         (if color (vl-cmdf "c" color name))<br />         (if ltype (vl-cmdf "lt" ltype name))<br />         (vl-cmdf "")<br />         (setvar "regenmode" regen)<br />       )<br />   )<br /> )

yfywk

vl-cmdf
是类似于command的命令,突破了command 中不能使用 getxxx 的限制
所以使用(vl-cmdf "layer" "s" name "")
和(command "-layer" "s" name "")
没什么两样啊!