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

lea丶丶

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