[LISP函数]：text继续纠错

zjyxks

(setq pt1 (list x y )
               pt6 (list (- x 4) (- y 0.1))
               pt2 (list (+ x u) (+ y v))
               )
;;;      开始画线及箭头
             (setq len (distance pt1 pt2))
            (if (and (/= len 0) (= 0 (rem count 1)))
       (progn
         (command "line" pt1 pt2 "")
         (setq s (angle pt1 pt2))
         (setq ss(* (/ 180 pi) s))
         (setq pt3 (polar pt2 (+ s (* pi 0.92)) (/ len 4.)))
         (setq pt4 (polar pt2 (+ s (* pi 1.08)) (/ len 4.)))
         (command "line" pt3 pt2 pt4 "")
         (command "text" pt6 1 ss pp)
  )
      )
问题：要是pt1点在pt2点的左边，那么添加文字在第一点pt1点的左边，如果pt1点在pt2点的右边
，那么添加文字在第一点pt1点的右边，恳请高手添加代码

dandee

(setq point_of_word (polar pt1 (angle (pt2 pt1)  distance_between_pt1_ptword))