클라우드 같은 선을 다른 형태로 만들수도 있나요?

(defun c:zigzag (/ os lw rw sp ep dist ang repnum remdist index bp tp)
  (command “undo” “g”)
  (setq os (getvar “osmode”))
  (setq lw (getreal “n 진폭 : “))
  (setq rw (getreal “n 주기폭 : “))
  (setq sp (getpoint “n 시작점 : “))
  (if sp
    (progn
      (while (setq ep (getpoint sp “n 다음점 : “))
        (setq dist (distance sp ep))
        (setq ang (angle sp ep))
        (setq repnum (fix (/ dist rw)))
        (setq remdist (– dist (* repnum rw)))
        (setq index 0)
        (setvar “osmode” 0)
        (command “pline” sp)
        (repeat repnum
          (setq bp (polar sp ang (+ (/ rw 2.0) (* index rw))))
          (if (= (rem index 2) 0)
            (setq tp (polar bp (+ ang (dtr 90.0)) (/ lw 2.0)))
            (setq tp (polar bp (+ ang (dtr –90.0)) (/ lw 2.0)))
          )
          (command tp)
          (setq index (1+ index))
        )
        (command ep “”)
        (setvar “osmode” os)
        (setq sp ep)
      )
    )
  )
  (command “undo” “e”)
  (princ)
)
(defun dtr (a) (* pi (/ a 180.0)))