引线出来注写文字

iamhuangjinming

;;------------------------------------------------------------------------------------
(defun C:get2()
(setvar"osmode" 32767 )
  (setq p (getpoint "\nfirst blood"))
(command "pline" p "w" "30" "30" "@250<45"  "")
  (setq ps p)
  (setq pt (list p))
  (while p
    (setq p (getpoint "\nand then "))
(command "pline" p "w" "30" "30" "@250<45" "")
    (setq pt (append pt (list p)))
  )
  (setq pg (getpoint "\nsummary"))
  (setq n (length pt))
  (setq index 0)
  (repeat n
    (setq p1     (nth  index pt)
      index (1+ index)
      p2    (nth  index pt)
    )
    (command "line" p1 pg p2 pg"")
  )
(setq point_x1 (car ps))
(setq point_x2 (car pg))
(princ ps)
(princ point_x1)
(princ point_x2)
(if(> point_x2 point_x1)
(progn
(command "line" pg "@8000<0""")(command"-style""tssd" "" "1400" "" "" "" "" "")
(command"text" pg "0" "Nil："))
(progn
(command "line" pg "@8000<180""")(command"-style""tssd" "" "1400" "" "" "" "" "")
(command"text" "j" "r" pg "0" "Nil："))
)
(setvar "clayer" #k)
(setvar "osmode" #os)
  )
;;------------------------------------------------------------------------------------


运行出现：
and then  未知命令“W”。按 F1 查看帮助。
未知命令“30”。按 F1 查看帮助。
未知命令“30”。按 F1 查看帮助。
未知命令“@250<45”。按 F1 查看帮助。
请大神指导！