如何使用LSP（类似AutoLISP的编程语言）将CAD中的直线和多段线的节点坐标提取并保存至TXT文件中？

在AutoLISP或类似的LSP环境中，提取CAD中的直线和多段线的节点坐标并保存到TXT文件，通常需要以下几个步骤：

1. **打开模型**：
使用`openacad`命令打开你的CAD模型，确保你有权限访问所需的图纸。

2. **获取实体列表**：
调用`entsel`函数选择你要处理的直线(`LWPOLYLINE`)或多段线(`POLYLINE`)，然后使用`entlist`获取这些选定对象的列表。

3. **遍历实体**：
使用循环结构，如`for each`，对每个实体执行以下操作：
- 对于直线，调用`endpoint`和`startpoint`函数获取两个端点坐标；
- 对于多段线，可能需要使用`vertices`函数获取每个段落的节点，然后合并这些节点。

4. **保存坐标**：
创建一个TXT文件，可以使用`ofile`创建，然后逐行写入节点坐标，用逗号分隔每个点的X、Y坐标。

5. **结束操作**：
完成后记得关闭文件并退出LISP环境，例如使用`fclose`关闭文件，`unload-app`或`quit`退出。

下面是一个简单的示例代码片段：

(defun c:export-line-node-coords ()
  (save-excursion
    (let* ((model (acad-get-object " acad.model"))
           (entities (entsel "*LWPOLYLINE *POLYLINE" model :r)) ; 选择直线和多段线
           (file (make-instance 'file-object :name "nodes.txt")) ; 创建文件对象
       (with-open-file (stream file :direction :append)
         (dolist (entity entities)
           (when (and (eq (class-of entity) 'lwpolyline)
                       (>= (length (ends entity)) 2)) ; 检查是否有多于2个节点
             (let ((start (first (ends entity)))
                   (end (second (ends entity))))
               (format stream "~a,~a\n" start end)))))) ; 写入节点坐标
    (fclose stream)
    (unload-app)))