;1. dokonać selekcji poligonalnej, obiekty muszą się w całości mieścić w oknie
;2. pozostawić tylko te, których sumaryczne pole >460
;3. dodać warstwę "wynik" i przenieść na nią selekcję
;4. wyłączyć pozostałe warstwy

(vl-load-com)

;selekcja

(setq pt1 nil)
(setq pt2 nil)
(setq pt3 nil)
(setq pt4 nil)
(setq polySelection nil)
(setq pt1 (getpoint "p1:") )
(setq pt2 (getpoint "p2:") )
(setq pt3 (getpoint "p3:") )
(setq pt4 (getpoint "p3:") )
(setq polySelection (ssget "WP" (list pt1 pt2 pt3 pt4)'((8 . "0"))))


;pole
(setq sumarea 0)
(setq i 0)
(setq temp 0)
(while (< i (sslength polySelection))

  (setq temp (ssname polySelection i))



  (setq i (+ i 1))
)