객체 선택 한것 중에 원만 선택하려고 하는데 어떻게 하나요?

(setq en (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
;중간 생략
(setq n 0 dis 0)
(repeat (sslength en)
     (setq ent_l (ssname en n))
  ; 원만 선택
    (IF (= PL “CIRCLE”)
     (PROGN
     (command “lengthen” ent_l “”)
     (setq dis (+ dis (GETVAR “PERIMETER”)))))
     (setq n (1+ n))
    )
방법좀 가르쳐 주세요..
원만 선택해서 원으로 변경하려 하는데 도저히 ^^;;
(SETQ pl (CDR (ASSOC 0 (ENTGET ENT_L))))
이렇게 하면 “LAYER” 값만 나오니 ㅠㅠ