文字导出不了,请高手帮忙指正一下

nodbird

我想通过窗选方式直接将CAD图中所选文字所有文字导出到.TXT文件里,(为了统计工程量,呵呵~),但是却不知道问题出在哪里,请各位高手指正.路径可以输:e:\ee.txt或其他. 程序如下: (defun c:EXT (/ flnm fn s n index ents ent txt)
　 (setq flnm (getstring "\nFile name:"))
　 (setq fn (open flnm "w"))
(setq s (ssget))
　 (setq n (sslength s))
　 (setq index ( - n 1))
　 (repeat n
　　 (setq ents (entget (ssname s index)))
　　 (setq index ( - index 1))
　　 (setq ent (assoc 0 ents))
　　 (if ( = "TEXT" (cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　 (write-line txt fn)
　　　　)
　　)
　)
(close fn)
)
(princ "\n文本导出:EXT") 朋友们最好能帮我想想有什么好的程序可以将图纸上的工程数量表转成EXCEL或者文本,在这里多多谢谢拉.

meflying

程序本身没有问题，你要保证选择的是TEXT文本，而不是MTEXT或其它的，而且你指定的位置能够创建文件（如是否有权限设置或写保护之类的） 写到EXCEL里比较麻烦，给个例子不太现实（我这里没有现成的，别人如果有倒是可以给），要具体编写程序，你要给出详细的说明和操作过程。。。 如果你想学习，可以参考以下： http://www.mjtd.com/a2/list.asp?id=348

nodbird

原来是这样，谢谢了啊.


请问有没有连MTEXT和其他文本都可以选择的方法,图纸是设计院做的，难免有多种文字形式.谢谢帮助!

meflying

2. (defun c:EXT (/ flnm fn s n index ents ent txt)
3. 　 (setq flnm (getstring "\nFile name:"))
4. 　 (setq fn (open flnm "w"))
5.      (setq s (ssget '((0 . "*TEXT"))))
6. 　 (setq n (sslength s))
7. 　 (setq index ( - n 1))
8. 　 (repeat n
9. 　　 (setq ents (entget (ssname s index)))
10. 　　 (setq index ( - index 1))
11.          (setq txt (cdr (assoc 1 ents)))
12.          (write-line txt fn)
13. 　)
14. (close fn)
15. )
16. (princ "\n文本导出:EXT")

(defun c:EXT (/ flnm fn s n index ents ent txt) 　 (setq flnm (getstring "\nFile name:")) 　 (setq fn (open flnm "w"))      (setq s (ssget '((0 . "*TEXT")))) 　 (setq n (sslength s)) 　 (setq index ( - n 1)) 　 (repeat n 　　 (setq ents (entget (ssname s index))) 　　 (setq index ( - index 1))          (setq txt (cdr (assoc 1 ents)))          (write-line txt fn) 　) (close fn) ) (princ "\n文本导出:EXT")

nodbird

多谢了.呵呵~~~