[编程申请]：怎么这样种树

露水2

程序一   选择一个树多重拷贝每次拷贝都会不同与上一个树的大小不一样?
程序二   选择一个封闭的实体作成一个域,然后进行多重拷贝(每次拷贝的实体随机改变大小),结束拷贝,将所有的域进行并集.

oyxx_1023

在repeat或while过程中每次产生一个随机数,把原树或原面域缩放这个随机数大小就可以了.

露水2

要来点具体的,思路我也知道

egos

在AutoLisp中有自带的随机函数吗?我一直想一个好的随机函数,最好能控制随机的范围,拿就好办了.

露水2

这个生成的随机数在一个范围内变化.

firstintimate

随机数乘以一个系数或者加减一个数就可以改变范围
这是编程很基本的随机数变化

hb198075

问题在于不能得到一个随机数，用系统时间吗？。。

highflybird

;;BY LUCAS  (排1千個)

2. 
   
3. (defun RND_LAI (/ STR)
   
4.   (setq STR (rtos (getvar "cputicks") 2 0))
   
5.   (/ (atoi (substr STR (- (strlen STR) 3))) 10000.0)
   
6. )
   

<br /> (defun RND_LAI (/ STR)<br />   (setq STR (rtos (getvar "cputicks") 2 0))<br />   (/ (atoi (substr STR (- (strlen STR) 3))) 10000.0)<br /> )<br />

发一个Lucas的.

关于随机函数的讨论在明经通道你可以搜索出很多代码。

露水2

还需要高手在最终解决这个完整的程序．

xyp1964

试试工具箱礼的“云线灌木”程序

oyxx_1023

这不是说得很清楚了吗,你老想着别人写一个完整的程序给你用现成的,你怎么提高?

ZHONG2008

有道路的桩号标注程序吗?

xyp1964

2. [FONT=courier new];;; 复制随机比例块
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        s1 (car (USEL 0 "INSERT" "块"))
   
6.         pt (xyp-get-dxf 10 s1)
   
7.   )
   
8.   (while (setq pt0 (getpoint pt "\n位置点: "))
   
9.     (setq scc (/ (car (xyp-get-Randoms 1000 20000 1)) 10000.0))
   
10.     (command "copy" s1 "" pt pt0)
    
11.     (command "scale" (entlast) "" pt0 scc)
    
12.   )
    
13.   (CMDLA1)
    
14. )[/FONT]

[FONT=courier new];;; 复制随机比例块<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        s1 (car (USEL 0 "INSERT" "块"))<br />         pt (xyp-get-dxf 10 s1)<br />   )<br />   (while (setq pt0 (getpoint pt "\n位置点: "))<br />     (setq scc (/ (car (xyp-get-Randoms 1000 20000 1)) 10000.0))<br />     (command "copy" s1 "" pt pt0)<br />     (command "scale" (entlast) "" pt0 scc)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

egos

程序的效果好不好，关键要看随机函数，复制的比例是否随机均匀

xyp1964

最初由 egos 发布
[B]程序的效果好不好，关键要看随机函数，复制的比例是否随机均匀 [/B]

“随机均匀”就不叫随机了