怎么让文字和它附近的直线对齐，并保持适当距离

captha · 发表于 2009-7-26 22:57:00

本帖最后由作者于 2009-7-27 9:19:40 编辑

请教各位大侠，我有很多文字，每行文字旁边有一个短直线，直线与短直线的角度都不一样，怎么让程序自动让黄色文字和旁边的短直线对齐，并保持一定距离（避免文字和直线重叠）。如下图所示让所有的黄色文字都和文字旁边的红色直线对齐

鸿雁1986 · 发表于 2025-1-8 22:55:03

captha 发表于 2009-7-31 23:27
非常感谢大家！问题已解决！思路和侠客StartMe，lzh741206客的思路相似最开始我是打算建立一个选择集选择文 ...

建立文字选择集后对选择集内每个文字再建立选择集选择附近直线这个怎么实现的，代码能不能分享看看

鸿雁1986 · 发表于 2025-1-8 22:53:24

雪山飞狐_lzh 发表于 2009-7-29 23:44
以文字中心，不断扩大范围构建选择集

以文字中心，不断扩大范围构建选择集
具体怎么操作，有代码吗，发出来参考一下

顾茗思意 · 发表于 2024-7-10 08:39:26

你好，请问现在自动对齐并保持距离作成了么

雪山飞狐_lzh · 发表于 2009-7-27 00:00:00

用图形描述一下

cqy · 发表于 2009-7-27 23:46:00

可以试试按以下几步完成：

1、建立文字选择集提取各插入点；

2，分别以各插入点建立选择集提取相应直线属性；

3，设置文字插入点及角度重新插入该字。

captha · 发表于 2009-7-28 21:07:00

致侠客cqy:有点疑惑请教您,怎么以文字的插入点提取直线的属性呢,文字和直线分别是独立的实体

captha · 发表于 2009-7-28 21:10:00

致侠客cqy:有些疑惑请教您,文字和直线分别是各自独立的实体,怎么用文字插入点来建立选择集提取直线的属性呢

StartMe · 发表于 2009-7-28 21:46:00

写入字体时以直线端点写入，然后字体旋转与线相同角度。如果偏要有一点距离的话，可以试着offset后删除原字体。

自己没实际做，仅供参考。

captha · 发表于 2009-7-29 09:16:00

请教侠客StartMe:我编的这个程序是对现有的图形(该图形文字和直线没有对齐)进行修改,因为有多个直线和文字,怎么让各个文字分别与旁边的直线建立对应关系呢,并按对应的直线进行调整

cqy · 发表于 2009-7-29 19:54:00

以文字插入点pt在子程序A中建立选择集

       X(1) = pt(1) + 0.1
       X(0) = pt(0) + 0.1
       X(2) = 0
        Y(1) = pt(1) - 0.1
        Y(0) = pt(0) - 0.1
        Y(2) = 0

调用

Call ThisDrawing.A

新文字插入点及角度要计算（与原点相对位置）

StartMe · 发表于 2009-7-29 21:27:00

如果你现有的图形中，文字和直线毫无规律可言，那你这样的程序根本无法实现。

看你的附图，如果你能把那些相关的线做成选择集，不要包含图中无用的其他直线，把那些相关的文字做成个选择集的话，那么你可以这样：

因为看你图片，一条线可能对应两个文字，所以一定要遍历文字，

遍历所有这些涉及的文字，得到其中间点，然后在所有直线中遍历，挑出所有的直线中，其中间点距离这个文字的中间点最近的那条直线，得到直线角度，更改文字与之同角度。

如果图中这些文字、线够多的话，那你这程序运行速度。。。。。。。。。等着吧。

仅供参考。

雪山飞狐_lzh · 发表于 2009-7-29 23:44:00

以文字中心，不断扩大范围构建选择集

账号		自动登录	找回密码
密码			注册