帮助绘制点#到的线

BELIEW · 发表于 2022-7-6 07:20:13

我对autolisp完全陌生。我只是想知道如何编写一个lisp，它将使用现有的点号绘制一条多边形线。例如，如果我将点编号引入始终编号为1-10的图形中，无论它们在插入图形时包含什么坐标，我都希望lisp从点#1、到2、到3……绘制一条多边形线。。。。等等。我知道LDD中内置了一个宏，允许您从#到#绘制一条线，但我希望lisp能够自定义我自己。我也不希望必须亲自挑选我想要的点，我希望lisp按数字找到点。提前感谢您的帮助。

David Bethel · 发表于 2022-7-6 07:27:50

如何将点数据导入AutoCAD？

-大卫

BELIEW · 发表于 2022-7-6 07:33:45

我正在使用导入它们。csv文件PNEZD

点#，北距，东距，高程，描述

David Bethel · 发表于 2022-7-6 07:41:27

您可能希望发布一个数据样本，以确保什么是实数，什么是字符串

我会假设：
[列表]

点#为整数

北距、东距和高程为实数

描述为字符串
[/列表]

-大卫

BELIEW · 发表于 2022-7-6 07:43:31

我不在我的电脑前，但是的，你可以准确地假设。
1200.44300.56256.43，边缘
2, 212.32... 等

David Bethel · 发表于 2022-7-6 07:47:35

这绝对不会进行错误检查、数据检查和nada操作

copy


[b][color=BLACK]([/color][/b]defun c:pt23dpl [b][color=FUCHSIA]([/color][/b]/ file rf nl i cl pl[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not file[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq file [b][color=MAROON]([/color][/b]getfiled [color=#2f4f4f]"CSV Point Data File"[/color] [color=#2f4f4f]""[/color] [color=#2f4f4f]"csv"[/color] 8[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq rf [b][color=NAVY]([/color][/b]open file [color=#2f4f4f]"r"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq nl [b][color=MAROON]([/color][/b]read-line rf[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq i 1 cl nil[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]repeat [b][color=MAROON]([/color][/b]strlen nl[b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]= [color=#2f4f4f]","[/color] [b][color=BLUE]([/color][/b]substr nl i 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq cl [b][color=BLUE]([/color][/b]cons i cl[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq cl [b][color=MAROON]([/color][/b]reverse cl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq pl [b][color=MAROON]([/color][/b]cons [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]atof [b][color=RED]([/color][/b]substr nl [b][color=PURPLE]([/color][/b]1+ [b][color=TEAL]([/color][/b]nth 1 cl[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                              [b][color=PURPLE]([/color][/b]- [b][color=TEAL]([/color][/b]nth 2 cl[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]nth 1 cl[b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]atof [b][color=RED]([/color][/b]substr nl [b][color=PURPLE]([/color][/b]1+ [b][color=TEAL]([/color][/b]nth 0 cl[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                              [b][color=PURPLE]([/color][/b]- [b][color=TEAL]([/color][/b]nth 1 cl[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]nth 0 cl[b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                             [b][color=BLUE]([/color][/b]atof [b][color=RED]([/color][/b]substr nl [b][color=PURPLE]([/color][/b]1+ [b][color=TEAL]([/color][/b]nth 2 cl[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                              [b][color=PURPLE]([/color][/b]- [b][color=TEAL]([/color][/b]nth 3 cl[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]nth 2 cl[b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] pl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]close rf[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.3DPOLY"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]apply 'command [b][color=NAVY]([/color][/b]reverse pl[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]""[/color][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]