;;written By carrot1983 2009-01-15
(defun C:TT (/ E1 E2 ELIST NEWVALUE PT1 PT2 REAL V1)
  (princ "\n递增减LSP程序用于编辑层高表")
  (setvar "dimzin" 0) ;_消零控制
  (setq E1 (car (entsel "\n单选层高表某一标高: ")))
  (setq REAL (getreal "\n输入增值: "))
  (setq PT1 (getpoint "\n输入基点: "))
  (while (setq PT2 (getpoint PT1 "\n指定点: "))
    (setq ELIST (entget E1))
    (setq V1 (cdr (assoc 1 ELIST)))
    (setq NEWVALUE (rtos (+ (read V1) REAL) 2 3)) ;_精确到小数点后面三位
    (entmake (subst (cons 1 NEWVALUE)
      (assoc 1 ELIST)
      ELIST
      )
    )
    (setq E2 (entlast))
    (print (cdr (assoc 1 (entget E2))))
    (command "._move" E2 "" "none" PT1 "none" PT2)
    (setq E1 E2)
    (setq PT1 PT2)
  )
  (princ)
)