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

用lisp写随机函数

本帖最后由 荒野孤行 于 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)
)
**** Hidden Message *****

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

学习一下
页: [1] 2 3 4
查看完整版本: 用lisp写随机函数