[编程交流] 交换尺寸定义点

;;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)