有关TEXT命令的问题，请帮忙！

(defun C:ADDNOTE (/ osvar start end middle rotate insert text pt pte)
  (setq osvar (getvar "osmode"))
  (setvar "osmode" 1)
  (setq start (getpoint "\n选取第1个点,"))
  (setq end (getpoint start " 选取第2个点"))
  (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
                     (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
                     0
               )
  )
  (setq rotate (angle start end))
  (setq insert (polar middle (+ rotate (angtof "90")) 5))
  (setvar "osmode" 0)
  (command "text" insert 5 (angtos rotate) "note")
  (setq text (entget (entlast)))
  (setq pt (cdr (assoc 10 text)))
  (setq pte (polar pt rotate (cdr (assoc 41 text))))
  (setq text (subst (cons 11 pte) (assoc 11 text) text))
  (setq text (subst (cons 72 1) (assoc 72 text) text))
  (setq text (subst (cons 73 1) (assoc 73 text) text))
  (entmod text)
  (setvar "osmode" osvar)
  (princ)
)

(defun C:ADDNOTE (/ start end middle rotate insert)
  (setq start (getpoint "\n选取第1个点,"))
  (setq end (getpoint start " 选取第2个点"))
  (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
                     (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
                     0
               )
  )
  (setq rotate (angle start end))
  (setq insert (polar middle (+ rotate (angtof "90")) 5))
  (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity")
                 '(67 . 0) '(410 . "Model") '(100 . "AcDbText")
                 (cons 10 insert)
                 '(40 . 5.0)
                 '(1 . "note")
                 (cons 50 rotate)
                 '(41 . 1.0) '(51 . 0.0) '(71 . 0) '(72 . 1)
                 (cons 11 (polar Insert rotate 5)) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 1))
  )
  (princ)
)