![将 DWG/DXF 转换为 CSV 或 Excel](https://linux22.com/image/1368427/%E5%B0%86%20DWG%2FDXF%20%E8%BD%AC%E6%8D%A2%E4%B8%BA%20CSV%20%E6%88%96%20Excel.png)
我正在使用 ZWcad,我需要将数百个块的坐标放入 excel 表或 .CSV 文件中,以便将其导入 GPS 硬件。我知道 autocad 有很多工具,我甚至可以自己编写一个,但就 ZWcad 而言,我似乎没有选择。
但是 ZWcad 也可以保存为 DWG,并导出到所有其他熟悉的 cad 扩展。所以我想知道如果我只保存需要导出的块到某个文件,是否有工具/程序可以将其直接转换为 .CSV。
答案1
下面是一个简单的 AutoLISP 程序,演示如何提取用于选择块引用的 WCS 插入点坐标到逗号分隔的 CSV 文件中。
(defun c:blk2csv ( / e f i p s )
(if (and (setq s (ssget '((0 . "INSERT"))))
(setq f (getfiled "" "" "csv" 1))
(setq f (open f "w"))
)
(progn
(repeat (setq i (sslength s))
(setq i (1- i)
e (ssname s i)
p (trans (cdr (assoc 10 (entget e))) e 0)
)
(write-line (apply 'strcat (mapcar 'strcat (mapcar 'rtos p) '("," "," ""))) f)
)
(close f)
)
)
(princ)
)