图层快速选择lsp代码，lisp一键选中图层里面所有对象

在CAD软件里面本来自带快速选择对象功能的，可以通过图层、颜色、线形等方法来快速选择对象，。这个功能起始就是选择模型空间里面的所有对象，在按照用户要求过滤，来实现快速选择的目的。

系统命令 _qselect，可是参考系统功能来开发自己的软件功能。

下面是通过图层过滤来实现，快速选择对象，功能，指定图层，一键选中图层里面的所有对象，如果需要选择图层里面的某种对象，可是使用过滤，如，颜色，圆，直线等

(defun C:Thh (/ GOP)

(SETQ GOP (SSGET "X" '((-4 . "<OR") (8 . "图层名称") (-4 . "OR>"))));选择所有对象，通过图层过滤

(command "chprop" GOP "" "c" "10" "");使用颜色验证选中图层里面的对象

;(progn (sssetfirst nil GOP))显示选中状况

(princ)

)
复制