[求助]：这个LISP如何修改才能在R14中使用

ld80721

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

Underway

2. 
   
3. ;;; for Test only
   
4. (defun c:try ()
   
5.   (and
   
6.     (setq fp (open (findfile "xxx.txt") "a"))
   
7.     (setq txt (entsel))
   
8.     (setq Dat (entget (car txt)))
   
9.     (= (cdr (assoc 0 Dat)) "TEXT")
   
10.     (write-line (cdr (assoc 1 Dat)) fp)
    
11.     (close fp)
    
12.   )
    
13.   (prin1)
    
14. )
    

<br /> ;;; for Test only<br /> (defun c:try ()<br />   (and<br />     (setq fp (open (findfile "xxx.txt") "a"))<br />     (setq txt (entsel))<br />     (setq Dat (entget (car txt)))<br />     (= (cdr (assoc 0 Dat)) "TEXT")<br />     (write-line (cdr (assoc 1 Dat)) fp)<br />     (close fp)<br />   )<br />   (prin1)<br /> )<br />

ld80721

最初由 Underway 发布
[B][code]
;;; for Test only
(defun c:try ()
  (and
    (setq fp (open (findfile "xxx.txt") "a"))
    (setq txt (entsel))
    (setq Dat (entget (car txt)))
    (= (cdr (assoc 0 Dat)) "TEXT")
    (... [/B]

还是不行哦.谢谢