lisp传值

明茉菲嫣

(defun c:tt()
  （rwj a1)
(princ a1)
  )

(defun rwj (a1)
  (set m (open "sj.txt" "r"))
         (set  a1  (read-line ))
         (close m)
)
应该怎么改？一直显示错误: 函数错误: "1.0"
高手帮帮忙

明茉菲嫣

我自己支持一下，各位高手帮帮忙吧

Andyhon

(defun c:tt()
  （rwj)
   (princ a1)
)

(defun rwj ()
  (setq m (open "sj.txt" "r"))
  (setq a1 (read-line m))
  (close m)
)

只不知合您的原意否?

明茉菲嫣

(defun c:tt()
  (rwj a1)
  (princ a1)
  )



(defun rwj (a1)
  (setq m (open "csj.txt" "r"))
          (setq  a1  (read-line m))
         
          (close m)
         
)
现在提示没有错误，但是值还是传得不对，帮帮忙吧

Andyhon

...值还是传得不对...
得先解说您的述句原意

明茉菲嫣

就是我定义了一个文件csj.txt，写了个数字19，我想把这个值传到主函数中，rwj中a1=19，但是怎么样才能让tt中a1=19呀？
主要就是这个意思

Andyhon

2. 
   
3. 
   
4. (defun c:tt()
   
5.   (rwj)
   
6.   (princ a1)
   
7.   (princ)
   
8. )
   
9. 
   
10. (defun rwj ()
    
11.   (setq m (open (findfile "csj.txt") "r"))
    
12.   (setq  a1  (read-line m))
    
13.   (close m)   
    
14. )
    

<br /> <br /> (defun c:tt()<br />   (rwj)<br />   (princ a1)<br />   (princ)<br /> )<br /> <br /> (defun rwj ()<br />   (setq m (open (findfile "csj.txt") "r"))<br />   (setq  a1  (read-line m))<br />   (close m)   <br /> )<br />

=============================
Command: (defun c:tt()
(_>   (rwj)
(_>   (princ a1)
(_>   (princ)
(_> )
C:TT

Command: (defun rwj ()
(_>   (setq m (open (findfile "csj.txt") "r"))
(_>   (setq  a1  (read-line m))
(_>   (close m)
(_>
(_> )
RWJ

Command: tt
19
Command: !a1
"19"

明茉菲嫣

非常感谢你的帮助