[autoLisp] 生成随机点

最新推荐文章于 2024-04-15 17:45:08 发布

原创最新推荐文章于 2024-04-15 17:45:08 发布 · 954 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#C #C++ #C#

autolisp 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用AutoLISP在AutoCAD中生成随机分布点的方法。通过定义几个关键函数，可以实现在指定区域内生成任意数量的随机点，并将这些点以POINT实体的形式绘制出来。

部署运行你感兴趣的模型镜像

在AUTOCAD中，生成随机点


;;from internet
(defun random ()
  (setq seed (if seed
	       (rem (+ (* seed 15625.7) 0.21137152) 1)
	       0.3171943
	     )
  )
)
(defun random-n (n)
  (* n (random))
)
(defun entmakepoint (pt layer)
  (entmake (list (cons 0 "POINT") 
                 (cons 8 layer);***
		 (cons 6 "BYLAYER") 
		 (cons 10 pt) ;***
		 (cons 39 0.0) 
		 (cons 50 0.0) 
		 (cons 62 256) 
		 (cons 210 (list 0.0 0.0 1.0))
	   )
  )
)
;;generate random points
(defun c:test1 ()
  (repeat 10000
    (entmakepoint (list (random-n 100000) (random-n 60000) 0) "0")
  )
)