跪求编程

深井

求能对这种 特性文字  批量 修改    在指定范围内随机  增加X至减少 Y。  例如 我全选很多个50，运行插件 ，设定 +3至-6 范围（希望可以随意设定这个范围，范围内的数可以设定带不带小数位，带几位），每个50 都能在+3至-6范围内 随机选一个数 和到 50上去。  例图已上传之附件

newer

xd::math:rand 函数见：http://bbs.xdcad.net/thread-712963-1-1.html

1. (defun c:tt ()  (if (and
   
2.         (setq ss (ssget '((0 . "text"))))
   
3.         (setq start (getint "\n范围终止值<退出>:"))
   
4.         (setq end (getint "\n范围终止值<退出>:"))
   
5.       )
   
6.     (progn
   
7.       (xdrx_begin)
   
8.       (mapcar
   
9.         '(lambda (x)
   
10.            (setq val (xdrx_getpropertyvalue x "textstring"))
    
11.            (if (setq val (xd::string:isnum val))
    
12.              (progn
    
13.                (setq val (car val))
    
14.                (if (xdrx_string_regexps "\\." val)
    
15.                  (setq val1 (atof val))
    
16.                  (setq val1 (atoi val))
    
17.                )
    
18.                (setq rand (xd::math:rand start end))
    
19.                (setq val (+ val1 rand))
    
20.                (if (= (type val1) 'int)
    
21.                  (setq txt (itoa val))
    
22.                  (setq txt (vl-princ-to-string val))
    
23.                )
    
24.                (xdrx_setpropertyvalue x "textstring" txt)
    
25.              )
    
26.            )
    
27.          )
    
28.         (xdrx_pickset->ents ss)
    
29.       )
    
30.       (xdrx_end)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    

(defun c:tt ()  (if (and<br />         (setq ss (ssget '((0 . "text"))))<br />         (setq start (getint "\n范围终止值<退出>:"))<br />         (setq end (getint "\n范围终止值<退出>:"))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (mapcar<br />         '(lambda (x)<br />            (setq val (xdrx_getpropertyvalue x "textstring"))<br />            (if (setq val (xd::string:isnum val))<br />              (progn<br />                (setq val (car val))<br />                (if (xdrx_string_regexps "\\." val)<br />                  (setq val1 (atof val))<br />                  (setq val1 (atoi val))<br />                )<br />                (setq rand (xd::math:rand start end))<br />                (setq val (+ val1 rand))<br />                (if (= (type val1) 'int)<br />                  (setq txt (itoa val))<br />                  (setq txt (vl-princ-to-string val))<br />                )<br />                (xdrx_setpropertyvalue x "textstring" txt)<br />              )<br />            )<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

ShaoRui

学习