[求助]：CAD中的文字导出为文本的程序错在哪里？

梁雨红

;;; ExpText.lsp  
      (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")

ll_j

最初由 梁雨红 发布
;;; ExpText.lsp  
      (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))
　(se...

程序可以通过，程序中输入文件名可以使用getfiled函数，用getstring函数是输入字符串，如果字符串不符合文件名规则，则会出错，即使符合文件名规则，如果输入简单，也会找不到文件所在。在ssget函数拾取实体时可以直接附加参数 '((0 . "TEXT"))过滤，避免选择其它实体。打开文件open函数可以在选择集拾取成功后进行，这样避免出错退出时文件处于打开状态。

心梦相随

天正里不是有文字导出吗？在表格工具下。你可以去看看相关的lisp文件。

梁雨红

多谢大侠指点