(defun c:SPIRAL (/ bp deps polygon rad cinum repnum pang ang index os tp bp)
  (setq bp (getpoint "n 기준점 : "))
  (setq deps (getreal "n 선과 선사이의 간격 : "))
  (setq polygon 6)
  (setq rad (/ deps polygon))
  (setq cinum (getint "n 몇개의 원을 그릴까요 : "))
  (setq repnum (* cinum polygon))
  (setq pang (/ (dtr 360) polygon))
  (setq ang 0.0)
  (setq index 1)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command "pline" (polar bp ang (* rad index)) "a")
  (repeat repnum
    (command "ce" bp "a" (rtd pang))
    (setq bp (polar bp (+ ang pang (dtr 180)) rad))
    (setq ang (+ ang pang))
    (setq index (1+ index))
  )
  (command "")
  (setvar "osmode" os)
  (princ)
)