ynhh 发表于 2022-10-8 13:58:26

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

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




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


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

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

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

谢谢



e2002 发表于 2022-10-8 14:24:43

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

自贡黄明儒 发表于 2022-10-8 14:48:41

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

ynhh 发表于 2022-10-8 15:14:51

本帖最后由 ynhh 于 2022-10-8 15:21 编辑

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

黄总
qleader


用这个
“注释”选项卡

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




天天问 发表于 2022-10-14 16:51:00

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

ynhh 发表于 2022-10-15 11:42:32

天天问 发表于 2022-10-14 16:51
可以研究一下这一句
(vlax-put obj 'TextJustify acAttachmentPointMiddleRight)
我用这个方法可以实现多 ...
谢谢您的指导
后来我是用修改的方式
强制改了
页: [1]
查看完整版本: 如何将引线上的多行文字设置为左下对齐