给多个数字加一个定值的lsp程序，望各位完善

xunzhao123 · 发表于 2014-4-8 17:11:59

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

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

×

(defun C:qq ()
(setq ss1 (ssget)
   len1 (sslength ss1)
   cnt 0
   add (getreal "\n加值(可为负值，然后回车)")
   )
(while (< cnt len1)
  (setq dent (entget (ssname ss1 cnt))
      txt (cdr (assoc 1 dent))
      len (strlen txt)
      cnt1 1
      )
(while (<= cnt1 len)
(if (/= (substr txt cnt1 1) " ")
   (progn
   (setq num (atof (substr txt cnt1 len))
         numlen (strlen (rtos num 2 5)))
   (if (/= num 0)
      (progn
      (cond ((= (substr txt cnt1 numlen) (rtos num 2 5)) (setq sp 0))
            ((= (substr txt cnt1 (- numlen 1)) (rtos num 2 1)) (setq sp 1))
            ((= (substr txt cnt1 (- numlen 3)) (rtos num 2 0)) (setq sp 3))
         );cond
         (setq rtxt (substr txt (- (+ cnt1 numlen) sp) len)
               num (+ add num)
               numt (rtos num 2 5)
               ntx  (strcat (substr txt 1 (-  cnt1 1)) numt rtxt)
               old (assoc 1 dent)
               new (cons 1 ntx)
               dent (subst new old dent)
               cnt1 (+ 1 len)
            );setq
            (entmod dent)
            );progn
         )));if,progn,if
      (setq cnt1 (1+ cnt1))
   );end while
  (setq cnt (1+ cnt))
);while
);defun

xunzhao123 · 发表于 2014-4-8 17:14:59

该程序存在的问题是：如1.00（2.00）加值为0.5 会变成1.5.00（2.00），希望加0.5后变成1.50（2.00）；1.50（2.00）加值为0.5 会变成20（2.00），希望加0.5后变成2.00（2.00）。

xunzhao123 · 发表于 2014-4-9 12:05:09

该程序的问题是：如1.00加0.50后是1.5.00而你不是1.50；2.50加0.50后是30而不是3.00。

5664491 · 发表于 2014-4-9 22:43:23

看来我还要等几天才能下载

ll_j · 发表于 2014-4-10 09:57:04

如果仅仅是单行文本，可以到我的U盘下载ce.lsp用用看看，使用时注意看提示。
现在没精力再去看程序了，所以只能这样帮你了。

zxq0220 · 发表于 2014-4-10 11:25:30

本帖最后由 zxq0220 于 2014-4-23 08:36 编辑

(defun C:qq ()
(setq ss1 (ssget '((0 . "*TEXT")))
cnt 0
add (getreal "\n加值(可为负值，然后回车)"))
(repeat (sslength ss1)
(setq dent (entget (ssname ss1 cnt))
txt (cdr (assoc 1 dent))
len (strlen txt)
cnt1 1
ntxt "")
(while (and (<= cnt1 len) (wcmatch (setq a (substr txt cnt1 1)) "#,`."))
(setq ntxt (strcat ntxt a)
cnt1 (1+ cnt1))
);while
(print ntxt)
(setq numlen (strlen ntxt)
ntxt (substr (rtos (+ (atof ntxt) add) 2 5) 1 numlen))
(if (< numlen len)
(setq ntxt (strcat ntxt (substr txt numlen)))
)
(entmod (subst (cons 1 ntxt) (assoc 1 dent) dent))
(setq cnt (1+ cnt))
);repeat
)

xunzhao123 · 发表于 2014-4-14 13:58:19

你好，很感谢你的回答可还是不行但1.00加0.5可以变成1.50了可还是有些问题，比如1.50加0.5还是变成20 如果20加0.5不会有任何变化

zxq0220 · 发表于 2014-4-15 19:56:08

xunzhao123 发表于 2014-4-14 13:58
你好，很感谢你的回答可还是不行但1.00加0.5可以变成1.50了可还是有些问题，比如1.50加0.5还是变成20 ...

程序只保留原来的有效数位，如果原来只有两位整数，则+0.5后尾数被剪掉。

xunzhao123 · 发表于 2014-4-16 09:31:29

xunzhao123 发表于 2014-4-14 13:58
你好，很感谢你的回答可还是不行但1.00加0.5可以变成1.50了可还是有些问题，比如1.50加0.5还是变成20 ...

那样怎样修改程序才能使1.50加上0.5后是2.00，而不是20。希望您能给出完整的修改程序

xunzhao123 · 发表于 2014-4-22 14:24:14

谁能帮帮忙

zxq0220 · 发表于 2014-4-23 08:36:47

6楼改了。再试试。

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

[求助] 给多个数字加一个定值的lsp程序，望各位完善

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

相关帖子

点评