初学grread，谁能帮我简化一下。谢谢！

cable2004

;标注名称
(defun c:bb (/ a a1 b b1 bh cd e e1 p pt s ss)
  (vl-load-com)
  (setq ss (entsel)
s (car ss)
pt (cadr ss)
bh (getstring "构件名称")
cd (vlax-curve-getdistatparam s (vlax-curve-getendparam s))
  )
  (while (= (car (setq p (grread t 15 0))) 5)
    (if e
      (progn
(setq e1 (entget e))
(entdel e)
(setq e (entmakex (entmod (subst
        (cons 10 (cadr p))
        (assoc 10 e1)
        e1
      )
     )
  )
)
(setq a1 (entget a))
(entdel a)
(setq a (entmakex (entmod (subst
        (cons 10 (cadr p))
        (assoc 10 a1)
        a1
      )
     )
  )
)
(setq b1 (entget b))
(entdel b)
(setq b (entmakex (entmod (subst
        (cons 11 (polar (cadr p) (angle
            (cadr p)
            pt
            ) (* 3
          (getvar "DIMSCALE")
              )
          )
        )
        (assoc 11 b1)
        b1
      )
     )
  )
)
      )
      (progn
(setq e (entmakex (list (cons 0 "TEXT") (cons 10 (cadr p))
    (cons 11 (cadr p)) (cons 1 bh)
    (cons 40 (* 3 (getvar "DIMSCALE")))
    (cons 72 1) (cons 73 2)
     )
  )
)
(setq a (entmakex (list (cons 0 "CIRCLE") (cons 10 (cadr p))
    (cons 40 (* 3 (getvar "DIMSCALE")))
     )
  )
)
(setq b (entmakex (list (cons 0 "LINE") (cons 10 pt) (cons 11
           (cadr p)
            )
     )
  )
)
      )
    )
  )
)