社区 › AutoLISP/Visual LISP 编程技术 › lisp数值传递

明茉菲嫣 发表于 2011-10-31 12:22:18

lisp数值传递

lisp函数间的数值传递是怎么实现的？
这个程序不能实现，哪位能帮帮我，我不太能够理解。。。。
(defun c:tt()
rwj (a1)
(print a1)
)



(defun rwj (a1)
(setq m (open "sj.txt" "r"))
         (seta1(read-line m))
         (close m)
)
我是新手，各位高手帮帮忙，谢谢

sen.sam 发表于 2011-10-31 12:47:08

(defun c:tt(/ a1)
   (rwj)
(print a1)
)

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

明茉菲嫣 发表于 2011-10-31 13:00:45

ok
谢谢你的帮助

查看完整版本: lisp数值传递