社区 › AutoLISP/Visual LISP 编程技术 › 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创建多重引线样式—源码分享