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

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 "" ）不能设置为箭头，程序默认为箭头

mojianxing · 发表于 2024-5-5 23:46:22

购买表达支持！

222808 · 发表于 2024-5-7 13:31:53

购买表达支持

饼仲郎 · 发表于 2024-5-14 16:25:16

新人想问问你这个编辑代码的用的是那个，cad自带的感觉不得劲，谢谢。

天天问 · 发表于 2024-5-15 12:23:31

饼仲郎发表于 2024-5-14 16:25
新人想问问你这个编辑代码的用的是那个，cad自带的感觉不得劲，谢谢。

飞诗编辑器

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

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