화살표 리습 수정부탁드립니다.

(defun c:arrow ( / di nm p1 p2 )
   (if
       (and
           (setq p1 (getpoint "nArrow Head: "))
           (setq p2 (getpoint "nTail Point: " p1))
           (setq di (/ (distance p1 p2) 3.0)
                 nm (trans '(0. 0. 1.) 1 0 t)
           )
       )
       (entmake
           (list
              '(0 . "LWPOLYLINE")
              '(100 . "AcDbEntity")
              '(100 . "AcDbPolyline")
              '(90 . 3)
              '(70 . 0)
               (cons 10 (trans p1 1 nm))
              '(40 . 0.0)
               (cons 41 (/ di 2.0))
               (cons 10 (trans (polar p1 (angle p1 p2) di) 1 nm))
               (cons 10 (trans p2 1 nm))
               (cons 210 nm)
           )
       )
   )
   (princ)
)

현재 사용하고있는 화상표 위습입니다

좌클릭에서 우클릭하면 화살표대가리가 좌측에생기고

우클릭에서 좌클릭하면 화살표대가리가 우측에 생기는데

반대로하게할수없을까요?

좌->우시에 우측에 대가리

우->좌시 좌측에 대가리 

문의드립니다.