[求助]：如何把现有单行文字通过按钮保存在指定的xxx.txt中

ld80721

请教:如何把现有单行文字通过按钮保存在指定的xxx.txt中,谢谢!

chaoxiu

未试过,只在编辑器上复制才试过可行.

Underway

;;; for test only

2. 
   
3. (defun c:try ()
   
4.    (if (and
   
5.          (setq fp (open (findfile "xxx.txt") "a"))
   
6.          (setq txt (ssget ":S:E" '((0 . "TEXT"))))
   
7.        )
   
8.      (progn
   
9.        (write-line (cdr (assoc 1 (entget (ssname txt 0)))) fp)
   
10.        (close fp)
    
11.      )
    
12.    )
    
13.    (prin1)
    
14. )
    

<br /> (defun c:try ()<br />    (if (and<br />          (setq fp (open (findfile "xxx.txt") "a"))<br />          (setq txt (ssget ":S:E" '((0 . "TEXT"))))<br />        )<br />      (progn<br />        (write-line (cdr (assoc 1 (entget (ssname txt 0)))) fp)<br />        (close fp)<br />      )<br />    )<br />    (prin1)<br /> )<br />

yzfu2000

谢谢 很实用的一个小程序谢谢 很实用的一个小程序

ld80721

我一直用的是R14,这个程序在R14上不能用,麻烦你帮我改个R14版的,谢谢