求一修改后四舍五入的lisp

wxa123wl · 发表于 2014-3-15 19:43:49

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

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

×

求一个增强的四舍五入的lisp，，191 225 467 等变成190 225 467 就是一般的四舍五入，可是当是5的时候不进！框选修改！

wxa123wl · 发表于 2014-3-15 19:44:43

是191 225 467 变成190 225 470

gufengyin · 发表于 2014-3-16 00:09:42

(defun c:test (/ LAST_STR NUM_LIST NUM_STR RE)
(setq num_list '(191 225 467))
(setq re '())
(foreach i num_list
(setq num_str (itoa i))
(setq last_str (substr num_str (strlen num_str)))
(if (> (atoi last_str) 5)
(setq num_str (strcat (itoa (1+ (atoi (substr num_str 1 (1- (strlen num_str)))))) "0"))
(progn
(if (< (atoi last_str) 5)
(setq num_str (strcat (itoa (atoi (substr num_str 1 (1- (strlen num_str))))) "0"))
)
)
)
(setq re (cons (atoi num_str) re))
)
(setq re (reverse re))
)

st788796 · 发表于 2014-3-16 00:28:04

(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "text"))))
(mapcar
'(lambda (x)
(and (distof (setq str (xdrx_getpropertyvalue x "Textstring")))
(xdrx_setpropertyvalue
x
"Textstring"
(itoa (fix (XD::Math:Round1 (distof str) 1)))
)
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

wxa123wl · 发表于 2014-3-16 12:53:05

gufengyin 发表于 2014-3-16 00:09

(defun c:test (/ LAST_STR NUM_LIST NUM_STR RE i)
(setq num_list (ssget '((0 . "text"))))
(setq re '())
(foreach i num_list
(setq num_str (itoa i))
(setq last_str (substr num_str (strlen num_str)))
(if (> (atoi last_str) 5)
   (setq num_str (strcat (itoa (1+ (atoi (substr num_str 1 (1- (strlen num_str)))))) "0"))
   (progn
      (if (< (atoi last_str) 5)
      (setq num_str (strcat (itoa (atoi (substr num_str 1 (1- (strlen num_str))))) "0"))
      )
      )
   )
(setq re (cons (atoi num_str) re))
)
(setq re (reverse re))
)

运行提示参数类型错误: consp <Selection set: 7f2>

不可以用啊！{:soso_e109:}

炫翔 · 发表于 2014-3-25 16:51:44

(defun c:xx ( / i lst s1 ss str)
(if (setq ss (ssget '((0 . "text"))))
(progn
(setq i (sslength ss))
(while (setq s1 (ssname ss (setq i (1- i))))
(setq str(xx-get-dxf 1 s1))
(setq lst (xx-str-expe str))
(if (and(/= (atoi (last lst)) 5)(/= (atoi (last lst)) 0))
(progn
(xx-put-dxf s1 1 (itoa (xx-int-fix (atoi str))))
(xx-change s1 "c" "1")
)
)
)
)
)
)

st788796 · 发表于 2014-3-25 18:42:16

本帖最后由 st788796 于 2014-3-25 18:54 编辑

炫翔发表于 2014-3-25 16:51

没看出优势，不如用vla
用free-lancer的app中函数简单修改就可以替换xdapi那个
(defun c:tt ()
  (fy:begin)
  (if  (ssget '((0 . "text")))
(mapcar
   '(lambda (x)
      (and (distof (setq str (vlax-get x "Textstring")))
            (vlax-put
            x
            "Textstring"
            (itoa (fix (XD::Math:Round1 (distof str) 1)))
            )
      )
   )
   (fy:cset->objs)
)
  )
  (fy:end)
  (princ)
)

zxq0220 · 发表于 2014-3-26 08:10:54

本帖最后由 zxq0220 于 2014-3-26 08:23 编辑

(defun c:test (/ ss i ent num)
(setq ss (ssget '((0 . "TEXT") (1 . "###"))))
(setq i -1)
(repeat (sslength ss)
(setq ent (entget(ssname ss (setq i (1+ i))))
num (atoi(cdr(assoc 1 ent)))
num (itoa (* (/ (+ num 3) 5) 5)))
(entmod (subst (cons 1 num) (assoc 1 ent) ent))
)
(princ)
)

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

[求助] 求一修改后四舍五入的lisp

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

点评