文本对齐和删除Lisp Routi

grifflee · 发表于 2022-7-6 06:14:35

嗨，我正在寻找一些关于Lisp例程的帮助。

我使用AutoCAD处理了许多地形测量。所有文本都水平放置在直线上，因此我必须将每个文本位旋转到多段线。可以想象，这可能非常耗时。

我遇到了一个Lisp例程，它允许我将文本与多段线对齐，但您必须选择多段线的每个部分，然后是相对文本。我附上了一些屏幕转储，试图使我的观点更清楚一点。

有没有人知道一个例程，可以选择一条多段线，然后选择的所有文本都会旋转到该线，无论它是否在多段线的曲线上。而不必先选择曲线上的点，然后选择文字，再选择直线上的点，然后选择相对文字。

还有谁知道Lisp允许一键删除？而不是选择一个对象，然后点击删除。您可以运行lisp，删除您单击的任何内容，并将命令保持打开状态，直到完成？

抱歉，如果这篇文章似乎长篇大论，但任何帮助将不胜感激。我还附上了我目前使用的文字旋转lisp。

谢谢

RT.LSP

Dadgad · 发表于 2022-7-6 06:24:36

欢迎来到CADTutor。

如果有疑问，请查看李·麦克！
http://www.lee-mac.com/slinkytext.html

这只是大量非常慷慨的口吃之一
在李的网站上免费提供。

谢谢李！
他有很多处理文本问题的人，如果这不是正确的，请查看他的网站。

grifflee · 发表于 2022-7-6 06:32:08

谢谢你的回复，爸爸。

李在他的网站上有一些高质量的Lisp程序的地方，但不是我想要的。

Bhull1985 · 发表于 2022-7-6 06:33:31

很难找到一个预先制作的lisp例程来解决对齐问题，添加了允许单击删除的函数。
你可以找到一个，然后找到另一个，然后把它们结合起来。

troggarf · 发表于 2022-7-6 06:43:13

这是李为我组合的一个。它模仿SketchUp中的橡皮擦工具

http://www.theswamp.org/index.php?topic=39014.msg441779#msg441779
橡皮擦lsp

Tuns · 发表于 2022-7-6 06:45:49

可以做一个很好的ol宏。

copy

*^C^C_erase;\;

Lee Mac · 发表于 2022-7-6 06:53:16

请尝试附加的程序。

[非常感谢Dadgad&Troggarf的推荐！]
自动对齐曲线。lsp

Least · 发表于 2022-7-6 06:57:35

嗨，李，这也可以用于积木吗？那么沿着多段线呢？
干杯
P

Lee Mac · 发表于 2022-7-6 07:05:59

谢谢Greg-

以下是该程序的更新版本，以符合活动UCS设置：
[code][颜色=绿色]；；连续擦除-Lee Mac（defunc:ce（/[color]*错误*flg lst mod pt1 pt2 sel）（defun*错误*（m）（redraw）（[color=BLUE princ FRINC color]“\n选择要擦除的对象：“[/color”）（而[和[不是[color]flg）（=3（setqpt1（grreadnil12 2（））（if（setqsel（ssget）（setqpt1（cadrpt1）））（命令[/color]sel）（progn（princ“\n指定对角：（while（car（setqpt2（grreadt13 0））（redraw）（[color=pt2（cadr[color]pt2）lst（list[color]pt1（list[color]（color=BLUE]car[color]pt2）（cadr[color]pt1）（cadr[color]pt2）））mod（if[

Lee Mac · 发表于 2022-7-6 07:08:36

它应该已经可以处理多段线了；至于积木——是的，但需要更多的工作。

[编程交流] 文本对齐和删除Lisp Routi

发表回复

精选推荐