能用個副程式宣告多個變數嗎??

lead009 · 发表于 2010-12-9 22:30:01

本帖最后由 lead009 于 2010-12-9 22:32 编辑

能夠利用副程式，一次宣告出多個變數嗎??

例如用
(defun tt(a /) ( if(= a 0)
   (progn
      (setq ang 0)
      (setq a 100)
      (setq b 100)
   )
   (progn
      (setq ang 100)
      (setq a 0)
      (setq b 0)
   )
  )
)

Andyhon · 发表于 2010-12-10 09:01:51

本帖最后由 Andyhon 于 2010-12-10 09:04 编辑

(defun tt (a)
(if (zerop a)
(setq ang 0
a 100
b 100
)
(setq ang 100
a 0
b 0
) )
)
(defun C:test ()
.....
.....
(tt 0) ; or (tt what)
.....
)

lead009 · 发表于 2010-12-10 11:41:35

我的意思是說，一個副程式最後只會有一個返回值
(setq xx(tt a));;呼叫副程式
像上面這種情況只能在主程式宣告一個xx變數

我想問說能否透過副程式，宣告n個變數，在主程式中使用??

Andyhon · 发表于 2010-12-10 12:12:33

不是很理解您的問題

(tt 0) ; or (tt what)

;; 列出變數值
(princ ang) (princ "\t")
(princ a) (princ "\t")
(princ b)

看看是否合您所求....

ZZXXQQ · 发表于 2010-12-10 21:25:58

可以用表一次返回多个变元

lead009 · 发表于 2010-12-12 21:46:40

恩，謝謝二位的解說
但是您說的表是(list a b c)

然後回到主程式，再用car cadr caddr n求得嗎?

caoyin · 发表于 2010-12-12 21:59:24

(mapcar 'set '(x y z) (tt ?))

X Y Z 就是你说的多个变元

lead009 · 发表于 2010-12-13 10:06:47

謝謝你的解說

账号		自动登录	找回密码
密码			注册

[基础] 能用個副程式宣告多個變數嗎??