弧引线Lisp
我一直在努力学习LISP，并使用一些函数来让事情变得更好。我有一个弧引线lisp，我已修改为使用我公司的箭头，将命令更改为“缩放到dimscale”，但我缺少一些关于箭头位置和可以放置箭头的弧的允许大小的信息。我已经附加了我到目前为止修改过的lisp命令，我想要使用的箭头，它的大小和比例都是正确的。我还添加了一些图片，其中一个是当弧引线太小而无法连接箭头时的命令行。以及模型中相应的弧。还有一张创建的多个弧的图片，显示箭头在放置以与弧对齐时没有旋转。
非常感谢您的帮助，请告诉我在修改中哪里出错了，因为我正在努力学习LISP，这样我可以提高自己的技能，也希望能在将来帮助他人。
非常感谢。
吉姆
弧引线AW。lsp
AW-JGA。图纸
你在这里试过李的箭弧吗？ Lee Mac的Lisp例程很棒，但它不允许您仅指定箭头的长度和宽度。我需要箭头是我的公司目前使用的同一块。 请尝试以下操作：
[颜色=绿色]；；箭头引线-Lee Mac（defunc:aa（/ahb blk DISENT len ocs pt1 pt2 scl）（setqahb“AW-JGA”；；箭头块scl（getvar'dimscale）；；箭头标度len（*scl 0.07812501562757113）；；箭头长度（cond（not（setqblk（LM:importblock ahb））（princ（strcat“\n \”“ahb“未找到块/图形。”））（（not（setqpt1（getpoint“\n指定箭头位置：“）（（setqentlast）（命令“.arc”“\u non”pt1）（while（=1（logand1（getvar'cmdactive））（命令[“\\”）（eqent（setqentlast））（[CO 李，
这很好，但似乎arcleader将取代当前的领导者。指定进入当前引线的行在哪里？我想指定一个特定的图层来绘制弧引线。
再次感谢大家，
吉姆 没关系，我想出了如何改变图层。我在程序的开头添加了“setvar”语句。 李，
关于这个很好用的弧引线Lisp，我还有一个问题，在放置弧引线后，Lisp的附加项是什么，用于指示AutoCAD在行尾添加文本框？
一如既往地感谢您的指导，
吉姆
页:
[1]