아레 구문은 Test 예제입니다. 버전 2020 까지 잘작동하는 것인데 2021 에서는 (redraw) 문이 작동하지 않네요..

 (redraw) 가 grdraw grvecs 상이 redraw 로 없어지지 않네요..

새해 복많이 받으세요..

(defun c:test ( / a1 a2 p1 p2 pl )
   (if (setq p1 (getpoint "\nPick 1st Point: "))
       (progn
           (setq a1 (* pi 0.05)
                 a2 (* pi  1.5)   
           )
           (repeat 11
               (setq pl (cons (polar '(0.0 2.0 0.0) a2 2.0) pl)
                     a2 (+ a2 a1)
               )
           )
           (setq pl (apply 'append (mapcar 'list pl (cdr pl))))
           (princ "\nPick 2nd Point: ")
           (while (= 5 (car (setq p2 (grread nil 13 0))))
               (setq p2 (cadr p2)
                     a1 (angle p1 p2)
               )
               (redraw) ;(command "redraw") ;가 작동되지 안아 command 명령을 사용하면 됩니다.
               (grdraw p1 p2 3 0)       ;grdraw 도 않되요..
               (grvecs (list 3 p1 p2))    ;grvecs 도 않되요..
           )
       )
   )
   (redraw) (princ)
)