(defun c:fixdims ()
  (setq dims_ss (ssget "X" '((-4 . "<OR")(0 . "DIMENSION")(0 . "LEADER")(0 . "LINE")(-4 . "OR>"))))
  (setq dims_cnt 0
	dims_len (SSLENGTH dims_ss)
  )
  (while (< dims_cnt dims_len)
    (setq dim_ent (entget (ssname dims_ss dims_cnt)))
    (setq dim_ent (subst (cons 10 (list (cadr (assoc 10 dim_ent))(caddr (assoc 10 dim_ent))0.0))(assoc 10 dim_ent) dim_ent))
    (setq dim_ent (subst (cons 11 (list (cadr (assoc 11 dim_ent))(caddr (assoc 11 dim_ent))0.0))(assoc 11 dim_ent) dim_ent))
    (IF (OR (EQ (CDR (ASSOC 0 dim_ent)) "DIMENSION")(EQ (CDR (ASSOC 0 dim_ent)) "LEADER"))
      (PROGN
        (setq dim_ent (subst (cons 12 (list (cadr (assoc 12 dim_ent))(caddr (assoc 12 dim_ent))0.0))(assoc 12 dim_ent) dim_ent))
        (setq dim_ent (subst (cons 13 (list (cadr (assoc 13 dim_ent))(caddr (assoc 13 dim_ent))0.0))(assoc 13 dim_ent) dim_ent))
        (setq dim_ent (subst (cons 14 (list (cadr (assoc 14 dim_ent))(caddr (assoc 14 dim_ent))0.0))(assoc 14 dim_ent) dim_ent))
        (setq dim_ent (subst (cons 15 (list (cadr (assoc 15 dim_ent))(caddr (assoc 15 dim_ent))0.0))(assoc 15 dim_ent) dim_ent))
        (setq dim_ent (subst (cons 16 (list (cadr (assoc 16 dim_ent))(caddr (assoc 16 dim_ent))0.0))(assoc 16 dim_ent) dim_ent))
      )
    )
    (entmod dim_ent)
    (setq dims_cnt (1+ dims_cnt))
  )
  (princ)
)