단일객체 선택 entsel 을 복수객체 선택으로 어떻게 교체해야될까요?

(defun c:c2p(/ a b lay rad cen pt1 pt2 pt3 pt4)
      (setq lay (getvar “clayer”))
      (setq a(entsel “n 원 선택 : “))
      (setq b (entget (car a)))
      (setq cen (cdr (assoc 10 b)))
      (command “color” “4” “” “”)
      (command “point” cen “” “”)
      (command “erase” a “” “”)
      (command “color” “bylayer” “” “”)
      (princ “n ksj program”)
      (princ)
)

이게 기존에 쓰는건데, 원을 점으로 바꾸면서 색상 변경하는 리습인데요.
알아보니 entsel 은 단일객체 선택으로만 되더라구요.
복수객체는 ssget 를 써야된다고 하는데 ssget로 바꿔도 선택이후에 에러가 나면서 진행이 안되네요.
아직 지식이 얕다보니 모르는게 많습니다. 도움 부탁드려요..