lisp如何批量选中特定图层

图层"/>

lisp如何批量选中特定图层

autoCAD里面有【快速选择】功能，输入图层名称，可以选择所有对象。

命令【layiso】，可以隔离图层(第一次使用要输入“S”设置一下，不要【锁定对象】)，那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点，如果块里面的图元有这个图层的对象，也会显示，如果选择的话，会把块也选择了。】

使用autolisp程序，快速的选择这个图层的对象，代码如下：

(defunc:tes(/#k2#kwc8)

(setvar"cmdecho"0)

(setvar"blipmode"0)

(if(and(setqc8(entsel"

请选择参考图层"))

(setqc8(cdr(assoc8(entget(carc8)))))

(princ"

请选择这个图层的对象")

(setq#kw(ssget(list(cons8c8))))

)

(progn

(initget"VCSE")

(if(setq#k2(getkWord(strcat"

请选择动作方式或[选择(S)/移动(V)/复制(C)/删除(E)]:")))

(setq#k2(strcase#k2))

(setq#k2"S")

)

(cond

((=#k2"V")(command"_.Move"#kw""pause))

((=#k2"C")(command"_.Copy"#kw""pause))

((=#k2"E")(command"_.Erase"#kw""))

((=#k2"S")(progn(sssetfirstnil#kw)(pause)))

)

)

)

(prin1)

);复制到记事本，以【.lsp】为后缀命名，打开autoCAD，autolisp加载，命令【TES】

;选择参考图层的所有对象；如果块不是这个图层，就不会被选择。