图块能实现随机选择吗

mjthetuxedo

已知有四个图块~~块名分别为"上，下，左，右“
这时要把这些图块随机插入到图纸中~
每个图块的个数和顺序都是随机的，无规律性

例如：
插入10个图块（总个数由已提取的坐标来确定）
上左右上上下左左上下

byghbcx

编一个随机函数

mjthetuxedo

就是不会啊
要怎样编？？？

citykunan

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=63955&replyID=&skin=1

byghbcx

(defun rand(n);返回10以内随机数
  (repeat n
    (princ)
  )
  (setq str (rtos (getvar 'date) 2 9))
  (atoi (substr str (strlen str) 1))
)