닫힌 폴리라인의 최고, 최저, 좌측, 우측 끝 포인트를 얻을수 있을까요?

(defun c:test( / se en ent pt maxx minx maxy miny minxp maxxp minyp maxyp)
 (if (setq sel (entsel “n폴리선 선택:”))
  (progn
   (setq en (car sel) ent (entget en))
   (foreach e ent
    (if (= (car e) 10)
     (progn
      (setq pt (trans (cdr e) 0 1) x (car pt) y (cadr pt))
      (if (or (null minx) (< x minx))
       (setq minx x minxp pt)
      )
      (if (or (null miny) (< y miny))
       (setq miny y minyp pt)
      )
      (if (or (null maxx) (> x maxx))
       (setq maxx x maxxp pt)
      )
      (if (or (null maxy) (> y maxy))
       (setq maxy y maxyp pt)
      )      
     )
    )
   )
   (
    (lambda (vs)
     ;최하단 : minyp, 최상단 : maxyp, 제일 좌측 : minxp, 제일 우측 maxxp
     (foreach p (list minxp maxxp minyp maxyp)
      (setq p (trans p 1 0))
      (grvecs
       ‘(6 (1 -1) (-1 1) (-1 -1) (1 1))
       (list
        (list vs 0.0 0.0 (car p))
        (list 0.0 vs 0.0 (cadr p))
        (list 0.0 0.0 vs 0.0)
        (list 0.0 0.0 1.0 0.0)
       )
      )
     )
    )
    (* (/ (getvar “VIEWSIZE”) (cadr (getvar “SCREENSIZE”))) 10)
   )   
  )
 )
 (princ)
)