怎么样从cad里提取坐标文件

要从CAD文件中提取坐标文件，可以使用CAD软件自带的命令或者使用第三方软件进行转换。以下是两种方法：
1. 使用CAD软件自带的命令：在CAD软件中，通常会有一个命令用于提取坐标文件。打开CAD文件，在菜单栏或命令行中寻“输出”、“打印”等选项，并仔细阅读相关文档以确定正确的命令和选项。将需要提取坐标点的图层设为显示状态，并按照文档中提供的步骤执行相应命令即可。
2. 使用第三方软件：如果无法在CAD软件中到合适的命令或者希望更加灵活地处理坐标文件，可以考虑使用专门针对坐标文件转换的第三方软件。这些软件通常具有更强大的功能和更多样化的选项，能够满足不同需求。选择一个可靠且适合自身需求的软件，并按照其提供的指引进行操作即可。
无论选择何种方式，都需要确保所选用的方法与所用CAD软件版本兼容，并且遵循相关安全规定和法律要求，在操作过程中谨慎小心以避免意外损失或数据泄露。 |||autocad图形中的每个实体都有若干个点,比如插入点之类的，大多数情况下这些点都是三维点，也就是有xyz坐标。

那么怎么提取这些坐标呢，一般是采用编程的方法来提取。

编程一般是采用vba，你可以看一下acad的帮助中有个[开发人员帮助]，里边有个各种实体的类名(object model)表，可以看到各个类的 方法与属性，对编程人员非常有用。

编程时你可以通过对图形中的实体进行遍历，到每个实体，查询其属性，比如可以查询实体的插入点属性，每个实体都会有其相应的点，象多义线会有若干个转折点，直线就会有两个端点，等等，都可以通过类的属性提取，然后把这些数据输出到某个文本文件中，即可完成点坐标提取工作。 |||这是施工放样用的读取平面坐标的Lisp。按顺序画一条LWPOLYLIE，然后读取线条个转折点平面坐标。;;读取直线上各转点坐标程序

(DEFU C:LII(/ FAME F KK ZM ZM1 ED2 F10 F11 XX YY)

(SETVAR "CMDECHO" 0)

(SETQ FAME (GETSTRIG "请输入文件名:" ))

(PRIC " 请选择LWPOLYLIE......")

(SETQ ED2 (ETGET (CAR (ETSEL))));取出选中对象的表

(IF (/= (CDR (ASSOC 0 ED2)) "LWPOLYLIE")

(PROG

(PRIC "抱歉！您没选中LWPOLYLIE。")

(EXIT)

);ED PROG

);ED IF

(SETQ F (OPE (STRCAT FAME ".TXT") "W"));打开输出文件路径

(SETQ ZM1 0 )

(SETQ ZM (CDR (ASSOC 90 ED2)));顶点的数量

(WHILE ( ZM1 ZM)

(IF (/= (CAR (CAR ED2)) 10) (SETQ ED2 (CDR ED2)))

(IF (= (CAR (CAR ED2)) 10)

(PROG

(SETQ F11 (CDR (CAR ED2)));取出每一个点的坐标

(SETQ XX (SJZL (CADR F11)))

(SETQ YY (SJZL (CAR F11)))

(SETQ S (STRCAT (RTOS (+ 1000 ZM1) 2 0) "," XX "," YY ",1.0 "));按格式拼数据

(PRIC S F);输出数据

(SETQ ED2 (CDR ED2));取下一个端点数据

(SETQ ZM1 (+ ZM1 1))

);ED PROG

);ED IF

);ED WHILE

(CLOSE F);关闭文件

(ALERT (STRCAT "你的坐标文件保存在" FAME ".TXT请查看"))

(PRIC)

);ED DEFU |||

这是施工放样用的读取平面坐标的Lisp。

按顺序画一条LWPOLYLIE，然后读取线条个转折点平面坐标。

;;读取直线上各转点坐标程序 (DEFU C:LII(/ FAME F KK ZM ZM1 ED2 F10 F11 XX YY) (SETVAR "CMDECHO" 0) (SETQ FAME (GETSTRIG "请输入文件名:" )) (PRIC " 请选择LWPOLYLIE......") (SETQ ED2 (ETGET (CAR (ETSEL))));取出选中对象的表 (IF (/= (CDR (ASSOC 0 ED2)) "LWPOLYLIE") (PROG (PRIC "抱歉！您没选中LWPOLYLIE。") (EXIT) );ED PROG );ED IF (SETQ F (OPE (STRCAT FAME ".TXT") "W"));打开输出文件路径 (SETQ ZM1 0 ) (SETQ ZM (CDR (ASSOC 90 ED2)));顶点的数量 (WHILE ( ZM1 ZM) (IF (/= (CAR (CAR ED2)) 10) (SETQ ED2 (CDR ED2))) (IF (= (CAR (CAR ED2)) 10) (PROG (SETQ F11 (CDR (CAR ED2)));取出每一个点的坐标 (SETQ XX (SJZL (CADR F11))) (SETQ YY (SJZL (CAR F11))) (SETQ S (STRCAT (RTOS (+ 1000 ZM1) 2 0) "," XX "," YY ",1.0 "));按格式拼数据 (PRIC S F);输出数据 (SETQ ED2 (CDR ED2));取下一个端点数据 (SETQ ZM1 (+ ZM1 1)) );ED PROG );ED IF );ED WHILE (CLOSE F);关闭文件 (ALERT (STRCAT "你的坐标文件保存在" FAME ".TXT请查看")) (PRIC) );ED DEFU