求用45至65的随机数批量替换已选中的数字的LISP代码

shanjiwang · 发表于 2016-12-15 17:21:48

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

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

×

求大神，首先连续选中几个数字，然后批量用45至65之间的随机数批量替换，谢谢！

newer · 发表于 2016-12-15 17:37:58

上个图吧，前后结果对比图。

Lispboy · 发表于 2016-12-15 22:13:50

API写一个, 数字45-65随机，颜色1-255 随机

数字45-65随机变化.gif

(defun c:tt ()
  (if (setq ss (ssget '((0 . "TEXT"))))
    (progn
      (mapcar
        '(lambda (x)
           (xdrx_setpropertyvalue x "textstring" (itoa
                                                       (xdrx_math_rand 45 65)
                                                 ) "color"
                                  (xdrx_math_rand 1 255)
           )
         )
        (xdrx_pickset->ents ss)
      )
    )
  )
  (princ)
)

sicky111 · 发表于 2016-12-18 10:50:40

前不久看到好像有人写过这么一个函数。

shanjiwang · 发表于 2016-12-20 21:37:27

谢谢大神指点，

cable2004 · 发表于 2016-12-20 21:51:50

啥也不说了，感谢楼主分享哇！

yjch · 发表于 2016-12-21 08:19:31

好好学习天天向上

深井 · 发表于 2017-9-7 16:08:22

Lispboy 发表于 2016-12-15 22:13

大神，这个随机数怎么使用。

mlhk1978 · 发表于 2017-12-9 23:02:48

Lispboy 发表于 2016-12-15 22:13

CAD中API写一个45-65的随机数，我不会编程，但CAD里想要这个功能，如何实现

mlhk1978 · 发表于 2017-12-28 20:47:51

好想东西，搜肠。

newer · 发表于 2017-12-28 20:58:08

mlhk1978 发表于 2017-12-9 23:02

(xdrx_math_rand 45 65)

caorenyanlian · 发表于 2018-1-15 10:07:00

为什么我运行了没动静，求解

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

[求助] 求用45至65的随机数批量替换已选中的数字的LISP代码

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