fengyu6913 发表于 4 天前

如 何：将 尺 寸 标 注 变换显示方向

如 何：将 尺 寸 标 注 变换显示方向？

详见附图内所述！

谢谢！

夏生生 发表于 4 天前

试试
(defun c:tt(/ ss en n)
(setq ss (ssget '((0 . "DIMENSION"))))
(repeat (setq n (sslength ss))
(setq en (entget (ssname ss (setq n (1- n)))))
(entmod (subst '(51 . 0.0) (assoc 51 en) en)))
(princ))

叮咚 发表于 4 天前

选择标注后，试试这样

xyp1964 发表于 3 天前



(defun c:tt ()
(setq i -1)
(if (setq ss (ssget '((0 . "dim*"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq ob (vlax-ename->vla-object s1))
      (if (/= (vla-get-rotation ob) 0)(vla-put-rotation ob 0))
    )
)
(princ)
)

叁點壹肆 发表于 3 天前

:lol给力，学习一下

fengyu6913 发表于 3 天前

感谢各位大佬
页: [1]
查看完整版本: 如 何：将 尺 寸 标 注 变换显示方向