[求助]：文本输出

yintao

我从网上下载了一个文本输出程序，但使用总老出错，请各位看看问题所在，帮忙修改一下程序使其能用。
;;; 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”)
程序建立后，通过“Appload”命令加载“ExpText.lsp”，在“Command：”后键入EXT回车，输入文件名（可带路径及后缀名）、窗选实体（自动过滤非文字实体），此时输出到文件的文字实体将按其在AutoCAD实体集中建立的先后次序及回车换行

XDSoft

把运行时候的错误提示给贴到论坛吧。

梦断江南

什么提示？
先把 (/ flnm fn s n index ents ent txt) 改为 ( / flnm fn s n index ents ent txt) 再说，注意
/前有一个空格

yintao

按照使用说明，在程序建立后，通过“Appload”命令加载“ExpText.lsp”，在“Command：”后键入EXT回车，输入文件名e:\a.txt后提示如下：
Command: ext
e:\a.txt
error: bad argument type
(OPEN FLNM “W”)
(SETQ FN (OPEN FLNM “W”))
(C:EXT)
*Cancel*

XDSoft

最初由 yintao 发布
[B]按照使用说明，在程序建立后，通过“Appload”命令加载“ExpText.lsp”，在“Command：”后键入EXT回车，输入文件名e:\a.txt后提示如下：
Command: ext
e:\a.txt
error: bad argument type
(OPEN FLNM “W”)
(... [/B]

上面的错误提示你OPEN函数的参数错误，是你输入的不对，在ACAD里面，文件的路径要用\\或者/ ,比如：e:\\a.txt

这个不是程序的错误，所以以后大家LISP程序出现问题，一定要把出错信息贴上来。

yintao

谢谢各位了，但程序还是不行，错误提示如下：
Command: ext
e:\\a.txt
error: bad argument type
(OPEN FLNM “W”)
(SETQ FN (OPEN FLNM “W”))
(C:EXT)
*Cancel*

Command: ext
e:/a.txt
error: bad argument type
(OPEN FLNM “W”)
(SETQ FN (OPEN FLNM “W”))
(C:EXT)
*Cancel*
有谁帮忙改一下我传上的的程序，使其能运行？

hqd9639

把程序中的“”改为""即可。

枯网草

我的错误是这样的。
appload
选择这个LSP程序
然后直接显示FILE NAME：
填写：e:\\a.txt
然后提示选择对象
回车
; 错误: 输入中含有多余的闭括号
又回到FILE NAME状态？

XDSoft

最初由 yintao 发布
[B]谢谢各位了，但程序还是不行，错误提示如下：
Command: ext
e:\\a.txt
error: bad argument type
(OPEN FLNM “W”)
(SETQ FN (OPEN FLNM “W”))
(C:EXT)
*Cancel*

Command: ext
e:/a.txt
error: bad a... [/B]

修改了下你的程序，可以用了，提醒：输入文件名还是要用一个斜杠，因为是在外部输入，不是作为LISP函数的参数输入的。比如：c:\xxx.txt

上面的程序的问题是所有的半角" 都写成全角的“了。可能是从报纸上抄来的，报纸排版的问题。

2. 
   
3. [FONT=courier new]
   
4. ;;; ExpText.lsp
   
5. (defun c:EXT (/ flnm fn s n index ents ent txt)
   
6.   (setq flnm (getstring "\nFile name:"))
   
7.   (setq fn (open flnm "w"))
   
8.   (setq s (ssget))
   
9.   (setq n (sslength s))
   
10.   (setq index (- n 1))
    
11.   (repeat n
    
12.     (setq ents (entget (ssname s index)))
    
13.     (setq index (- index 1))
    
14.     (setq ent (assoc 0 ents))
    
15.     (if (= "TEXT" (cdr ent))
    
16.       (progn
    
17.         (setq txt (cdr (assoc 1 ents)))
    
18.         (write-line txt fn)
    
19.       )
    
20.     )
    
21.   )
    
22.   (close fn)
    
23. )
    
24. (prompt "\n文本导出:EXT")
    
25. (princ)
    
26. [/FONT]

<br /> [FONT=courier new]<br /> ;;; ExpText.lsp<br /> (defun c:EXT (/ flnm fn s n index ents ent txt)<br />   (setq flnm (getstring "\nFile name:"))<br />   (setq fn (open flnm "w"))<br />   (setq s (ssget))<br />   (setq n (sslength s))<br />   (setq index (- n 1))<br />   (repeat n<br />     (setq ents (entget (ssname s index)))<br />     (setq index (- index 1))<br />     (setq ent (assoc 0 ents))<br />     (if (= "TEXT" (cdr ent))<br />       (progn<br />         (setq txt (cdr (assoc 1 ents)))<br />         (write-line txt fn)<br />       )<br />     )<br />   )<br />   (close fn)<br /> )<br /> (prompt "\n文本导出:EXT")<br /> (princ)<br /> [/FONT]

枯网草

一路顺畅~可是文件为什么什么东西都没有~0字节

XDSoft

上面的程序看来是个新学LISP的朋友写的，文字过滤完全可以在SSGET构造选择集进行，这样就不必要自己在循环里面判断TEXT了，还有就是没有进行必要的判断，文件打开是否正确等等，下面是改的代码。

2. 
   
3. [FONT=courier new]
   
4. ;;; ExpText.lsp
   
5. (defun c:EXT (/ flnm fn s n index ents ent txt)
   
6.   (setq flnm (getstring "\nFile name:"))
   
7.   (if (and
   
8.         (setq fn (open flnm "w"))      ; 加入文件打开是否成功判断
   
9.         (setq s (ssget '((0 . "text")))) ; 加入是否选择TEXT实体判断
   
10.       )
    
11.     (progn
    
12.       (setq n (sslength s)
    
13.             index (- n 1)
    
14.       )
    
15.       (repeat n
    
16.         (setq ents (entget (ssname s index))
    
17.               index (- index 1)
    
18.               txt (cdr (assoc 1 ents))
    
19.         )
    
20.         (write-line txt fn)
    
21.       )
    
22.       (close fn)
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    
27. (prompt "\n文本导出:EXT")
    
28. (princ)
    
29. [/FONT]

<br /> [FONT=courier new]<br /> ;;; ExpText.lsp<br /> (defun c:EXT (/ flnm fn s n index ents ent txt)<br />   (setq flnm (getstring "\nFile name:"))<br />   (if (and<br />         (setq fn (open flnm "w"))      ; 加入文件打开是否成功判断<br />         (setq s (ssget '((0 . "text")))) ; 加入是否选择TEXT实体判断<br />       )<br />     (progn<br />       (setq n (sslength s)<br />             index (- n 1)<br />       )<br />       (repeat n<br />         (setq ents (entget (ssname s index))<br />               index (- index 1)<br />               txt (cdr (assoc 1 ents))<br />         )<br />         (write-line txt fn)<br />       )<br />       (close fn)<br />     )<br />   )<br />   (princ)<br /> )<br /> (prompt "\n文本导出:EXT")<br /> (princ)<br /> [/FONT]

程序其实还应该改，判断是否输入了合法的文件名字，这些留给朋友们吧。

枯网草

一路顺畅~可是文件为什么什么东西都没有~0字节

XDSoft

最初由 枯网草 发布
[B]一路顺畅~可是文件为什么什么东西都没有~0字节 [/B]

这个程序的作用是把“TEXT”实体的内容写到文件里面，你没有选TEXT实体吧？

这个程序还实现不了排版，是任意的写，过两天，我给大家写个能识别ACAD里面“排版”效果的程序，可以放到剪切板里面，需要在什么字处理软件里面用，直接粘贴过去就可以了（前两天已经给大家写了把其他字处理软件里面写好的文件拷贝到剪切板后，给写到ACAD里面，并保证排版效果的LISP程序了，需要的朋友请看下面的帖子：
http://www.xdcad.net/forum/showthread.php?postid=51331#post51331 ）。这样比需要输入文件更通用。

lingzhi0512

;;; TextOut.lsp
(defun c:TextOut ( / flnm fn index num0 num1 sslist sslson0 sslson1 ssnum ssour txt)
        ;;打开文件
        (setq flnm (getstring "\n输入文件路径文件<c:/temp.txt>:"))
        (if flnm (setq flnm "c:/temp.txt"))
        (setq fn (open flnm "w"))
        ;;选择文字，并保持文字原来的排版顺序不变
        (setq ssour (ssget (list (cons 0 "TEXT"))))
        (setq ssnum (sslength ssour))
        (setq sslist nil)
        (setq index 0)
        (while (< index ssnum)
                (setq sslist (append sslist (list (entget (ssname ssour index)))))
                (setq index (1+ index))
        )
        (setq num0 0)
        (setq num1 1)
        (while (< num0 ssnum)
                (setq sslson0 (nth num0 sslist))
                (while (< num1 ssnum)
                        (setq sslson1 (nth num1 sslist))
                        (if (> (nth 2 (assoc '10 sslson1)) (nth 2 (assoc '10 sslson0)))
                                (progn
                                        (setq sslist (subst 'num00 (nth num0 sslist) sslist))
                                        (setq sslist (subst 'num11 (nth num1 sslist) sslist))
                                        (setq sslist (subst sslson1 'num00 sslist))
                                        (setq sslist (subst sslson0 'num11 sslist))
                                        (setq sslson0 sslson1)
                                )
                        )
                (setq num1 (1+ num1))
                )
                (setq num0 (1+ num0))
                (setq num1 (1+ num0))
        )
        ;;依次读取文字并写入到文件
        (setq index 0)
        (while (< index ssnum)
                (setq txt (cdr (assoc 1 (nth index sslist))))
                (write-line txt fn)
                (setq index (1+ index))
        )
        (prompt "\n文本导出:TextOut")
        (princ)
)

haibinpro

谢谢分享.学习了.