[编程交流] Ssget在窗口上分割对象

(setq s ssget)

copy

'((x y) (x y) (x y) (x y) (x y))

如何在窗口内的对象上划分对象。
我需要每个窗口中的对象列表实体。

copy

'((<Entity name: 7ffff931b40> <Entity name: 7ffff931b40> ...)
(...) (...) (...) (...))

有没有办法在系统变量ssget（ssget“_W”）上使用过滤器窗口
图纸中的示例。

(defun c:test ( / SS i ent lst x SelN n Nlst Tlst )
(if 
        (and 
                (princ "\nSelect the closed(white) plines: ")
                (setq SS (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
        );and
        (progn
                (repeat (setq i (sslength SS)) ; repeat for each closed polyline
                        (setq ent (ssname SS (setq i (1- i))))
                        (setq        lst (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) (entget ent))))
                        
                        (if 
                                (and 
                                        (setq SelN (ssget "_WP" lst))
                                        (or (not (ssmemb ent SelN)) (ssdel ent SelN))
                                        (< 0 (sslength SelN))
                                )
                                (progn
                                        (repeat (setq n (sslength SelN)) ; repeat for each entity inside the polyline
                                                (setq Nlst (cons (ssname SelN (setq n (1- n))) Nlst)) ; create list for the SS
                                        )
                                        (setq Tlst (cons (reverse Nlst) Tlst)) ; store the SS list into the global list
                                        (setq Nlst nil) ; reset the SS list
                                )
                        ); if
                ); repeat
                (princ "\n") (print Tlst) ; print the global list
        );progn
); if/while
(princ)
)

(setq lst '(((x y) (x y)) ((x y) (x y))  ((x y) (x y)) ...))

(mapcar '(lambda (%) (ssget "_W" (car %) (cadr %))) lst)