求修改某段连续编号的LISP代码

清风明月10 · 发表于 2014-1-8 16:44:03

来源：1楼修改连续编号的程序-AutoLISP/Visual LISP 编程技术-CAD论坛-明经CAD社区 - Powered by Discuz!
http://bbs.mjtd.com/thread-91633-1-1.html

上面网址是修改连续编号的。但它一是没有公开源码，二则它是设编号大于某值N时就全部修改，没有封顶。
我请求高手帮编一个类似的，一是公开源码，二是设立封顶的编号M，即当值大于M时，就不改了。也就是说，值大于M小于N均不作修改，只是修改大于等N，小于等于M的值。
修改的范围由用户选定（SSGET）。
希望是有无前、后缀均能做到的。
比如有如下文本：ZK1B ZK2B ZK3B ZK4B ZK5B ZK6B ZK7B ZK8B ZK9B ZK10B ZK11B ZK12B ZK13B ZK14B ZK15B ZK16B ZK17B ZK18B ZK19B ZK20B ZK21B ZK22B ZK23B ZK24B ZK25B ZK26B ZK27B ZK28B ZK29B ZK30B ZK31B ZK32B ZK33B ZK34B ZK35B ZK36B
我要将ZK12B到ZK23B的这一段改为TV56C TV57C TV58C TV59C TV60C TV61C TV62C TV63C TV64C TV65C TV66C TV67C
上面的改法时，前缀由ZK改为TV，后缀由B改为C，序号由12加上44改为56，13、14等类推。
当然上面举例是有前后缀的，我希望仅有前缀、仅有后缀或纯数值的也能成立

st788796 · 发表于 2014-1-8 16:44:04

清风明月10 发表于 2014-1-8 22:09
算，象用公开的函数库，如晓东的、学院派的都算。因为这是经过证明可以无条件使用的

写这些符号太麻烦，自己调试吧

1 数值项必须输入，最大值必须输入，且均限定为 INT[0-9]
2 修改选项的前缀后缀不输入用原文字的前后缀

