如何把整个图纸竖直标注的文字也改成竖直方向？谢谢~
现在知道更改标注效果的变量是DIMTIH了，但不知道为什么两个变量一样，请问能否写一段代码将图纸中所有的标注改成我想实现的效果？(defun c:tt ()
(setq ss (ssget '((0 . "DIMENSION"))))
(if ss
(progn
(setvar "DIMTIH" 1)
)
)
)这段代码没有用，并且手动调整的话只能改变选中的标注，而不是调整后再新创建的标注也是我想要的效果。
谢谢~
本帖最后由 逗亦斗霸 于 2025-8-25 12:25 编辑
这个函数只能改变标注文字的位置，不能改变其方向使其和尺寸线对齐哦，用DeepSeek写了一段这样的也不行，唉~实在不行手动挡了~(defun c:tt (/ ss i ent obj)
(vl-load-com)
(if (setq ss (ssget '((0 . "DIMENSION"))))
(repeat (setq i (sslength ss))
(setq ent (ssname ss (setq i (1- i)))
obj (vlax-ename->vla-object ent))
; 设置文字与尺寸线对齐
(vla-put-TextInsideAlign obj :vlax-true)
(vla-put-TextOutsideAlign obj :vlax-true)
; 设置文字旋转角度与尺寸线一致
(vla-put-TextRotation obj (vla-get-Rotation obj))
)
(princ "\n未选择任何标注对象。")
)
(princ)
)
(defun c:tt ()
(setq i -1)
(if (setq ss (ssget (list '(0 . "dim*") (cons 50 (* pi 0.5)))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(vla-Put-VerticalTextPosition (vlax-ename->vla-object s1) 4)
)
)
(princ)
)
(defun c:tt ()
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(setvar "DIMTIH" 1)
(command"dim1""upd" ss "")
)
)
(princ)
) xyp1964 发表于 2025-8-24 15:54
好像不起作用啊~感谢版主回复！ 本帖最后由 edata 于 2025-8-24 16:48 编辑
新建生效最好改样式，临时改的是样式替代 本帖最后由 xyp1964 于 2025-8-24 16:56 编辑
逗亦斗霸 发表于 2025-8-24 16:24
好像不起作用啊~感谢版主回复！
是我理解错了
edata 发表于 2025-8-24 16:47
新建生效最好改样式，临时改的是样式替代
好像是这个道理，但输入DIMSTYLE后不知道改哪里，只会重新新建图纸后再粘贴过来~
这个控制 DIMTIH DIMTOH , 俩变量组合的结果
edata 发表于 2025-8-24 17:57
这个控制 DIMTIH DIMTOH , 俩变量组合的结果
原来是组合的结果，找到原因了，谢谢啦~ 是这想要的结果？ luoms2008 发表于 2025-8-25 08:28
是这想要的结果？
不不不，反了~
页:
[1]
2