Swap Dimension Defpoints

[JayRenn]

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?

[fixo]

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'~