; TIP546.LSP   Label Contour Lines   (c)1990, Spenser Kirksey

(defun C:CTEXT (/ ENT IPT ANG DST EL)
  (setq
    OSM (getvar "OSMODE")
    FTL (getvar "FLATLAND")
    SF  (getvar "DIMSCALE")
    SF  (if (= SF 0) 1 (abs SF))
  )
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 512)
  (setvar "FLATLAND" 1)
  (setq
    ENT (entsel
      "\nPick the left insertion pt: ")
    IPT (cadr ENT) ENT (car ENT)
  )
  (setvar "OSMODE" 0)
  (setq
    ANG (getangle IPT
      "\nDigitize a point to the right:")
    EL (rtos (cdr(assoc 38 (entget ENT)))
      2 0)
  )
  (setq DST (* SF (* (strlen EL) 0.10)))
  (command "break" ENT IPT
    (polar IPT ANG DST))
  (command "layer" "m" "TEXT" "")
  (command "text" "m" (polar IPT ANG
    (/ DST 2)) (* SF 0.095)
    (angtos ANG 0 4) EL
  )
  (setvar "OSMODE" OSM)
  (setvar "FLATLAND" FTL)
  (princ)
)