非常好用的座标式尺寸旋转后归正

zhongys

座标式尺寸旋转后会乱掉，大家是不是很烦呢， 使用本程式可以帮你忙。 (defun c:s_dim(/ ss i ssdata sstyp old_typ new_typ)
(setvar "cmdecho" 0)
(prompt "\n选择要改变的图元 : ")
(setq ss (ssget '((0 . "DIMENSION"))))
(while (= ss nil)
(prompt "\n选择要改变的图元 : ")
(setq ss (ssget '((0 . "DIMENSION"))))
)
(setq i 0)
(repeat (sslength ss)
(setq ssdata (entget (ssname ss i)))
(setq sstyp (cdr (assoc 70 ssdata)))
(cond
((= 38 sstyp)
(setq old_typ (assoc 70 ssdata))
(setq new_typ (cons 70 102))
(setq ssdata (subst new_typ old_typ ssdata))
)
((= 102 sstyp)
(setq old_typ (assoc 70 ssdata))
(setq new_typ (cons 70 38))
(setq ssdata (subst new_typ old_typ ssdata))
) ((= 166 sstyp)
(setq old_typ (assoc 70 ssdata))
(setq new_typ (cons 70 230))
(setq ssdata (subst new_typ old_typ ssdata))
) ((= 230 sstyp)
(setq old_typ (assoc 70 ssdata))
(setq new_typ (cons 70 166))
(setq ssdata (subst new_typ old_typ ssdata))
)
)
(entmod ssdata)
(setq i (1+ i))
)
(prompt "\n 座标式尺寸归正----------->>>钟云山<<<---")
(princ)
)

bhf0114

在2004中已经没有必要了,它本身就有这个功能

fengdebing

真的不错，谢谢了！

liudeyong

很好用，谢谢了

andyding

TKS!!!