小白求编程随机数

深井

求随机数函数 程序， 批量修改之指定范围随机数，可设置保留几位小数。现有有例子：  sjs精简-全选只改50.Lsp    能修改 增强块编辑器 数值为50的 ，

(defun c:sjs()
(vl-load-com)
  (setq oldimzin(getvar "dimzin"))
  (setq sjxx(getreal "\n请输入随机数下限:")
        sjsx(getreal"\n请输入随机数上限:")
        precis(getint "\n请输入小数位数:")
        kbj_def"LENGTH"
        textfil "50")
  (setvar "dimzin" 0)
  (setq sstext(ss->list (ssget (list (cons 0 "insert")))))
  (setq sstext (vl-remove-if-not '(lambda(x)(and(=(dxfget 0 x) "INSERT")
                                                (and (att-text X kbj_def)
                                            (=(atof(att-text X kbj_def))(atof textfil))
                                                  ))) SSTEXT))
  (foreach x sstext
    (if (= ( dxfget 0 x) "TEXT")
      (vla-put-textstring (vlax-ename->vla-object x) (rtos (LM:randrange sjxx sjsx )2 precis))
      (cg-att-text x kbj_def (rtos (LM:randrange sjxx sjsx )2 precis))
      )
    )
  (setvar "dimzin" oldimzin)

)
   (defun SS->LIST (SS)
   (if ss
  (vl-remove-if-not '(lambda(x) (= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
     nil)
   )

  (defun LM:rand ( / a c m )
    (setq m   4294967296.0
          a   1664525.0
          c   1013904223.0
          $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
    )
    (/ $xn m)
)
(defun LM:randrange ( a b )
    (+ (min a b) (* (LM:rand) (abs (- a b))))
)

  (defun cg-att-text(blkent tagtxt value / attxt);;;;;改变图块中指定标签的属性值
  (setq attxt nil)
  (setq vlob (vlax-ename->vla-object blkent)
       attlst-safe (vlax-variant-value(vla-getattributes vlob)))
  (if (>(vlax-safearray-get-u-bound attlst-safe 1)-1) (setq attlst (vlax-safearray->list attlst-safe)))
  (if attlst
    (foreach x attlst (if(equal(vla-get-tagstring X)tagtxt)
                        (setq attxt (vla-put-textstring x value))))
    )
)
  (defun dxfget(index enordat / consres);;;;获得指定的dxf
  (cond((= (type enordat) 'ENAME)
        (setq consres(CDR (ASSOC INDEX (ENTGET enordat)))))
       ((= (TYPE enordat) 'LIST)
        (setq consres(CDR(ASSOC INDEX enordat))))
       (t (princ "\n输入非图元数据")))
  consres
  )


(defun att-text(blkent tagtxt);;;;;返回图块中指定标签的属性值
  (setq attxt nil)
  (setq vlob (vlax-ename->vla-object blkent)
       attlst-safe (vlax-variant-value(vla-getattributes vlob)))
  (if (>(vlax-safearray-get-u-bound attlst-safe 1)-1) (setq attlst (vlax-safearray->list attlst-safe)))
  (if attlst
    (foreach x attlst (if(equal(vla-get-tagstring X)tagtxt)
                        (setq attxt (vla-get-textstring x))))
    )
  (if attxt
  (setq attxt (formatstrdel attxt "\\\\.+;| +")))
    attxt)

(defun formatstrdel(strent pattstr);;;;;;;移除格式描述字符串  "\\\\.+;"或者   +  |
     (setq vbsreg (vlax-get-or-create-object"vbscript.regexp"))
   (vlax-put-property vbsreg 'global -1)
   (vlax-put-property vbsreg 'Multiline -1)
   (vlax-put-property vbsreg 'IgnoreCase -1)
  (vlax-put-property vbsreg 'pattern pattstr)
  (if (equal (vlax-invoke-method vbsreg 'test  strent) :vlax-true)
    (setq txtchanged(vlax-invoke-method vbsreg 'replace strent ""))
    (setq txtchanged strent))
  (vlax-release-object vbsreg)
  txtchanged  
  )

(DEFUN C:ADS();;;;;;增加数量
(vl-load-com)
  (setq oldimzin(getvar "dimzin"))
  (setq incre(getreal "\n请输入数字增量:")
        precis(getint "\n请输入结果中保留小数位数:")
        kbj_def"LENGTH")

  ;;;(setvar "dimzin" 0)
  (setq sstext(ss->list (ssget (list (cons 0 "text,insert")))))
  (foreach x sstext
    (if (= ( dxfget 0 x) "TEXT")
      (vla-put-textstring (vlax-ename->vla-object x) (rtos(+ (atof (dxfget 1 x))incre)2 precis) )
      (cg-att-text x kbj_def (rtos (+ (atof(att-text x kbj_def))incre  )2 precis))
      )
    )
  (setvar "dimzin" oldimzin)
    )


完全看不懂这个语言， 能修改图1的文字
求相同功能 修改图2的

深井

求能指定范围随机数对图2的插件，可设置小数位

Lisphk

论坛有，用 随机数  搜索论坛。

marting

http://bbs.xdcad.net/thread-711333-1-1.html

marting

修改 文字，属性，块内文字，尺寸等等 的插件

在位编辑尺寸、文字、属性、块（任意嵌套）内文字

                               
登录/注册后可看大图

神通不敌天数

请问这个随机是干什么用的

深井

神通不敌天数 发表于 2017-9-6 11:30

比如 正常值是50， 我要在一定误差内 波动

深井

Lisphk 发表于 2017-9-6 10:17

搜了，没搞明白，挺难的