路过的高手帮忙看看这个程序

cuyongping

(defun C:tt()
(setq scl (getreal "\n缩放比例："))
(setq ss (ssget))
(setq n 0)
(repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq ssdata (entget ssn))
   (setq sstyp (cdr (assoc 0 ssdata)))
  (if (= sstyp "LINE")
   (progn
    (setq enam (ssname ss n))
    (setq edat (entget enam))
    (setq pt1 (cdr (assoc 10 edat)))
   )
  )
  (if (= sstyp "TEXT")
   (progn
    (setq ename (ssname ss n))
    (setq edata (entget ename))
    (setq height (assoc 40 edata))
    (setq pt (cdr (assoc 10 edata)))
    (setq pt_n (mapcar '+ pt pt1))
    (setq edata (subst (cons 40 (* scl (cdr height))) height edata))
    (setq edata (subst (cons 72 4) (assoc 72 edata) edata))
    (setq edata (subst (cons 11 pt_n) (assoc 11 edata) edata))
   )
  )
  (entmod edata)
  (entupd ename)
)
(setq n (1+ n))
)
想实现上面图片的功能，出现错误不能解决，帮帮新手吧！