lisp如何批量选中特定图层_cad里怎样一键选中某一个图层的所有内容

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

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

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

(defun c:tes ( / #k2 #kw c8)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(if (and (setq c8 (entsel "\n请选择参考图层"))

(setq c8 (cdr (assoc 8 (entget (car c8)))))

(princ "\n请选择这个图层的对象")

(setq #kw (ssget (list (cons 8 c8))))

)

(progn

(initget "V C S E")

(if (setq #k2 (getkword (strcat "\n请选择动作方式或[选择(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 (sssetfirst nil #kw) (pause) ) )

)

)

)

(prin1)

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

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