我的多重引线合集【源码】

天天问

-----------------------------------20230815更新-----------------------------------
发现前面发的多重引线桩号插件有一点bug，等距标注有的时候会有问题，当标注起始点不是曲线起点的时候才会出现，估计一般人遇不到，毕竟收了币，必须改正，现在的附件已经是修正后的，有需要的朋友放心下载。请前面已经下载过的朋友在评论区留下邮箱，我把修正后的插件发到您邮箱。



-----------------------------------以下是原贴-----------------------------------
个人使用多重引线比较多，但之前遇到多重引线的问题时发现群里与多重引线相关的帖子数量比较少，因此摸索了好长时间。现在积累了一点多重引线相关的经验，基本都是自己写的，也在群里学习、借鉴许多。集合起来发个贴，希望对喜欢使用多重引线的朋友有所帮助。

1.用lisp创建多重引线样式：源码详见我的帖子http://bbs.mjtd.com/thread-185240-1-1.html


2.将直线和文字合并为多重引线：源码见附件


3.修改多重引线文字格式：文字颜色改为bylayer，文字高度改为默认，源码见附件


4.修改多重引线段落格式：段落对齐方式可选，段落间距改为“精确”（对于中文很有用），源码见附件


5.使用多重引线标注坐标：源码见附件


6.使用多重引线标注里程桩号：标注方法有多种：自动标注顶点，定距标注，手动输入桩号，选点标注，读取TXT文件等；桩号位置可选左侧、右侧或者自动；起始里程可自定义；前缀可自定义；比例尺可自定义；非源码，程序见附件


7.将多重引线桩号执行镜像，源码见附件


8.为多重引线打开或者关闭背景遮罩，源码详见我的帖子http://bbs.mjtd.com/thread-184977-1-1.html

czb203

有图说明下就更好了

Leolaputa

问一件事儿，代码里面有一行：

(setq extra_list2 (cons 340 (tblobjname "LTYPE" "ByLayer")))        ;定义引线格式\常规\线型，选择ByLayer
(setq extra_list3 (cons 342 (tblobjname  "STYLE"  "TSSD")))        ;定义内容\文字选项\文字样式

当我用命令提取已有多重引线参数时，缺发现组码返回的340对应的其实是文字样式的，这是为什么呢。

命令: (tblobjname  "STYLE"  "TSSD")
<图元名: 1965f74c140>
命令: (assoc 342 (entget(car(entsel))))
选择对象: nil
命令: (assoc 340 (entget(car(entsel))))
选择对象: (340 . <图元名: 1965f74c140>)

天天问

e2002 发表于 2023-8-9 14:52
MLeader目前提供的编辑功能有些缺陷，也提了几次改进意见，但现在还是这个鸟样...
我个人也很少用到Mleade ...

原来mleader有缺陷呀，难怪大佬们都不研究这个玩意
就我个人来说，它的优点是：在不使用插件的情况下，用mleader生成的标注便于统一格式，也便于统一调整格式。在统一标准和格式方面，它效率更高

天天问

czb203 发表于 2023-8-9 10:18
有图说明下就更好了

谢谢提醒，有空了再录吧，实在是太懒了

liuhe

大佬，你能不能搞一个多个标注第二点对齐的功能，比如图片

天天问

liuhe 发表于 2023-8-9 13:18
大佬，你能不能搞一个多个标注第二点对齐的功能，比如图片

图片看着像是普通的文字对齐，群里面很多代码可以抄呀

nijiea123

不错，留个脚印，有需要再来找

e2002

MLeader目前提供的编辑功能有些缺陷，也提了几次改进意见，但现在还是这个鸟样...
我个人也很少用到Mleader，所以也基本上没写过相关的工具。

楼主这个应该是提供了一些解决实际需求的Mleader工具，有需要的可以试试。

菜鸟初来乍到

感谢楼主分享

cghdy