天天问 发表于 2022-4-18 20:05:00

LISP创建多重引线样式—源码分享

工作习惯，喜欢使用多重引线进行标注，包括文字标注和里程桩号标注。



历经波折，也参考了许多群里前辈的帖子，终于成功创建出了自己需要的多重引线样式。
论坛里前辈们分享的帖子，对DXF组码的备注和取值的说明，多数比较简略，对于个性化需求来说不太友好。
我这个Lisp尽量对DXF组码的取值进行了必要的说明，方便需要的朋友进行个性化定制。


另外，我这个lisp末尾还有新建文字样式，新建了“宋体”。好多新同学不知道如何用lisp创建字体时引用truetype宋体，这个案例可以提供参考。

天天问 发表于 2022-11-30 17:10:07

zhangcan0515 发表于 2022-11-30 11:23
说 342那个有问题

因为342这里引用了一个文字样式“仿宋体”，如果未事先定义“仿宋体”的话，自然会报错

lea丶丶 发表于 2024-4-17 17:18:57

天天问 发表于 2024-4-5 14:23
箭头类型如何设置确实还没有找到解决办法。如果不想要箭头，可以尝试变通一下：设置箭头大小为0，效果一 ...

(cond ((= (car myconfig-mle-mark) "0") (vla-put-ArrowSymbol obj "_OBLIQUE" ))
                     ((= (car myconfig-mle-mark) "1")(vla-put-ArrowSymbol obj "_ARCHTICK" ) (setq mleblk "_ARCHTICK"))
                     ((= (car myconfig-mle-mark) "2")(vla-put-ArrowSymbol obj "_DOT" ) (setq mleblk "_DOT"))
                     ;(t (setq mleblk "")) vla-put-ArrowSymbol obj "" 不能设置为箭头，程序默认为箭头
                 )       
可以用vl来设置。不过（vla-put-ArrowSymbol obj "" ）不能设置为箭头，程序默认为箭头

Leolaputa 发表于 2023-12-27 15:32:04

Leolaputa 发表于 2023-12-23 00:13
创建的多重引线无法像普通的那样镜像，有解决办法吗？
镜像创建的多重引线只会把箭头朝向改变了，箭头起点 ...

解决了，只要设置了基线就可以了。无基线下镜像就会出现文字无法镜像的问题。

xj6019 发表于 2022-4-18 20:24:13

恭喜 恭喜 终于研究成功支持一下！

天天问 发表于 2022-4-18 20:26:56

xj6019 发表于 2022-4-18 20:24
恭喜 恭喜 终于研究成功支持一下！

感谢支持，要学习的还有很多

AndyWang 发表于 2022-4-19 09:21:39

冲你这标注，买了。支持下好学的同学

zghmaya 发表于 2022-4-19 09:53:30

支持下好学的同学

天天问 发表于 2022-4-19 11:53:51

AndyWang 发表于 2022-4-19 09:21
冲你这标注，买了。支持下好学的同学

感谢支持，请多指教

天天问 发表于 2022-4-19 11:55:21

zghmaya 发表于 2022-4-19 09:53
支持下好学的同学

感谢支持，请多指教

冒个烟圈 发表于 2022-4-19 12:06:01

很好很好，终于等到了

e2002 发表于 2022-4-19 15:09:32

购买表达支持！

天天问 发表于 2022-4-19 15:31:06

e2002 发表于 2022-4-19 15:09
购买表达支持！

感谢老版主的支持和鼓励
页: [1] 2 3 4 5
查看完整版本: LISP创建多重引线样式—源码分享