AutoCAD 2017多段线自定义Xdata提取至Excel的AutoLISP及方法求助

阿华AIGC实验室

2026-5-15

批量提取多段线自定义Xdata并导出至Excel的解决方案

我来给你一套靠谱的解决方案——用AutoLISP脚本完全能搞定批量提取多段线自定义Xdata并导出到Excel的需求，毕竟AutoCAD自带的Extract Data确实没法精准关联Xdata和实体信息，咱们自己写脚本更灵活。

核心思路

让用户选择需要处理的多段线集合
遍历每一条多段线，读取其自定义Xdata中的Name、Number字段
对闭合多段线计算其面积Area
将所有收集到的数据写入CSV文件（Excel可直接打开并保存为xlsx格式）

完整AutoLISP代码

(defun c:ExtractPolyXData (/ sel ent entdata xdata appname name number area csvfile)
    ;; 替换为你的自定义Xdata对应的应用程序名
    (setq appname "MyCustomData")
    ;; 让用户选择多段线
    (setq sel (ssget '((0 . "LWPOLYLINE"))))
    (if sel
        (progn
            ;; 让用户指定CSV保存路径
            (setq csvfile (getfiled "保存CSV文件" "" "csv" 1))
            (if csvfile
                (progn
                    ;; 打开文件准备写入
                    (setq csvfile (open csvfile "w"))
                    ;; 写入表头
                    (write-line "Name,Number,Area" csvfile)
                    ;; 遍历选择集中的每个实体
                    (repeat (sslength sel)
                        (setq ent (ssname sel 0)
                              entdata (entget ent)
                              ;; 获取Xdata数据
                              xdata (assoc -3 entdata)
                              name ""
                              number ""
                              area 0.0
                        )
                        (if xdata
                            (progn
                                ;; 从Xdata中提取Name和Number
                                (foreach item (cdr xdata)
                                    (cond
                                        ((and (= (car item) 1000) (= (cadr item) appname))
                                            ;; 找到目标应用程序的Xdata组
                                            (foreach subitem (cddr item)
                                                (cond
                                                    ((= (car subitem) 1000)
                                                        (if (= (cadr subitem) "Name")
                                                            (setq name (cadr (next subitem)))
                                                        )
                                                        (if (= (cadr subitem) "Number")
                                                            (setq number (cadr (next subitem)))
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                        ;; 判断多段线是否闭合，计算面积
                        (if (vlax-curve-isclosed ent)
                            (setq area (vlax-curve-getarea ent))
                        )
                        ;; 写入当前多段线的数据
                        (write-line (strcat name "," number "," (rtos area 2 2)) csvfile)
                        ;; 从选择集中移除已处理的实体
                        (setq sel (ssdel ent sel))
                    )
                    ;; 关闭文件
                    (close csvfile)
                    (alert "数据提取完成，已保存至指定CSV文件！")
                )
                (alert "未指定保存路径，操作取消！")
            )
        )
        (alert "未选择任何多段线，操作取消！")
    )
    (princ)
)

代码关键部分说明

应用程序名替换：你需要把代码中的"MyCustomData"替换为你的自定义Xdata实际关联的应用程序名称（Xdata是和特定APP名绑定的，必须匹配才能正确读取）
Xdata读取逻辑：通过entget获取实体完整数据，assoc -3定位Xdata组，然后遍历找到目标APP下的Name和Number字段
面积计算：使用vlax-curve-isclosed判断多段线是否闭合，闭合时调用vlax-curve-getarea计算面积
CSV导出：CSV格式是Excel完全兼容的，写入表头后逐行追加数据，最后关闭文件即可

使用步骤

打开AutoCAD 2017，加载上述LISP脚本（可以通过APPLOAD命令选择脚本文件）
在命令行输入ExtractPolyXData（或者你可以修改代码开头的c:ExtractPolyXData为更短的命令名，比如c:XDataToExcel）
框选需要提取数据的多段线，按回车确认
在弹出的对话框中选择CSV文件的保存路径和文件名
等待脚本执行完成，打开保存的CSV文件即可看到数据，也可以直接另存为Excel的xlsx格式