[交流]set函数的应用

liu_kunlun

;;1**********分配变量***********************
;;如果1个子程序返回的是几个参数,通常采用1个表，例如
(defun test (a)
  (list a (* 2 a) "aa")
) 
;;(test 1) 的结果是'(1 2 "aa")
;;如果希望将这个结果分配给变量x1、x2、x3，则可以采取如下语句实现
(mapcar 'set (list 'x1 'x2 'x3) (test 1))

;;2*********直接修改子程序自变量的值**************
;;先定义一个lf_test函数，其中自变量是SYM
(defun lf_test (b c / vb vc)
   (setq vb (eval b) vc (eval c));;取出自变量的值
   (set b (* 2 vb))
   (set c (* 2 vc))
)
;;下面在lf_test子程序中，直接修改了外部变量wa及wb
(setq wa 15 wb 20)
(lf_test 'wa 'wb)
(print (list "wa:" wa))
(print (list "wb:" wb))