change dimension type from aligned to linear

Hi,

i have a bunch of aligned dimensions in a drawing that i'd like to change to linear dimenions generally. Is there an easy was to do this or do i simply need to delete all the aligned dimensions and redraw them as linear dimensions?

Here is some quick-n-dirty code example to get you started.

(defun convertAlignedDimToVer ( / alDimEname alDimElist pt1 pt2 distFact dimTxtIP x1)

(setq alDimElist (entget (setq alDimEname (car (entsel "\nSelect (click on) aligned dim: ")))))

(setq pt1 (cdr (assoc 13 alDimElist)))

(setq pt2 (cdr (assoc 14 alDimElist)))

(if (

(setq distFact -1)

(setq distFact 1)

)

(setq dimTxtIP (list (+ x1 (* 2.0 distfact)) (/ (+ (cadr pt1) (cadr pt2)) 2.0)))

(command "dim" "ver" pt1 pt2 dimTxtIP "")(command)

(entdel alDimEname)

)