[求助][转帖]

sjtd

如何提取 文本坐标、内容、所属图层！格式：

内容，X，Y，Z，图层

多谢大家给予帮助，万分着急。

ljttjl

用程序很容易实现啊,联系ljttjl@ tom.com.发邮箱去掉中间空格.

鬼谷子

联系鬼谷子，帮你解决，免费的

mccad

现在的人怎么这么自私和无私呢？

很容易解决，而且还免费，怎么不贴出来，好象很神秘。

楼主也神秘，提个问题标题也不写清楚。

carrot1983

标题需要改一改。。。

现在的人发贴都这么乱七八糟的吗？？

carrot1983

3. (defun c:tt (/ e elist fn fna i ss v1 v10 v8 vlist)
4.   (princ "\n文本提取程序 carrot1983 2008/11/13")
5.   (if (and
6. (setq ss (ssget '((0 . "*TEXT*"))))
7. (setq fna (getfiled "保存文本提取的信息" "" "txt" 5))
8.       )
9.     (progn
10.       (setq i 0)
11.       (while (< i (sslength ss))
12. (setq e (ssname ss i))
13. (setq elist (entget e))
14. (setq v1 (cdr (assoc 1 elist)))
15. (setq v10 (cdr (assoc 10 elist)))
16. (setq v10 (mapcar 'rtos v10))
17. (setq v8 (cdr (assoc 8 elist)))
18. (setq vlist (cons (strcat v1
19.       ","
20.       (car v10)
21.       ","
22.       (cadr v10)
23.       ","
24.       (caddr v10)
25.       ","
26.       v8
27.      )
28.      vlist
29.       )
30. )
31. (setq i (1+ i))
32.       )
33.       (setq fn (open fna "w"))
34.       (write-line "内容,X,Y,Z,图层" fn)
35.       (foreach v vlist
36. (write-line v fn)
37.       )
38.       (close fn)
39.       (startapp "notepad" fna)
40.     )
41.   )
42.   (princ)
43. )

(defun c:tt (/ e elist fn fna i ss v1 v10 v8 vlist)   (princ "\n文本提取程序 carrot1983 2008/11/13")   (if (and (setq ss (ssget '((0 . "*TEXT*")))) (setq fna (getfiled "保存文本提取的信息" "" "txt" 5))       )     (progn       (setq i 0)       (while (< i (sslength ss)) (setq e (ssname ss i)) (setq elist (entget e)) (setq v1 (cdr (assoc 1 elist))) (setq v10 (cdr (assoc 10 elist))) (setq v10 (mapcar 'rtos v10)) (setq v8 (cdr (assoc 8 elist))) (setq vlist (cons (strcat v1       ","       (car v10)       ","       (cadr v10)       ","       (caddr v10)       ","       v8      )      vlist       ) ) (setq i (1+ i))       )       (setq fn (open fna "w"))       (write-line "内容,X,Y,Z,图层" fn)       (foreach v vlist (write-line v fn)       )       (close fn)       (startapp "notepad" fna)     )   )   (princ) )