(defun c:tt (/ Odcl:Getinput lst mnum opre onum osub nnum npre nsub ss
spa el)
(defun Odcl:Getinput (/
c:tsedit_Form1_Ok_OnClicked
c:tsedit_form1_Cancel_OnClicked
string
lst
)
(defun c:tsedit_Form1_Ok_OnClicked (/)
(setq lst (mapcar
'(lambda (x)
(mapcar 'dcl_control_gettext x)
)
(list
(mapcar 'eval
'(tsedit_form1_opre
tsedit_form1_onum
tsedit_form1_osub
)
)
(mapcar 'eval
'(tsedit_form1_npre
tsedit_form1_nnum
tsedit_form1_nsub
)
)
)
)
lst (cons (dcl_control_gettext tsedit_form1_spa) lst)
lst (cons (dcl_control_gettext tsedit_form1_mnum) lst)
)
(dcl_form_close tsedit_form1)
)
(defun c:tsedit_form1_Cancel_OnClicked (/)
(dcl_form_close tsedit_form1)
(setq lst nil)
)
(setq string
(apply
'strcat
'("YWt6AxVEAAAcQpd4BuKTJRUWYitqgEjxs7q4qigdqhbzpqTe2BDtShjbht7P9kjxSBxVa6wzxJdd"
"8Wgty9xsgxvaaFT2JiTfgG56od5rijEvboOZUY/5/EFV5FTb9oYWQpmQRA2R55OyMAjNRTcYvBCY"
"oqmiBbCHwA2R48O1GVGwXIX3YbxarKbzA0b6Zv4RFf4khLHn1e1U1W138q6JBMpcO4Gl7trFcLQ3"
"LQRVxE46W6SXkDAS3upqg/MuEEWb2lYRWo3OJxDP85RbVkPTNAwTEMdNpRz0QDeL6h/UqTcJNzQ3"
"7arb4K4315Nacd9/tcYvkE9LQvU4Jk8qXgUvKIsYYr6dZtkgJSEdm4FHp1yoSCo/xdJXq+rEsCwF"
"qDe6zRzy4R2DFbbzvcZ1xJh4n0IQbgPmvlhkunoLQvNPJjH0qChEMYX34YD9tgE0tuFEmysRQW+M"
"F18BUprBOwX5+2Lx54xB8AjGX5U7qqbUG5OiEtbEGHnEF8KJr4mX403xJiHeJNVylWXdStJo2Ql3"
"xC34mmSpDzTtShoCTZdLO+Qz7ZcN58x86EOuQNmXaOidOC3rps2Ir/ODqBscBm0418Rgct7nQAXr"
"j7iWwOXAib6kEam1cpL+7rmT2bmAHkvz9IJPXzU7FxDvHse/7wf2KMFIRMTNyESMV7AhnbatUolE"
"jHDoYWwQzzu2QzwALrb25wTt+CNViqQciLlIiuvinBuWSMkQ2pDaENuQ2xPak4wJ2iMORyyrx8Aa"
"xIimrdGxp+tKLWH4F5TtTjODVDItqb9Kywxzs6qhXTrYILBXINiwM7F/Mu9ilgcbhbAl4Cd21ujY"
"cPSUruTkvblMMMcl5MTUcYMaksrR55Fub0cPl3aDaeXftCgN2CXk5cKzDMv2F2H0iEBsDMP295F1"
"h0NfNQkln4o5y0lxkAlAYYmFsq+9cumRbJ2KDrEVJgAz8pVIT9AX3/lfXxFpzJiQVNYXkLAJqJO8"
"YyX7AjrK6WiM0xwCIXSH+lbBK4a3HVyBWJ+AleKMATAvh/XwwOsAsHeDsaaLTZODXKSFs8/ZVIHV"
"Q8m0ttU7A3OAs06fAfibb6+BPJdeV4pp/nAG7B+tf/nX4gqu9Vn2hzU2eRRQKjhEnp87Cm6vP8+X"
"niDmCg50X9j9tUdbaWNybmNy6+xwiFzkY45rr7+c3P0jTpeeB/rmcJRHuzN5Q+Z2REUu8Td2R35j"
"ylzkY45rSETGfFhjSjkKbvZwML7a/YVvUESew247eSL98/ML0BPcU5SDfx2+AeU2kJ4pdymqXoFw"
"tZhILDuxSDLHFt5wB638ZKB5fxefI2Hk5nkkxk5pJI7ef3stdwVzuBJNY7jVHEce1L9SYFVREqi+"
"+rOZUml07X7OHiTLH8/8LcIer5iIL5e9rFnbcTRh60AnvjiC+wJInNtRNqWEh/zhE9tRavE4IPjl"
"OHDYSYiFrLoiH1AfJ1ZyW5Ja8komCr36+wQ3L1AmVn0Ev7yBOx9+TfG/E5iE+VckUjxNkfgXmBkv"
"BE058mjyrxImIrvsaVJEXKPoUSQiDKxnPGQvFWPzOKpwxDhdeZ8zXd/nOs/NSg70BdXf6TjfoDU0"
"dobHwiKFaZ6MmY0PB8cY6BUUx/joFSB3Z8e46xWkh/jqIv3ohsPOoagwzwgQg8go/BDbFo6CdFhC"
"ic2SyUucyYvfvyWzXILISEKeoXLGoS34H5nvFSKzVyAvDD1PJ4FWaLBk3y6ooXqtkhFe5EL4A/wd"
"Obc46Aw7t5L4Ampb6TTqAnf7O7c+UUroDurCeVgjwPduOzcoyBnqkvLWyAIVtw/GGWsfo+xUCihP"
"cm1Ysd+KzXRFNCC1V8fcmhqYKVIv6iJULwxhdPXsVEH07MAvDG5YgiE+Ntxa6Rac6vra/fRA8ngf"
"haGn2uQV1yGHdQjRQ4iN7rGVl1jBPRfdiK/KT7RhWOc1hESPfAbX46nHcnfcFHlq6+JhislQAE8w"
"DJsPmW7jFME3YtStPq2xhxsCdwB4WJbkL6TmpXtzGqkN9HUaD53+Gw+/iKO+isZxphCKeOWgx97e"
"LbQmfN6dcGl8xM1OP4l+/P8wt2SWqjpIfCOYoqBz4pwLENFdMjlKDeKL0zbxgAbKZrlNmzei3rlN"
"PQVs6f/M9C0ilee0NyTr29yrsrwns9a5aYRdljvOmYloMg5gPw8pTQIMI9IYHJV90xkMgFLJskG9"
"m5VB9BMaHA=="
)
)
)
(dcl_project_import string)
(dcl_form_show tsedit_form1)
lst
)
(if (and (setq lst (ODCL:GetInput))
(/= (setq mnum (car lst)) "")
(setq mnum (atoi mnum))
(setq spa (cadr lst))
(setq spa (atoi spa))
(mapcar 'set '(opre onum osub) (caddr lst))
(/= onum "")
(setq onum (atoi onum))
(mapcar 'set '(npre nnum nsub) (cadddr lst))
(/= nnum "")
(setq nnum (atoi nnum))
(progn
(princ "\n选择文字....")
(setq ss (ssget (list (cons 1 (strcat opre onum osub)))))
)
)
(progn
(setq el (xdrx_pickset->ents ss)
el (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "Textstring") x)
)
el
)
el (mapcar
'(lambda (x)
(list (atoi (XD::STRING:REGEXPS "[0-9]+" (car x) ""))
(cadr x)
)
)
el
)
el (vl-remove-if
'(lambda (x /)
(or (< (car x) onum)
(> (car n) mnum)
)
)
el
)
el (vl-sort el '(lambda (x1 x2) (< (car x1) (car x2))))
)
(if el
(progn
(xd::begin)
(if (= npre "")
(setq npre opre)
)
(if (= nsub "")
(setq nsub osub)
)
(mapcar '(lambda (x)
(xdrx_setpropertyvalue
x
"textstring"
(strcat npre (itoa nnum) nsub)
)
(setq nnum (+ nnum spa))
)
(mapcar 'cadr el)
)
(xd::end)
)
)
)
)
(princ)
)

