(defun c:IDdim ()
     (graphscr)
     (setq a "w")
     (while a
     (setq pt1 (getpoint "Pick point for ID: "))
   ; (if (= pt1 "")
   ; (setq a nil))
     (setq x1 (car pt1))
     (setq y1 (cadr pt1))
     (setq x (rtos x1 2 4))
     (setq y (rtos y1 2 4))
     (setq pt2 (getpoint "to point: "))
     (setq id (strcat x "," y))
     (command "dim" "l" pt1 pt2 "" id)
     )
)
     (princ "Loaded...type iddim to run.")
     (princ)