[LISP]求救高手,如何导出文本?

ZSBY555 · 发表于 2004-9-18 13:01:00

我在网上下了一个ExpText.lsp,代码如下:
(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”)
但不能加栽,请问如何解决?还有更好的吗?

f5612140 · 发表于 2004-9-18 13:25:00

" "的问题
(defun c:exptext()
(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")

[LISP]求救高手,如何导出文本?

发表回复

精选推荐