用lisp写随机函数

荒野孤行 · 发表于 2016-6-6 22:40:39

本帖最后由荒野孤行于 2016-6-6 22:49 编辑

在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 · 发表于 2018-3-4 18:45:15

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

pengfei2010 · 发表于 2017-10-5 21:59:00

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

479274135 · 发表于 2016-10-4 20:44:35

666666666666厉害

yoyoho · 发表于 2016-6-7 06:58:51

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

USER2128 · 发表于 2016-6-7 07:49:01

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

LIULISHENG · 发表于 2016-6-7 08:05:46

支持一下学习了

自行车内胎 · 发表于 2016-6-7 08:08:02

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

jltx123456 · 发表于 2016-6-7 08:52:19

好久不见你，

永不言弃 · 发表于 2016-6-7 08:56:55

感谢分享

819534890 · 发表于 2016-6-7 09:45:11

good good .

clh521 · 发表于 2016-6-7 10:14:19

支持一下学习了

54256 · 发表于 2016-6-7 10:55:51

学习一下

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

[源码] 用lisp写随机函数

本帖子中包含更多资源

本帖被以下淘专辑推荐:

相关帖子

浏览过的版块