(setq czyKontynuowac "t")
(while (= czyKontynuowac "t")
    (setq wybor (ssget "_:S"))
    (setq entity (ssname wybor 0))
    (setq object (vlax-ename->vla-object entity))
    (setq pole 0)
    (if (vlax-property-available-p object 'Area)
        (progn
            (setq pole (vlax-get-property object 'Area))
        )
    )
    (if (> pole 100)
        (progn
            (vlax-put-property object 'Layer "wybrane")
        )
    )
    (setq czyKontynuowac (getstring "czy chcesz wybrac kolejny obiekt? t/n"))
)