没玩过随机这玩意。用表中随机抽出1个数出来。。

ysq101

（1 2 3 4 5 6 7 8 9 10 11 12）
从表中随机抽出1个数出来。。
这该怎么写？？

819534890

1. ;;; 求随机数(0~1)－－ｂｙ　狂刀
   
2. (defun th-rnd ()                       ; 随机数种子
   
3.   (* (rem (getvar "cputicks") 1e3) 1e-3)
   
4. )

;;; 求随机数(0~1)－－ｂｙ　狂刀<br /> (defun th-rnd ()                       ; 随机数种子<br />   (* (rem (getvar "cputicks") 1e3) 1e-3)<br /> )

_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
2
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
7
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
11
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
2
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
10
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
3
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
3
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
9
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
8
_$ (nth (fix (* (th-rnd) 12)) '(1 2 3 4 5 6 7 8 9 10 11 12))
1

lsjj

Nth 12會出現嗎？