; update Contour labels for Civil 3D 2008
; by David Dixon - June 1, 2007

(defun c:UL (/ CECHO LOOK)
  (setq CECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq LOOK (ssget "X" (list (cons 0 "AECC_SURFACE_CONTOUR_LABEL_GROUP"))))
  (command ".move" "p" "" "0,0" "0.001,0.001")
  (command ".move" "p" "" "0.001,0.001" "0,0")
  (setvar "CMDECHO" CECHO)
)