筛选器命令FF(Find)

命令名称:FF
Find重复Find
功能需求:选中一个图元,判断其所属图层,再次指定区域,亮现区域内所有此图层的图元

思路:
建立2个选择集
SS 存源图元 不喜欢点选图元 就框选 通过(ssget) 获得源图元图层
SSS 存符合条件的区域图元

AUTOLISP 实现

(DEFUN C:FF (/ SS en ENDATA ENLAYER listC SSS) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(COMMAND "CMDECHO" 0)
(command "undo" "Be")
(SETQ SS (ssget))
;;(SETQ SS (ENTSEL))
(princ "\n\n")
(setq en (ssname ss 0))
(SETQ ENDATA (ENTGET EN))
(SETQ ENLAYER (CDR (ASSOC 8 ENDATA)))
(prinC "当前图元图层名称是:")
(prinC ENLAYER)
(setq listC (list (cons 8 ENLAYER)))
(SETQ SSS (ssget listC))
(command "undo" "e")
(COMMAND "REGEN")
(princ "\n")
(sssetfirst nil sss)
(prin1)
)