使用Divide com的点

Cunha · 发表于 2022-7-5 18:51:20

如何将通过DIVIDE命令获得的实体的第一个、最后一个和所有其他点放入列表中？

ReMark · 发表于 2022-7-5 18:57:40

AutoCAD 2000之前的版本？我们谈得怎么样？

第一个猜测。。。。。数据提取命令。许多选项可用。可以输出为两种或更多文件格式，具体取决于所使用的AutoCAD版本。

第二猜测。。。。。LIST命令。使用此选项将为您提供每个点的X、Y和Z坐标。复制/粘贴文本窗口（F2）中显示的信息。

Cunha · 发表于 2022-7-5 19:00:24

>>>>>>>>>>>>>>>
第一个答案：我不知道如何更好地解释它，我问如何形成一个包含点列表的变量。
第二个答案：没有办法使用复制/粘贴到数百个点。
额外的回答：AutoCad是R14，但我认为它对AutoLisp没有任何影响（在这种特定情况下）。谢谢你的帮助。
>>>>>>>>>>>>>>>

ReMark · 发表于 2022-7-5 19:04:22

我想我错过了你问“如何形成变量”的部分。也许你应该先在AutoLISP论坛上发布。这是学生问题论坛（帮助完成家庭作业和作业）。

现在，您需要一个lisp例程来提取点信息。是这样吗？你在寻找什么确切的信息？

在这里可以找到一个可能的解决方案。。。http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/extract-point-data-calling-all-lisp-gurus/td-p/885377

另一个可能的解决方案可以在这里找到。。。http://www.cadtutor.net/forum/showthread.php?9628-导出点

我相信，如果您尝试的话，您可以找到其他自定义lisp例程来完成相同的任务。

tzframpton · 发表于 2022-7-5 19:07:35

听起来这是一个Lisp程序的问题。我相信Cunha希望使用AutoLISP从使用Divide的点创建一个列表。此线程可能需要移动到适当的论坛。我会标记它，这样海报可以得到帮助。

Cad64 · 发表于 2022-7-5 19:09:32

我认为ReMark的链接应该会有所帮助，但如果需要进一步的帮助，我已经将这个问题转移到AutoLisp部分：http://www.cadtutor.net/forum/forumdisplay.php?21-AutoLISP Visual LISP amp DCL

David Bethel · 发表于 2022-7-5 19:14:16

在调用DIVIDE之前，首先记录最后一个实体（包括顺序）：

copy


[b][color=BLACK]([/color][/b]defun c:div [b][color=FUCHSIA]([/color][/b]/ le ss pl[b][color=FUCHSIA])[/color][/b]
[color=#8b4513];;;RECORD THE LAST ENTITY[/color]
 [b][color=FUCHSIA]([/color][/b]setq le [b][color=NAVY]([/color][/b]entlast[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]entnext le[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq le [b][color=MAROON]([/color][/b]entnext le[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[color=#8b4513];Then DIVIDE[/color]
 [b][color=FUCHSIA]([/color][/b]setvar [color=#2f4f4f]"CMDECHO"[/color] 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.DIVIDE"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]> [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"CMDACTIVE"[/color][b][color=MAROON])[/color][/b] 0[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]command pause[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[color=#8b4513];;;Gather the POINT or INSERT Entities created by DIVIDE[/color]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]setq le [b][color=MAROON]([/color][/b]entnext le[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]progn
       [b][color=MAROON]([/color][/b]setq pl nil
             ss [b][color=GREEN]([/color][/b]ssadd[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]while le
              [b][color=GREEN]([/color][/b]setq pl [b][color=BLUE]([/color][/b]cons [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 10 [b][color=TEAL]([/color][/b]entget le[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] pl[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
              [b][color=GREEN]([/color][/b]ssadd le ss[b][color=GREEN])[/color][/b]
              [b][color=GREEN]([/color][/b]setq le [b][color=BLUE]([/color][/b]entnext le[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]setq pl [b][color=GREEN]([/color][/b]reverse pl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[color=#8b4513];;;PICKSET ss [b][color=FUCHSIA]([/color][/b] to ERASE or whatever [b][color=FUCHSIA])[/color][/b][/color]
[color=#8b4513];;;POINT LIST pl[/color]
[b][color=FUCHSIA]([/color][/b]prin1 pl[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]