生成随机云线

newer · 发表于 2017-11-29 17:06:12

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

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

×

[XML] 纯文本查看 复制代码

(defun c:tt ()
  (xdrx_begin)
  (while (setq ss (ssget '((0 . "*polyline") (-4 . "&=") (70 . 1))))
    (progn
      (mapcar '(lambda (x)
		 (setq lmin (xdrx_math_rand 30 100.0)
		       lmax (xdrx_math_rand 100 500.0)
		 )
		 (xdrx_curve->randomcloud x lmin lmax 0.43 0.0 4.0)
		 (setq clr (xdrx_math_rand 255))
		 (xdrx_setpropertyvalue x "color" clr)
	       )
	      (xdrx_pickset->ents ss)
      )
    )
  )
  (xdrx_end)
  (princ)
)

liunian0524 · 发表于 2017-11-30 08:04:41

感谢大师分享

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

[每日一码] 生成随机云线

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

浏览过的版块