AutoLISP 读取 txt中的坐标

AutoLISP 可以通过读取文本文件来获取坐标信息。下面是一个简单的示例代码，可以读取格式为 X,Y,Z 的坐标数据：

(defun read-coordinates (file-path)
  (setq coordinates '())
  (setq file (open file-path "r"))
  (while (setq line (read-line file))
    (setq coords (mapcar 'atof (split-string line ",")))
    (setq coordinates (cons coords coordinates)))
  (close file)
  (reverse coordinates))

这个函数需要一个文件路径作为参数，它会打开文件并逐行读取。每行中的坐标数据被分割成一个字符串列表，然后通过 `atof` 函数转换为浮点数。最后，所有的坐标数据都被存储在一个列表中并返回。

您可以根据自己的需要修改这个代码，以适应不同的文件格式和坐标数据。

相关问题

autolisp提取txt中的坐标

您好！为了提取txt中的坐标，您可以使用AutoLISP中的文件读取和字符串处理函数。下面是一个简单的示例代码，可以读取txt文件中的坐标数据并将其存储在列表中：

(defun extract-coordinates (file-path)
  (setq coordinates '()) ; 存储坐标数据的列表
  (setq file (open file-path "r")) ; 打开文件
  (while (setq line (read-line file nil)) ; 逐行读取文件内容
    (setq fields (vl-string-split line " ")) ; 将每行内容按空格分隔成多个字段
    (setq x (atof (nth 0 fields))) ; 提取X坐标
    (setq y (atof (nth 1 fields))) ; 提取Y坐标
    (setq z (atof (nth 2 fields))) ; 提取Z坐标
    (setq coordinates (append coordinates (list (list x y z)))) ; 将XYZ坐标存储为一个列表
  )
  (close file) ; 关闭文件
  coordinates ; 返回坐标列表
)

您可以将上述代码保存为一个LSP文件并在AutoCAD中加载使用。调用该函数时，只需传入txt文件的路径即可提取其中的坐标数据，例如：

(extract-coordinates "C:\\data\\coordinates.txt")

上述示例代码假设txt文件中每行数据都是以空格分隔的XYZ坐标，如果您的txt文件格式不同，需要根据实际情况进行相应的修改。

用AutoLISP实现读取文本文件中的坐标功能

AutoLISP是一种专门为AutoCAD设计的Lisp方言，它也可以用来实现读取文本文件中的坐标功能。假设文本文件中每行是一个坐标，格式为`(x, y)`，我们可以编写一个AutoLISP函数来读取该文件中的所有坐标，并将它们存储在一个列表中。以下是一个示例：

(defun read-coordinates (file-path)
  (setq coordinates '())
  (setq file (open file-path "r"))
  (while (setq line (read-line file))
    (setq coord (read (strcat "(" line ")")))
    (setq coordinates (cons coord coordinates)))
  (close file)
  coordinates)

在这个例子中，`read-coordinates`函数带有一个参数`file-path`，表示要读取的文件的路径。在函数体中，我们首先初始化一个空列表`coordinates`。然后，我们使用`open`函数打开文件，并将其命名为`file`。`:r`参数表示以只读模式打开文件。接下来，我们使用一个`while`循环逐行读取文件，并将每行坐标解析为AutoLISP列表。我们使用`read-line`函数读取每行数据，然后使用`strcat`函数将其拼接成Lisp表达式的形式。接着，我们使用`read`函数将每个坐标解析为Lisp列表，并将其添加到`coordinates`列表中。最后，我们使用`close`函数关闭文件，并返回`coordinates`列表。

需要注意的是，如果文件中的每行坐标不是以`(x, y)`的格式表示，那么需要根据实际情况修改`read`函数的参数。另外，如果文件中有空行或其他非坐标数据，需要在循环中进行相应的判断和处理。