画箭头线程序

szx025

;;;--------箭头线----------
(defun c:jt (/ olderr  txt pt pt1 pt2 pt3 i ku k1)
    (setq olderr  *error*
   *error* at_err
    )
    (setq oss (getvar "osmode"))
    (PROMPT"\n标注内容: 1 上;2 下")
    (WHILE(NOT(MEMBER(SETQ A(LAST(GRREAD)))'(49 50))))
    (SETQ TXT(COND((= A 49)"上")((= A 50)"下")))
    (setq pt0 (getpoint "\nPick point:"))
    (if (setq pt1 pt0)
(progn (setq i 0)
        (while (setq pt2 (getpoint pt1 "\nPick point:"))
     (setq ku (angle pt1 pt2))
     (setq k1 (+ ku pi))
                   (setq pt (polar pt1 k1 300))
     (setvar "osmode" 0)
                   (setVar "OrthoMode" 1)
                  
     (if (= i 0)
        (command "._text" "j" "mc" pt 350 0 txt)
                      (command "Donut" "0" "100" pt0 "" );画箭头线起点圆点   
     )
     (command "line" pt1 pt2 "")
     (command "")
     (setq pt1 pt2
    i   (1+ i)
     )
        )
        (setq pt3 (polar pt1 k1 300))
        (command "Pline" pt1 "W" "0" "60" pt3 "")
         )
    )
    (setq *error* olderr)
    (setvar "osmode" oss)
    (princ)
)

这是一个画箭头的程序，如何让标注“上” “下”文字在画完箭头线后进行。请高手帮忙改一下