포인트 선택중 명령어 입력

(defun c:aaa() 
 (princ “n포인트 지정 또는 [설정(S)]”)
 (initget 128)
 (setq r (getpoint))
 (cond
  ((not r) nil)
  ((vl-consp r) (alert “포인트”))
  ((wcmatch r “S,s”) (alert “설정”))
 )
)
위와 같이 하심됩니다.