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
查看完整版本: [原创]文字贴线--文字移动上线上----文字随线