交换尺寸定义点
有没有人有一些代码可以交换线性维度的定义点，这样短维度的文本就会自动弹出到另一边？试试这些Q&DLisp程序
;;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 "\\X<>")(assoc 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'~
页:
[1]