Swap Dimension Defpoints

Does anybody have some code that will swap the defpoints of linear dimensions so the text of short dimensions automatically pops out to the other side?

Does anybody have some code that will swap the defpoints of linear dimensions so the text of short dimensions automatically pops out to the other side?

Try these Q&D lisps

;;und.lsp
(defun C:UND (/ elist en ss)
(if
(setq ss (ssget (list (cons 0 "DIMENSION"))))
(while (setq en (ssname ss 0))
(setq elist (entget en))
(entmod (subst (cons 1 "[url="file://\\X<>")(assoc"]\\X<>")(assoc[/url] 1 elist) elist))
(entupd en)
 (ssdel en ss)
)
   )
 (princ)
)
(princ "\n   ***  Start command with UND to set dim text under line   ***")
(princ)

;;abd.lsp
(defun C:ABD (/ elist en ss)
(if
(setq ss (ssget (list (cons 0 "DIMENSION"))))
(while (setq en (ssname ss 0))
(setq elist (entget en))
(entmod (subst (cons 1 "<>\\X")(assoc 1 elist) elist))
(entupd en)
 (ssdel en ss)
)
   )
 (princ)
)
(princ "\n   ***  Start command with ABD to set dim text above line   ***")
(princ)

~'J'~