弧引线Lisp

jsetti01 · 发表于 2022-7-5 18:06:18

我一直在努力学习LISP，并使用一些函数来让事情变得更好。

我有一个弧引线lisp，我已修改为使用我公司的箭头，将命令更改为“缩放到dimscale”，但我缺少一些关于箭头位置和可以放置箭头的弧的允许大小的信息。我已经附加了我到目前为止修改过的lisp命令，我想要使用的箭头，它的大小和比例都是正确的。我还添加了一些图片，其中一个是当弧引线太小而无法连接箭头时的命令行。以及模型中相应的弧。还有一张创建的多个弧的图片，显示箭头在放置以与弧对齐时没有旋转。

非常感谢您的帮助，请告诉我在修改中哪里出错了，因为我正在努力学习LISP，这样我可以提高自己的技能，也希望能在将来帮助他人。

非常感谢。
吉姆
弧引线AW。lsp
AW-JGA。图纸

Happy Hobbit · 发表于 2022-7-5 18:25:48

你在这里试过李的箭弧吗？

jsetti01 · 发表于 2022-7-5 18:29:39

Lee Mac的Lisp例程很棒，但它不允许您仅指定箭头的长度和宽度。我需要箭头是我的公司目前使用的同一块。

Lee Mac · 发表于 2022-7-5 18:37:19

请尝试以下操作：
[code][颜色=绿色]；；箭头引线-Lee Mac（defunc:aa（/[color]ahb blk DISENT len ocs pt1 pt2 scl）（setqahb“AW-JGA”；；箭头块[color]scl（getvar'dimscale）；；箭头标度[color]len（*[color]scl 0.07812501562757113）；；箭头长度（cond（not（setqblk（LM:importblock ahb））（princ（strcat“\n \”“ahb“未找到块/图形。”））（（not（setqpt1（getpoint“\n指定箭头位置：“）（[color=BLUE progn（setqentlast）（命令[MAROON]“.arc”“\u non”pt1）（while（=1（logand1（getvar'cmdactive））（命令[[color]“\\”）（eqent（setqentlast））（[CO