最后数字复制递增

st788796 · 发表于 2013-12-1 14:35:37

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

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

×

本帖最后由 st788796 于 2013-12-1 14:37 编辑

(defun c:tt (/ txt el num ntxt str ostr loop
code typ el1 nnum nstr el1 e tf
substrend
)
(defun substrend (new old str / pos)
(setq pos 0)
(while (vl-string-search old str pos)
(setq pos (1+ pos))
)
(vl-string-subst
new
old
str
(if (zerop pos)
pos
(1- pos)
)
)
)
(if (and (setq txt (car (entsel "\nPick text: ")))
(setq el (entget txt))
(eq (cdr (assoc 0 el)) "TEXT")
(setq num (getreal "\nNumber: "))
(setq str (cdr (assoc 1 el))
ostr (last
(XD::String:RegexpS "\\d+|[.]|[d+]" str "")
) ;_分离数字
)
)
(progn
(setq ntxt (entmakex el)
loop t
)
(princ "\nAny key Exit ....")
(while loop
(setq code (grread t 15)
typ (car code)
)
(cond
((= typ 3)
(setq nnum (rtos (+ num (distof ostr))
2
3
)
nstr (substrend nnum ostr str)
el1 (subst (cons 1 nstr)
(assoc 1 el)
el
)
el1 (subst (cons 10 (cadr code)) (assoc 10 el1) el1)
e (entmakex el1)
el el1
str nstr
ostr nnum
)
)
((= typ 5)
(setq el1 (subst (cons 10 (cadr code)) (assoc 10 el) el))
(entmod el1)
(setq tf t)
)
(t
(setq loop nil)
(if tf
(entdel (cdr (assoc -1 el1)))
)
)
)
)
)
)
(princ)
)

(defun c:tt (/            txt           el          num         ntxt        str    ostr   loop 
             code   typ           el1          nnum         nstr        el1    e      tf 
             substrend 
            ) 
  (defun substrend (new old str / pos) 
    (setq pos 0) 
    (while (vl-string-search old str pos) 
      (setq pos (1+ pos)) 
    ) 
    (vl-string-subst 
      new 
      old 
      str 
      (if (zerop pos) 
        pos 
        (1- pos) 
      ) 
    ) 
  ) 
  (if (and (setq txt (car (entsel "\nPick text: "))) 
           (setq el (entget txt)) 
           (eq (cdr (assoc 0 el)) "TEXT") 
           (setq num (getreal "\nNumber: ")) 
           (setq str  (cdr (assoc 1 el)) 
                 ostr (last 
                        (XD::String:RegexpS "\\d+|[.]|[d+]" str "") 
                      ) ;_分离数字 
           ) 
      ) 
    (progn 
      (setq ntxt (entmakex el)             
            loop t 
      ) 
      (princ "\nAny key Exit ....") 
      (while loop 
        (setq code (grread t 15) 
              typ  (car code) 
        ) 
        (cond 
          ((= typ 3) 
           (setq nnum (rtos (+ num (distof ostr)) 
                            2 
                            3 
                      ) 
                 nstr (substrend nnum ostr str) 
                 el1  (subst (cons 1 nstr) 
                             (assoc 1 el) 
                             el 
                      ) 
                 el1  (subst (cons 10 (cadr code)) (assoc 10 el1) el1) 
                 e    (entmakex el1) 
                 el   el1 
                 str  nstr 
                 ostr nnum 
           ) 
          ) 
          ((= typ 5) 
           (setq el1 (subst (cons 10 (cadr code)) (assoc 10 el) el)) 
           (entmod el1) 
           (setq tf t) 
          ) 
          (t 
           (setq loop nil) 
           (if tf 
             (entdel (cdr (assoc -1 el1))) 
           ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-12-1 14:43:06

不错，给做成插件吧发布吧。

st788796 · 发表于 2013-12-1 14:47:07

newer 发表于 2013-12-1 14:43
不错，给做成插件吧发布吧。

这个比较简单, 做成指定任意处的数字递增或者同时递增就更强大, 不过还没有想好

st788796 · 发表于 2013-12-1 18:24:15

本帖最后由 st788796 于 2013-12-1 18:29 编辑

如果有多个数字，用ODCL构造一个 Grid 第一列是序号，第二列表示勾选，选中的时候填色，取消时去掉填色，这样可以实现任意位置数字的组合复制递增，重新温习了一下午 ODCL，好久不用实在是时不起来了，放弃

yansu · 发表于 2013-12-2 08:51:30

能否增加中文数字递增

/db_自贡黄明儒_ · 发表于 2013-12-2 13:26:12

我也来凑一下热闹

;;85.23 [功能] 字符串末尾数字+1
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;http://bbs.mjtd.com/forum.php?mod=post&action=edit&fid=3&tid=107420&pid=608841&page=2中定义XD::String:Replace
;;示例(HH:EndNumberAdd "a3.02");返回"a3.03"
(defun HH:EndNumberAdd (str / I STR1 STR2)
(if (setq str1 (car (xd::string:regexps "\\d+$$" str "")))
(progn (setq str2 (itoa (1+ (atoi str1)))) ;提取的尾数+1
(setq i (- (strlen str1) (strlen str2)))
(if (> i 0)
(repeat i (setq str2 (strcat "0" str2)))
)
(XD::String:Replace "\\d+$$" str str2 "")
)
(strcat str "1")
)
)

st788796 · 发表于 2013-12-2 13:32:09

本帖最后由 st788796 于 2013-12-2 13:35 编辑

/db_自贡黄明儒_ 发表于 2013-12-2 13:26
我也来凑一下热闹

黄老这个\\d+$$ 是末尾为数字 , 后面再有字符就无能为力了

i3ku · 发表于 2013-12-2 15:16:18

命令: mwjy
Pick text:
Number: 2 ; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "cmdecho" nil

命令:
命令: MWJY
Pick text:
Number: 1 ; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "cmdecho" nil

st788796 · 发表于 2013-12-2 15:17:57

i3ku 发表于 2013-12-2 15:16
命令: mwjy
Pick text:
Number: 2 ; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "cmdecho" nil

加载 XD::String:RegexpS

i3ku · 发表于 2013-12-2 15:19:43

st788796 发表于 2013-12-2 15:17
加载 XD::String:RegexpS

额，谢谢，我没加载次程序

yangdafo · 发表于 2013-12-4 15:17:43

新手再问：
“XD::String:RegexpS” 在哪里下载？

enn09 · 发表于 2014-4-16 15:37:05

看看什么好方法

再见熊猫衣服 · 发表于 2018-9-8 14:54:50

你好，这个我不能用，报错，
提示，语法错误

sicky111 · 发表于 2018-9-9 00:09:15

谢谢分享。

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

[教学] 最后数字复制递增

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

点评

点评

点评

点评

点评

点评

浏览过的版块