;This autolisp program moves text to an elevation based on it's value.
Code:
(DEFUN C:MTE ()
(PROMPT "\n***Move Text to Elevation***")
(SETVAR "CMDECHO" 0)
(COMMAND "UNITS" "2" "2" "" "" "" "")
(SETQ APS (SSGET '((0 . "TEXT")) ))
(SETQ APSL (SSLENGTH APS))
(SETQ CT1 (- APSL 1))
(SETQ LP1 1)
(WHILE LP1
(SETQ APSN (SSNAME APS CT1))
(SETQ CT1 (- CT1 1))
(SETQ APSNL (ENTGET APSN))
(SETQ APSNLIP (CDR (ASSOC 10 APSNL)))
(SETQ APSNLIPX (CAR APSNLIP))
(SETQ APSNLIPY (CAR (CDR APSNLIP)))
(SETQ APSNLELZ (DISTOF (CDR (ASSOC 1 APSNL)) 2))
(SETQ NAPSNLPT (LIST APSNLIPX APSNLIPY APSNLELZ))
(IF (/= APSNLELZ NIL)
(PROGN
(COMMAND "CHANGE" APSN "" "P" "C" "RED" "")
(COMMAND "MOVE" APSN "" APSNLIP NAPSNLPT)
)); END PROGN/IF APSNLELZ
(IF (< CT1 0) (SETQ LP1 nIL))
);END LP1
(SETVAR "CMDECHO" 1)
(PRINC)
);END MTE