用lisp写随机函数

荒野孤行

在lisp写随机函数，可能很多人想知道，我也是在论坛网址：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100505 第7楼看到后而修改的。

;;;***随机线距 程序开始
(princ "\n★提示：随机线距程序调用命令；tee\n制作者：吴丁运\n")
(defun c:tee ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 15359)
  (princ "\n功能：生成随机排布线距的直线")
  (vl-load-com)
  (setq len (getdist "\n请输入要绘制直线的长度："))
  (initget 6)
  (if (not (setq n (getint "\n请输入要绘制直线的数量：<1000>")))
    (setq n 1000)
  )
(if (not
        (setq scal (getint "\n请输入线宽／线距放大比例：<10000>"))
      )
    (setq scal 10000)
  )
  (if (not
        (setq sj1 (getint "\n请输入线宽／线距随机数的范围(最小)：<20>"))
      )
    (setq sj1 20)
  )
  (if (not
        (setq sj2 (getint "\n请输入线宽／线距随机数的范围(最大)：<100>"))
      )
    (setq sj2 100)
  )
  (setvar "osmode" 0)
  (initget 3)
  (setq        pt     (getpoint "\n指定起始点：")
        pt_end (polar pt 0 len)
        i      0
  )
  (command "line" pt pt_end "")
  (while (< i (- n 1))
    (setq sj (/        (+ sj1 (rem (getvar "CPUTICKS") (+ (- sj2 sj1) 1))) ;从此处可了解：在lisp中生成随机数的写法
                scal
             )
    )
    (setq pt         (polar pt (angtof "90") sj)
          pt_end (polar pt 0 len)
    )
    (command "line" pt pt_end "")
    (setq i (1+ i))
    (princ)
  )
  (setvar "osmode" 15359)
  (princ (strcat "★已生成"
                 (itoa n)
                 "条线宽／线距范围在"
                 (rtos (/ sj1 scal 1.00) 2)
                 "和"
                 (rtos (/ sj2 scal 1.00) 2)
                 "之间的直线！/n"))
  (princ)
)
;;;***随机程序结束***

nzl1116

fas提供了随机函数，但没提供给lisp用。只要将fas函数改成lisp函数就可以了。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

479274135

666666666666厉害

yoyoho

回覆学习!感谢 荒野孤行 分享程序!

USER2128

感谢“荒野孤行”分享程序!

LIULISHENG

支持一下学习了

自行车内胎

赞一个,!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

jltx123456

好久不见你，

永不言弃

感谢分享                          

819534890

good good .

clh521

支持一下学习了

54256

学习一下