(defun c:tt (/ Odcl:Getinput lst mnum opre onum        osub nnum npre nsub ss 
             spa el) 
  (defun Odcl:Getinput (/ 
                        c:tsedit_Form1_Ok_OnClicked 
                        c:tsedit_form1_Cancel_OnClicked 
                        string 
                        lst 
                       ) 
    (defun c:tsedit_Form1_Ok_OnClicked (/) 
      (setq lst        (mapcar 
                  '(lambda (x) 
                     (mapcar 'dcl_control_gettext x) 
                   ) 
                  (list 
                    (mapcar 'eval 
                            '(tsedit_form1_opre 
                              tsedit_form1_onum 
                              tsedit_form1_osub 
                             ) 
                    ) 
                    (mapcar 'eval 
                            '(tsedit_form1_npre 
                              tsedit_form1_nnum 
                              tsedit_form1_nsub 
                             ) 
                    ) 
                  ) 
                ) 
            lst        (cons (dcl_control_gettext tsedit_form1_spa) lst) 
            lst        (cons (dcl_control_gettext tsedit_form1_mnum) lst) 
      ) 
      (dcl_form_close tsedit_form1) 
    ) 
    (defun c:tsedit_form1_Cancel_OnClicked (/) 
      (dcl_form_close tsedit_form1) 
      (setq lst nil) 
    ) 
    (setq string 
           (apply 
             'strcat 
             '("YWt6AxVEAAAcQpd4BuKTJRUWYitqgEjxs7q4qigdqhbzpqTe2BDtShjbht7P9kjxSBxVa6wzxJdd" 
               "8Wgty9xsgxvaaFT2JiTfgG56od5rijEvboOZUY/5/EFV5FTb9oYWQpmQRA2R55OyMAjNRTcYvBCY" 
               "oqmiBbCHwA2R48O1GVGwXIX3YbxarKbzA0b6Zv4RFf4khLHn1e1U1W138q6JBMpcO4Gl7trFcLQ3" 
               "LQRVxE46W6SXkDAS3upqg/MuEEWb2lYRWo3OJxDP85RbVkPTNAwTEMdNpRz0QDeL6h/UqTcJNzQ3" 
               "7arb4K4315Nacd9/tcYvkE9LQvU4Jk8qXgUvKIsYYr6dZtkgJSEdm4FHp1yoSCo/xdJXq+rEsCwF" 
               "qDe6zRzy4R2DFbbzvcZ1xJh4n0IQbgPmvlhkunoLQvNPJjH0qChEMYX34YD9tgE0tuFEmysRQW+M" 
               "F18BUprBOwX5+2Lx54xB8AjGX5U7qqbUG5OiEtbEGHnEF8KJr4mX403xJiHeJNVylWXdStJo2Ql3" 
               "xC34mmSpDzTtShoCTZdLO+Qz7ZcN58x86EOuQNmXaOidOC3rps2Ir/ODqBscBm0418Rgct7nQAXr" 
               "j7iWwOXAib6kEam1cpL+7rmT2bmAHkvz9IJPXzU7FxDvHse/7wf2KMFIRMTNyESMV7AhnbatUolE" 
               "jHDoYWwQzzu2QzwALrb25wTt+CNViqQciLlIiuvinBuWSMkQ2pDaENuQ2xPak4wJ2iMORyyrx8Aa" 
               "xIimrdGxp+tKLWH4F5TtTjODVDItqb9Kywxzs6qhXTrYILBXINiwM7F/Mu9ilgcbhbAl4Cd21ujY" 
               "cPSUruTkvblMMMcl5MTUcYMaksrR55Fub0cPl3aDaeXftCgN2CXk5cKzDMv2F2H0iEBsDMP295F1" 
               "h0NfNQkln4o5y0lxkAlAYYmFsq+9cumRbJ2KDrEVJgAz8pVIT9AX3/lfXxFpzJiQVNYXkLAJqJO8" 
               "YyX7AjrK6WiM0xwCIXSH+lbBK4a3HVyBWJ+AleKMATAvh/XwwOsAsHeDsaaLTZODXKSFs8/ZVIHV" 
               "Q8m0ttU7A3OAs06fAfibb6+BPJdeV4pp/nAG7B+tf/nX4gqu9Vn2hzU2eRRQKjhEnp87Cm6vP8+X" 
               "niDmCg50X9j9tUdbaWNybmNy6+xwiFzkY45rr7+c3P0jTpeeB/rmcJRHuzN5Q+Z2REUu8Td2R35j" 
               "ylzkY45rSETGfFhjSjkKbvZwML7a/YVvUESew247eSL98/ML0BPcU5SDfx2+AeU2kJ4pdymqXoFw" 
               "tZhILDuxSDLHFt5wB638ZKB5fxefI2Hk5nkkxk5pJI7ef3stdwVzuBJNY7jVHEce1L9SYFVREqi+" 
               "+rOZUml07X7OHiTLH8/8LcIer5iIL5e9rFnbcTRh60AnvjiC+wJInNtRNqWEh/zhE9tRavE4IPjl" 
               "OHDYSYiFrLoiH1AfJ1ZyW5Ja8komCr36+wQ3L1AmVn0Ev7yBOx9+TfG/E5iE+VckUjxNkfgXmBkv" 
               "BE058mjyrxImIrvsaVJEXKPoUSQiDKxnPGQvFWPzOKpwxDhdeZ8zXd/nOs/NSg70BdXf6TjfoDU0" 
               "dobHwiKFaZ6MmY0PB8cY6BUUx/joFSB3Z8e46xWkh/jqIv3ohsPOoagwzwgQg8go/BDbFo6CdFhC" 
               "ic2SyUucyYvfvyWzXILISEKeoXLGoS34H5nvFSKzVyAvDD1PJ4FWaLBk3y6ooXqtkhFe5EL4A/wd" 
               "Obc46Aw7t5L4Ampb6TTqAnf7O7c+UUroDurCeVgjwPduOzcoyBnqkvLWyAIVtw/GGWsfo+xUCihP" 
               "cm1Ysd+KzXRFNCC1V8fcmhqYKVIv6iJULwxhdPXsVEH07MAvDG5YgiE+Ntxa6Rac6vra/fRA8ngf" 
               "haGn2uQV1yGHdQjRQ4iN7rGVl1jBPRfdiK/KT7RhWOc1hESPfAbX46nHcnfcFHlq6+JhislQAE8w" 
               "DJsPmW7jFME3YtStPq2xhxsCdwB4WJbkL6TmpXtzGqkN9HUaD53+Gw+/iKO+isZxphCKeOWgx97e" 
               "LbQmfN6dcGl8xM1OP4l+/P8wt2SWqjpIfCOYoqBz4pwLENFdMjlKDeKL0zbxgAbKZrlNmzei3rlN" 
               "PQVs6f/M9C0ilee0NyTr29yrsrwns9a5aYRdljvOmYloMg5gPw8pTQIMI9IYHJV90xkMgFLJskG9" 
               "m5VB9BMaHA==" 
              ) 
           ) 
    ) 
    (dcl_project_import string) 
    (dcl_form_show tsedit_form1) 
    lst 
  ) 
  (if (and (setq lst (ODCL:GetInput)) 
           (/= (setq mnum (car lst)) "") 
           (setq mnum (atoi mnum)) 
           (setq spa (cadr lst)) 
           (setq spa (atoi spa)) 
           (mapcar 'set '(opre onum osub) (caddr lst)) 
           (/= onum "") 
           (setq onum (atoi onum)) 
           (mapcar 'set '(npre nnum nsub) (cadddr lst)) 
           (/= nnum "") 
           (setq nnum (atoi nnum)) 
           (progn 
             (princ "\n选择文字....") 
             (setq ss (ssget (list (cons 1 (strcat opre onum osub))))) 
           ) 
      ) 
    (progn 
      (setq el (xdrx_pickset->ents ss) 
            el (mapcar '(lambda        (x) 
                          (list (xdrx_getpropertyvalue x "Textstring") x) 
                        ) 
                       el 
               ) 
            el (mapcar 
                 '(lambda (x) 
                    (list (atoi (XD::STRING:REGEXPS "[0-9]+" (car x) "")) 
                          (cadr x) 
                    ) 
                  ) 
                 el 
               ) 
            el (vl-remove-if 
                 '(lambda (x /) 
                    (or        (< (car x) onum) 
                        (> (car n) mnum) 
                    ) 
                  ) 
                 el 
               ) 
            el (vl-sort el '(lambda (x1 x2) (< (car x1) (car x2)))) 
      ) 
      (if el 
        (progn 
          (xd::begin) 
          (if (= npre "") 
            (setq npre opre) 
          ) 
          (if (= nsub "") 
            (setq nsub osub) 
          ) 
          (mapcar '(lambda (x) 
                     (xdrx_setpropertyvalue 
                       x 
                       "textstring" 
                       (strcat npre (itoa nnum) nsub) 
                     ) 
                     (setq nnum (+ nnum spa)) 
                   ) 
                  (mapcar 'cadr el) 
          ) 
          (xd::end) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

快乐小子春天 · 发表于 2014-1-8 19:41:34

我还没学会，等我会了帮你写个，哈哈

st788796 · 发表于 2014-1-8 21:47:51

界面用ODCL，程序用xdrxapi算不算源码？

清风明月10 · 发表于 2014-1-8 22:09:15

算，象用公开的函数库，如晓东的、学院派的都算。因为这是经过证明可以无条件使用的

清风明月10 · 发表于 2014-1-9 08:28:27

st788796 发表于 2014-1-9 00:45
写这些符号太麻烦，自己调试吧

1 数值项必须输入，最大值必须输入，且均限定为 INT[0-9]

; 错误: no function definition: DCL_PROJECT_IMPORT
没法用，再者作者调试更快，别人要去重新理解你的思路，要不极慢，要不为不可能。还希望作者调试好

st788796 · 发表于 2014-1-9 08:30:01

清风明月10 发表于 2014-1-9 08:28
; 错误: no function definition: DCL_PROJECT_IMPORT
没法用，再者作者调试更快，别人要去重新理解你的 ...

1 提供测试图
2 需要加载 OpenDCL

清风明月10 · 发表于 2014-1-9 08:37:06

求修改某段连续编号的LISP代码-编程申请-CAD论坛-明经CAD社区-编程技术,程序,用户 - Powered by Discuz!
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid624386
在这个网址求到了一个符合我要求的代码，就不麻烦您了！谢谢！

dullthunder · 发表于 2014-11-30 02:17:42

留脚印来了！

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

[编程申请] 求修改某段连续编号的LISP代码

最佳答案

点评