[编程申请]：数字按模数取整数

tangsz2002

想将诸如pkpm钢筋中生成的诸如510，480，630等数字选取后按某种规则取整成50的倍数。

AyungerStudio

;;;2007-04-14
;;;********************************
;;; 数字型TEXT内容按约数取整 函数  
;;;********************************
(defun c:test(/ ss1 Int1 n i txtEntData1 txtEntName1 txtValue1 ent1)
  (setq ss1 (ssget '((0 . "TEXT"))))
        (initget 2)
        (if (= #AY_TESTDEFINT nil) (setq #AY_TESTDEFINT 10))
        (setq Int1 (getint (strcat "\n输入约数<" (itoa #AY_TESTDEFINT) ">:")))
        (if (= Int1 nil) (setq Int1 #AY_TESTDEFINT) (setq #AY_TESTDEFINT Int1))
       
        (setq n (sslength ss1))
        (setq i 0)
        (while (< i n)
                (setq txtEntData1 (entget (ssname ss1 i)))
                (setq txtEntName1 (cdr (car txtEntData1)))
                (setq txtValue1 (atof (CDR (ASSOC 1 txtEntData1))))
                (setq txtValue1 (* (fix (/ txtValue1 Int1)) Int1))
                (setq ent1 (subst (cons 1 (rtos txtValue1 2 3)) (assoc 1 txtEntData1) txtEntData1))
                (entmod ent1)
                (entupd txtEntName1)
               
                (setq i (+ i 1))
        );end_while
        (princ)
);end_defun

tangsz2002

加载后不能用呢？

xyp1964

[php];;数字型TEXT文本按约数取整
(defun c:test (/ ss i s1 tx)
  (if (null int)
    (setq int 50)
  )
  (setq        int (UINT 7 "" "取整约数" INT)
        ss  (ssget '((0 . "TEXT")))
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (if        (setq tx (distof (xyp-get-dxf 1 s1)))
      (xyp-SUBUPD s1 1 (itoa (* (fix (/ tx int 1.0)) int)))
    )
  )
  (princ)
)[/php]

雨箭风刀

(itoa (* (fix (/ tx int 1.0))
不如用 (- tx (rem tx int)) ;加减运算速度比乘除运算速度要快,而且支持int =0的情况.

胡耀

xyp1964 发表于 2007-5-1 15:59
;;数字型TEXT文本按约数取整
(defun c:test (/ ss i s1 tx)
  (if (null int)

加载后显示“no function definition: UINT”，是库里没有这个函数吗？

胡耀

AyungerStudio 发表于 2007-4-14 10:28
;;;2007-04-14
;;;********************************
;;; 数字型TEXT内容按约数取整 函数  

如何设置为向上取整呢？比如101~149全部取为150，并且不带小数点？

胡耀

AyungerStudio 发表于 2007-4-14 10:28
;;;2007-04-14
;;;********************************
;;; 数字型TEXT内容按约数取整 函数  

如何向上取整，例如101~149全部取整为150，并且取整后的数字不带小数点？

胡耀

AyungerStudio 发表于 2007-4-14 10:28
;;;2007-04-14
;;;********************************
;;; 数字型TEXT内容按约数取整 函数  

如何向上取整，例如101~149全部取整为150，并且取整后的数字不带小数点？