[autoLisp] 生成随机点

最新推荐文章于 2022-06-16 21:55:46 发布

小飞侠888888

最新推荐文章于 2022-06-16 21:55:46 发布

阅读量758

点赞数

分类专栏： autolisp 文章标签： C C++ C#

本文链接：https://blog.csdn.net/autolisper/article/details/83839761

版权

autolisp 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

在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")
  )
)