文本对齐和删除Lisp Routi
嗨，我正在寻找一些关于Lisp例程的帮助。我使用AutoCAD处理了许多地形测量。所有文本都水平放置在直线上，因此我必须将每个文本位旋转到多段线。可以想象，这可能非常耗时。
我遇到了一个Lisp例程，它允许我将文本与多段线对齐，但您必须选择多段线的每个部分，然后是相对文本。我附上了一些屏幕转储，试图使我的观点更清楚一点。
有没有人知道一个例程，可以选择一条多段线，然后选择的所有文本都会旋转到该线，无论它是否在多段线的曲线上。而不必先选择曲线上的点，然后选择文字，再选择直线上的点，然后选择相对文字。
还有谁知道Lisp允许一键删除？而不是选择一个对象，然后点击删除。您可以运行lisp，删除您单击的任何内容，并将命令保持打开状态，直到完成？
抱歉，如果这篇文章似乎长篇大论，但任何帮助将不胜感激。我还附上了我目前使用的文字旋转lisp。
谢谢
RT.LSP 欢迎来到CADTutor。
如果有疑问，请查看李·麦克！
http://www.lee-mac.com/slinkytext.html
这只是大量非常慷慨的口吃之一
在李的网站上免费提供。
谢谢李！
他有很多处理文本问题的人，如果这不是正确的，请查看他的网站。 谢谢你的回复，爸爸。
李在他的网站上有一些高质量的Lisp程序的地方，但不是我想要的。 很难找到一个预先制作的lisp例程来解决对齐问题，添加了允许单击删除的函数。
你可以找到一个，然后找到另一个，然后把它们结合起来。
这是李为我组合的一个。它模仿SketchUp中的橡皮擦工具
http://www.theswamp.org/index.php?topic=39014.msg441779#msg441779
橡皮擦lsp 可以做一个很好的ol宏。
*^C^C_erase;\; 请尝试附加的程序。
[非常感谢Dadgad&Troggarf的推荐！]
自动对齐曲线。lsp 嗨，李，这也可以用于积木吗？那么沿着多段线呢？
干杯
P
谢谢Greg-
以下是该程序的更新版本，以符合活动UCS设置：
[颜色=绿色]；；连续擦除-Lee Mac（defunc:ce（/*错误*flg lst mod pt1 pt2 sel）（defun*错误*（m）（redraw）（“\n选择要擦除的对象：“而[和[不是flg）（=3（setqpt1（grreadnil12 2（））（if（setqsel（ssget）（setqpt1（cadrpt1）））（命令]sel）（progn（princ“\n指定对角：（while（car（setqpt2（grreadt13 0））（redraw）（cadrpt2）lst（listpt1（list（color=BLUE]carpt2）（cadrpt1）（cadrpt2）））mod（if[
它应该已经可以处理多段线了；至于积木——是的，但需要更多的工作。
页:
[1]
2