[求助]：如何从已有的autocad图形中提取数据信息（比如坐标、标注）到文本文件？

binliao

如何从已有的autocad图形中提取数据信息（比如坐标、标注）到文本文件？

penguin_072

如果是标注，先把它炸开，双击数字，在显示的框框里，把数字复制，就可以粘贴到文本文档了。

ericeden

估计应该分析dwf文件的结构应该可以

penguin_072

3楼楼主能说的详细点吗？？？

jxsqq

请1楼说的详细些

lt_zzy

我有一个小程序可以将CAD中的文本（text）导出到d:\ouput\acadtxt.txt文件中。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:dcwb()
   
5.   (setq cm (getvar "cmdecho"))
   
6.   (setvar "cmdecho"0)
   
7.   (setq os (getvar "osmode"))
   
8.   (setvar "osmode" 0)
   
9.   (setq ducs (getvar "worlducs"))
   
10.   (if (= ducs 0)
    
11.     (progn
    
12.       (command "ucs" "w")
    
13.     )
    
14.   )
    
15.   (princ "请选择要导出的一列文本:")
    
16.   (setq a (ssget '((0 . "TEXT"))))
    
17.   (setq f (open "d:\\output\\acadtxt.txt" "a"))
    
18.   (setq n (sslength a))
    
19.   (setq nnn (1- n))
    
20.   (setq number 0 nn 0)
    
21.   (repeat n
    
22.     (setq a1 (ssname a number))                      ;取得选择集中第number个实体的名称
    
23.     (setq a11 (entget a1))                           ;取得实体关联表
    
24.     (setq a_y (caddr (assoc 10 a11)))                ;取得文本的y坐标
    
25.     (if (= nn 1)
    
26.        (progn
    
27.          (if (> a_y y)
    
28.            (progn
    
29.              (setq y a_y yold a_y)
    
30.              (setq text (cdr (assoc 1 a11)))
    
31.            )
    
32.          )
    
33.        )
    
34.        (progn
    
35.           (setq nn 1 y a_y yold a_y)
    
36.           (setq text (cdr (assoc 1 a11)))
    
37.        )
    
38.     )
    
39.     (setq number (1+ number))
    
40.   )
    
41.   (write-line text f)
    
42.   (repeat nnn
    
43.     (setq number 0 nn 0 dy 0 a_y 0)
    
44.     (repeat n
    
45.       (setq a1 (ssname a number))
    
46.       (setq a11 (entget a1))                           ;取得实体关联表
    
47.       (setq b_y (caddr (assoc 10 a11)))                ;取得文本的y坐标
    
48.       (if (= nn 1)
    
49.          (setq a_y (- b_y y))
    
50.       )
    
51.       (if (and (< b_y y) (= nn 0))
    
52.          (setq dy (- b_y y) nn 1 c11 a11 a_y_new b_y)
    
53.       )
    
54.       (if (and (< a_y 0) (> a_y dy))
    
55.         (setq dy a_y c11 a11 a_y_new b_y)
    
56.       )
    
57.       (setq number (1+ number))
    
58.     )
    
59.     (setq text (cdr (assoc 1 c11)))
    
60.     (write-line text f)
    
61.     (setq y a_y_new)
    
62.   )
    
63.   (close f)
    
64.   (setvar"cmdecho" cm)
    
65.   (setvar"osmode"os)
    
66.   (setq n (rtos n 2 0))
    
67.   (princ (strcat n "个文本导出！"))
    
68.   (princ)
    
69. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:dcwb()<br />   (setq cm (getvar "cmdecho"))<br />   (setvar "cmdecho"0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq ducs (getvar "worlducs"))<br />   (if (= ducs 0)<br />     (progn<br />       (command "ucs" "w")<br />     )<br />   )<br />   (princ "请选择要导出的一列文本:")<br />   (setq a (ssget '((0 . "TEXT"))))<br />   (setq f (open "d:\\output\\acadtxt.txt" "a"))<br />   (setq n (sslength a))<br />   (setq nnn (1- n))<br />   (setq number 0 nn 0)<br />   (repeat n<br />     (setq a1 (ssname a number))                      ;取得选择集中第number个实体的名称<br />     (setq a11 (entget a1))                           ;取得实体关联表<br />     (setq a_y (caddr (assoc 10 a11)))                ;取得文本的y坐标<br />     (if (= nn 1)<br />        (progn<br />          (if (> a_y y)<br />            (progn<br />              (setq y a_y yold a_y)<br />              (setq text (cdr (assoc 1 a11)))<br />            )<br />          )<br />        )<br />        (progn<br />           (setq nn 1 y a_y yold a_y)<br />           (setq text (cdr (assoc 1 a11)))<br />        )<br />     )<br />     (setq number (1+ number))<br />   )<br />   (write-line text f)<br />   (repeat nnn<br />     (setq number 0 nn 0 dy 0 a_y 0)<br />     (repeat n<br />       (setq a1 (ssname a number))<br />       (setq a11 (entget a1))                           ;取得实体关联表<br />       (setq b_y (caddr (assoc 10 a11)))                ;取得文本的y坐标<br />       (if (= nn 1)<br />          (setq a_y (- b_y y))<br />       )<br />       (if (and (< b_y y) (= nn 0))<br />          (setq dy (- b_y y) nn 1 c11 a11 a_y_new b_y)<br />       )<br />       (if (and (< a_y 0) (> a_y dy))<br />         (setq dy a_y c11 a11 a_y_new b_y)<br />       )<br />       (setq number (1+ number))<br />     )<br />     (setq text (cdr (assoc 1 c11)))<br />     (write-line text f)<br />     (setq y a_y_new)<br />   )<br />   (close f)<br />   (setvar"cmdecho" cm)<br />   (setvar"osmode"os)<br />   (setq n (rtos n 2 0))<br />   (princ (strcat n "个文本导出！"))<br />   (princ)<br /> )  [/FONT]<br />

zjwmm

太专业了，看不懂哦！