如何把整个图纸竖直标注的文字也改成竖直方向？谢谢~

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (if (setq ss (ssget (list '(0 . "dim*") (cons 50 (* pi 0.5)))))
   
4.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
5.       (vla-Put-VerticalTextPosition (vlax-ename->vla-object s1) 4)
   
6.     )
   
7.   )
   
8.   (princ)
   
9. )

(defun c:tt ()<br />   (setq i -1)<br />   (if (setq ss (ssget (list '(0 . "dim*") (cons 50 (* pi 0.5)))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (vla-Put-VerticalTextPosition (vlax-ename->vla-object s1) 4)<br />     )<br />   )<br />   (princ)<br /> )

逗亦斗霸

这个函数只能改变标注文字的位置，不能改变其方向使其和尺寸线对齐哦，用DeepSeek写了一段这样的也不行，唉~实在不行手动挡了~

2. (defun c:tt (/ ss i ent obj)
   
3.   (vl-load-com)
   
4.   
   
5.   (if (setq ss (ssget '((0 . "DIMENSION"))))
   
6.     (repeat (setq i (sslength ss))
   
7.       (setq ent (ssname ss (setq i (1- i)))
   
8.             obj (vlax-ename->vla-object ent))
   
9.       
   
10.       ; 设置文字与尺寸线对齐
    
11.       (vla-put-TextInsideAlign obj :vlax-true)
    
12.       (vla-put-TextOutsideAlign obj :vlax-true)
    
13.       
    
14.       ; 设置文字旋转角度与尺寸线一致
    
15.       (vla-put-TextRotation obj (vla-get-Rotation obj))
    
16.     )
    
17.     (princ "\n未选择任何标注对象。")
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt (/ ss i ent obj)<br />   (vl-load-com)<br />   <br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (repeat (setq i (sslength ss))<br />       (setq ent (ssname ss (setq i (1- i)))<br />             obj (vlax-ename->vla-object ent))<br />       <br />       ; 设置文字与尺寸线对齐<br />       (vla-put-TextInsideAlign obj :vlax-true)<br />       (vla-put-TextOutsideAlign obj :vlax-true)<br />       <br />       ; 设置文字旋转角度与尺寸线一致<br />       (vla-put-TextRotation obj (vla-get-Rotation obj))<br />     )<br />     (princ "\n未选择任何标注对象。")<br />   )<br />   (princ)<br /> )

qazxswk

这个属性，系统默认就是“与尺寸线对齐”的。