如何将引线上的多行文字设置为左下对齐

ynhh

如何将引线上的多行文字设置为左下对齐

2. 
   
3. <div>(defun c:QQ ()
   
4.   ;;(setvar "dimasz" 1.5)                ;箭头设置
   
5.   ;;(setvar "dimtxt" 3)                  ;文字设置
   
6.   (setq x_text "N=")
   
7.   (setq y_text "E=")
   
8.   (setq z_text "Z=")
   
9.   (setq pr 4)                            ;坐标小数位精度
   
10.   (while (setq p_dim (getpoint "\n 选择待标注点 "))
    
11.     (setq p_leader (getpoint p_dim "\n 选择标注显示位置"))
    
12.     (setq x_coord (strcat x_text (rtos (car p_dim) 2 pr)))
    
13.     (setq y_coord (strcat y_text (rtos (cadr p_dim) 2 pr)))   
    
14.     (setq z_coord (strcat z_text (rtos (caddr p_dim) 2 pr)))
    
15.     (command "leader" p_dim p_leader "" x_coord y_coord z_coord"")
    
16.   )
    
17. )</div>

<br /> <div>(defun c:QQ ()<br />   ;;(setvar "dimasz" 1.5)                ;箭头设置<br />   ;;(setvar "dimtxt" 3)                  ;文字设置<br />   (setq x_text "N=")<br />   (setq y_text "E=")<br />   (setq z_text "Z=")<br />   (setq pr 4)                            ;坐标小数位精度<br />   (while (setq p_dim (getpoint "\n 选择待标注点 "))<br />     (setq p_leader (getpoint p_dim "\n 选择标注显示位置"))<br />     (setq x_coord (strcat x_text (rtos (car p_dim) 2 pr)))<br />     (setq y_coord (strcat y_text (rtos (cadr p_dim) 2 pr)))   <br />     (setq z_coord (strcat z_text (rtos (caddr p_dim) 2 pr)))<br />     (command "leader" p_dim p_leader "" x_coord y_coord z_coord"")<br />   )<br /> )</div>

当文字位置在起点右侧时，文字自动为左下

当文件位置在起点左侧时，文字自动为右下

我想无论文字相对起点在左或右时，均自动设置为 左下

谢谢

e2002

MLeader 目前在这些细节的功能设计上确实不太好，写程序处理都费劲。

自贡黄明儒

leader时，输入S进行设置，如果不勾选“始终左对齐”，那往左时自然是右对齐。往右，自然左对齐。
桌子处理得不错。

ynhh

自贡黄明儒 发表于 2022-10-8 14:48
leader时，输入S进行设置，如果不勾选“始终左对齐”，那往左时自然是右对齐。往右，自然左对齐。
桌子处 ...

黄总
qleader


用这个
“注释”选项卡

设置后
再用之前的程序画图时
文字还是老样子没变化啊

天天问

可以研究一下这一句
(vlax-put obj 'TextJustify acAttachmentPointMiddleRight)
我用这个方法可以实现多重引线文字居中、中左、中右

ynhh

天天问 发表于 2022-10-14 16:51
可以研究一下这一句
(vlax-put obj 'TextJustify acAttachmentPointMiddleRight)
我用这个方法可以实现多 ...

谢谢您的指导
后来我是用修改的方式
强制改了