[求助]：在一个区域内，画随机坐标的园。

zjdtm · 发表于 2007-11-1 20:00:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想在一个区域内生成一定数量的随机坐标的园。
这个过程应该不难，但是lisp的函数里，我没有找到可以生成随机数的函数。
请那位大侠帮帮我，我应该怎么实现？谢谢！

animal212 · 发表于 2007-11-2 11:59:18

有这样的函数啊，在xyp函数里面有生成随机数的函数

a8836291 · 发表于 2007-11-2 16:35:40

学习

zjdtm · 发表于 2007-11-2 19:14:06

刚刚学lisp，没听懂。请大侠说仔细些。谢谢！

animal212 · 发表于 2007-11-2 23:18:54

哈哈，叫我女侠吧。
语法

(xyp-get-Randoms min max num)(xyp-get-Randoms 最小数最大数个数)

功能及参数

功能：取得单个随机数。
参数：min为最小值；max为最大值；num为随机数个数。

返回值：整数。

范例

;;;;随机画园
(defun c:test ()
 (CMDLA0)
 (repeat 200
(setq pt (xyp-get-Randoms -5000 5000 2))
(command "circle" pt 100)
 )
 (CMDLA1)
)

源码

(defun xyp-get-Randoms (minnum maxnum talnum / c a0 a1 b sjslst)
 (repeat talnum
(setq c (+ maxnum 1))
(while (or (< c minnum) (> c maxnum))
 (setq a0 (max (abs maxnum) (abs minnum))
 a1 (xyp-get-Random a0)
 )
 (if (= (rem a1 2) 0)
(setq b 1)
(setq b -1)
 )
 (setq c (* (xyp-get-Random a0) b))
)
(setq sjslst (cons c sjslst))
 )
 (setq sjslst (reverse sjslst))
 sjslst
)

animal212 · 发表于 2007-11-2 23:25:39

哈哈，叫我女侠吧。
语法

(xyp-get-Randoms min max num)(xyp-get-Randoms 最小数最大数个数)

功能及参数

功能：取得单个随机数。
参数：min为最小值；max为最大值；num为随机数个数。

返回值：整数。

范例

;;;;随机画园
(defun c:test ()
 (CMDLA0)
 (repeat 200
(setq pt (xyp-get-Randoms -5000 5000 2))
(command "circle" pt 100)
 )
 (CMDLA1)
)

源码

(defun xyp-get-Randoms (minnum maxnum talnum / c a0 a1 b sjslst)
 (repeat talnum
(setq c (+ maxnum 1))
(while (or (< c minnum) (> c maxnum))
 (setq a0 (max (abs maxnum) (abs minnum))
 a1 (xyp-get-Random a0)
 )
 (if (= (rem a1 2) 0)
(setq b 1)
(setq b -1)
 )
 (setq c (* (xyp-get-Random a0) b))
)
(setq sjslst (cons c sjslst))
 )
 (setq sjslst (reverse sjslst))
 sjslst
)

zml84 · 发表于 2007-11-3 11:41:42

<CENTER><H1>随机画圆.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;;===========================================
;;;功能：生成[0 1]区间的随机数
(defun ZL-RAND ()
(/ (rem (getvar "CPUTICKS") 1984) 1983)
)
;;;===========================================
;;功能：生成指定区间内的随机数
(defun ZL-RAND2 (A B)
(+ (* (ZL-RAND) (- A B))
 B
)
)
;;;===========================================
;;;测试ZL-RAND2 随机生成圆
(defun C:TT ()
(princ "\n随机生成圆")
(if (and (setq PT1 (getpoint "\n指定第一角点: "))
 (setq PT2 (getcorner PT1 " >>第二角点: "))
 (setq N (getint "\n圆的个数: "))
 (> N 0)
 (setq r_max (getdist "\n圆的半径最大值: "))
 (> r_max 0)
)
(progn
 (setvar "CMDECHO" 0)
 (setq X_MIN (car PT1)
 X_MAX (car PT2)
 Y_MIN (cadr PT1)
 Y_MAX (cadr PT2)
 )
 (repeat N
(setq PT (list (ZL-RAND2 X_MIN X_MAX)
 (ZL-RAND2 Y_MIN Y_MAX)
 )
 R (ZL-RAND2 (* 0.01 r_max) R_MAX)
)
(command "_.CIRCLE" "non" PT R)
 )
)
)
(princ)
)
</PRE>

来源：http://zml84.blog.sohu.com/69274693.html

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

[求助] [求助]：在一个区域内，画随机坐标的园。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子