yjtdkj 发表于 2021-6-22 19:18:56

[原创]文字贴线－－文字移动上线上----文字随线

本帖最后由 yjtdkj 于 2021-7-1 17:26 编辑

功能1：文字移动到线上，线的类型支持直线、多段线、样条曲线、圆弧、圆、椭圆
功能2：支持自动避让，避让后，自动放在线的1/4位置、1/8位置、1/16位置以此类推
功能3：支持设置间距
功能4：支持多选、单选切换。;;;;------------------------------------------发现了一个Bug，如果文字已经在正确的位置，运行程序以后会跳到其它位置
更新了，修复了这个BUG



yjtdkj 发表于 2021-6-24 14:29:50

lxl217114 发表于 2021-6-24 11:50
挺不错的
有没有始端对齐、末端对齐、或者指定任意位置对齐的选项呢？

任意对齐的，可以参考Lee-Mac的程序
始端和终端对齐，这个功能没有我没有编，因为我现在还用不上这个功能

lxl217114 发表于 2021-6-25 08:57:36

yjtdkj 发表于 2021-6-24 14:29
任意对齐的，可以参考Lee-Mac的程序
始端和终端对齐，这个功能没有我没有编，因为我现在还用不上这个功 ...

谢谢分享

水洗可口可乐 发表于 2023-8-10 19:18:12

(setq th (yj-dxf 40 ent)) ;文字高度,原因：no function definition: YJ-DXF 位置-> 行:12 列:17


CAD 2007报错

wwchlncad 发表于 2021-6-23 08:08:59

正琢磨类似的问题，看看好不好用，谢谢分享！

cghdy 发表于 2021-6-23 10:01:58

谢谢分享

a189233 发表于 2021-6-23 15:12:03


正琢磨类似的问题，看看好不好用，谢谢分享！

xotoo 发表于 2021-6-23 16:06:20

需要这个功能
谢谢

panliang9 发表于 2021-6-24 08:33:18

谢谢楼主分享！

lxl217114 发表于 2021-6-24 11:50:37

挺不错的
有没有始端对齐、末端对齐、或者指定任意位置对齐的选项呢？

yjtdkj 发表于 2021-6-25 10:57:15

lxl217114 发表于 2021-6-25 08:57
谢谢分享

把源码给出来了，你可以自己修改
页: [1] 2 3
查看完整版本: [原创]文字贴线－－文字移动上线上----文字随线