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

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

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

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

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

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

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

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

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

天天问发表于 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

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

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

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

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

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

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

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

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

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

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

支持下好学的同学

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

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

感谢支持，请多指教

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

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

感谢支持，请多指教

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

很好很好，终于等到了

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

购买表达支持！

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

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

感谢老版主的支持和鼓励

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

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

本帖子中包含更多资源

评分