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

fengyu6913

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

详见附图内所述！

谢谢！

夏生生

试试

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

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

叮咚

选择标注后，试试这样

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (if (setq ss (ssget '((0 . "dim*"))))
   
4.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
5.       (setq ob (vlax-ename->vla-object s1))
   
6.       (if (/= (vla-get-rotation ob) 0)(vla-put-rotation ob 0))
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

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

叁點壹肆

给力，学习一下

fengyu6913

感谢各位大佬