有没有大佬可以让这个批量递增前缀编号每次点击+1

twolzhao · 发表于 2021-1-31 18:20:32

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

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

×

如何可以每次点击让编号+1

如何可以让它每次点击后在输入的这个起始编号的基础上+1，比如点第一个文本是Q1***,点第二个就是Q2***,点第三个就是Q3***,依次类推，请大佬指点完善，论坛搜了一圈都没搜到有这个功能的插件，特来求助，为方便各位阅读，我把代码也粘贴出来，如下：

(defun c:tt4 (/ ent k loop2 obj return# ss str1)
;;;;图形界面设置
(vl-load-com)
(setq @dclfiledame (vl-filename-mktemp nil nil ".dcl"))
(setq @dclfiled (open @dclfiledame "w"))
(write-line "dzmjjsbdc:dialog {" @dclfiled)
(write-line "label = "文本加前后缀" ;" @dclfiled)
(write-line ":row {" @dclfiled)
(write-line ":edit_box {" @dclfiled)
(write-line "key = "textaddstring1" ;" @dclfiled)
(write-line "label = "前缀" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
(write-line ":edit_box {" @dclfiled)
(write-line "key = "textaddstring2" ;" @dclfiled)
(write-line "label = "后缀" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
;;;;;;;;;;;;;;;;;
(write-line ":edit_box {" @dclfiled)
(write-line "key = "textaddstring3" ;" @dclfiled)
(write-line "label = "起始序号" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
;;;;;;;;;;;;;;;;;
(write-line " }" @dclfiled)
(write-line " ok_cancel;" @dclfiled)
(write-line "}" @dclfiled)
(close @dclfiled)
;;以下根据情况处理
(setq @dclid (load_dialog @dclfiledame))
(new_dialog "dzmjjsbdc" @dclid)
;;设置控件默认值
(if (and (/= textaddstring1_1 "") (/= textaddstring1_1 nil))
(set_tile "textaddstring1" textaddstring1_1)
)
(if (and (/= textaddstring2_1 "") (/= textaddstring2_1 nil))
(set_tile "textaddstring2" textaddstring2_1)
)
(if (and (/= textaddstring3_1 "") (/= textaddstring3_1 nil))
(set_tile "textaddstring3" textaddstring3_1)
)
(action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)")
;;;确定
(setq return# (start_dialog))
(cond
((= return# 1)
(setq loop2 t)
(while loop2
(princ "\n 选择文本<退出>")
(setq ss (vl-catch-all-apply 'ssget (list ":S" '((0 . "TEXT")))))
(if (vl-catch-all-error-p ss)
(progn
(princ (strcat "**VL-CATCH-ALL-ERROR-P提示有错：** "
(vl-catch-all-error-message ss)
)
)
(setq loop2 nil)
(princ)
)
(progn
(if ss
(repeat (setq k (sslength ss))
(setq ent (ssname ss (setq k (1- k))))
(setq obj (vlax-ename->vla-object ent))
(setq str1 (vla-get-textstring obj))
(vla-put-textstring
obj
(strcat textaddstring1_1 textaddstring3_1 str1 textaddstring2_1)
)
)
)
)
)
)
)
)
(unload_dialog @dclid)
(vl-file-delete @dclfiledame)
(princ)
)
;;;;;获得对话框值
(defun get_dzmjjsbdc_main ()
(setq textaddstring1_1 (get_tile "textaddstring1"))
(setq textaddstring2_1 (get_tile "textaddstring2"))
(setq textaddstring3_1 (get_tile "textaddstring3"))
)

(defun c:tt4 (/ ent k loop2 obj return# ss str1) 
;;;;图形界面设置 
  (vl-load-com) 
  (setq @dclfiledame (vl-filename-mktemp nil nil ".dcl")) 
  (setq @dclfiled (open @dclfiledame "w")) 
  (write-line "dzmjjsbdc:dialog {" @dclfiled) 
  (write-line "label = "文本加前后缀" ;" @dclfiled) 
  (write-line ":row {" @dclfiled) 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = "textaddstring1" ;" @dclfiled) 
  (write-line "label = "前缀" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = "textaddstring2" ;" @dclfiled) 
  (write-line "label = "后缀" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
 ;;;;;;;;;;;;;;;;; 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = "textaddstring3" ;" @dclfiled) 
  (write-line "label = "起始序号" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
 ;;;;;;;;;;;;;;;;;   
  (write-line "    }" @dclfiled) 
  (write-line "        ok_cancel;" @dclfiled) 
  (write-line "}" @dclfiled) 
  (close @dclfiled) 
  ;;以下根据情况处理 
  (setq @dclid (load_dialog @dclfiledame)) 
  (new_dialog "dzmjjsbdc" @dclid) 
  ;;设置控件默认值 
  (if (and (/= textaddstring1_1 "") (/= textaddstring1_1 nil)) 
    (set_tile "textaddstring1" textaddstring1_1) 
  ) 
  (if (and (/= textaddstring2_1 "") (/= textaddstring2_1 nil)) 
    (set_tile "textaddstring2" textaddstring2_1) 
  ) 
  (if (and (/= textaddstring3_1 "") (/= textaddstring3_1 nil)) 
    (set_tile "textaddstring3" textaddstring3_1) 
  )   
  (action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)") 
;;;确定 
  (setq return# (start_dialog)) 
  (cond 
    ((= return# 1) 
     (setq loop2 t) 
     (while loop2 
       (princ "\n 选择文本<退出>") 
       (setq ss (vl-catch-all-apply 'ssget (list ":S" '((0 . "TEXT"))))) 
       (if (vl-catch-all-error-p ss) 
         (progn 
           (princ (strcat "**VL-CATCH-ALL-ERROR-P提示有错：** " 
                          (vl-catch-all-error-message ss) 
                  ) 
           ) 
           (setq loop2 nil) 
           (princ) 
         ) 
         (progn 
           (if ss 
             (repeat (setq k (sslength ss)) 
               (setq ent (ssname ss (setq k (1- k)))) 
               (setq obj (vlax-ename->vla-object ent)) 
               (setq str1 (vla-get-textstring obj))       
               (vla-put-textstring 
                 obj 
                 (strcat textaddstring1_1 textaddstring3_1 str1 textaddstring2_1) 
               )       
             ) 
           ) 
         ) 
       ) 
     ) 
    ) 
  ) 
  (unload_dialog @dclid) 
  (vl-file-delete @dclfiledame) 
  (princ) 
) 
;;;;;获得对话框值 
(defun get_dzmjjsbdc_main () 
  (setq textaddstring1_1 (get_tile "textaddstring1")) 
  (setq textaddstring2_1 (get_tile "textaddstring2")) 
  (setq textaddstring3_1 (get_tile "textaddstring3")) 
)

不太懂代码，所以可能看着各种蹩脚，有大神可以修改完善精简最好，跪谢！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:加减前后缀[tt4].lsp
下载次数:12 文件大小:2.91 KB
下载权限: 不限以上 [免费赚D豆]

pxr201419 · 发表于 2021-2-1 16:32:25

(defun c:tt4 (/ *error* @dclfiled @dclfiledame @dclid ent errorsave k loop mod1 mod2 mod3 mod4
num num_ obj return# ss str1 str textaddstring1_1 textaddstring2_1 textaddstring3_1)
(vl-load-com)
(setq errorsave *error*)
(defun *error* (msg)
(unload_dialog @dclid)
(vl-file-delete @dclfiledame)
(setq *error* errorsave))
(defun get_dzmjjsbdc_main ()
(setq textaddstring1_1 (get_tile "textaddstring1")
textaddstring2_1 (get_tile "textaddstring2")
textaddstring3_1 (get_tile "textaddstring3")
mod1 (get_tile "x1")
mod2 (get_tile "x2")
mod3 (get_tile "x3")
mod4 (get_tile "x4")))
(setq @dclfiledame (vl-filename-mktemp nil nil ".dcl")
@dclfiled (open @dclfiledame "w"))
(write-line
"dzmjjsbdc:dialog { label = \"文本加前后缀\" ;
:row {:edit_box {key=\"textaddstring1\";label=\"前缀\";width=10;}
:edit_box {key=\"textaddstring2\";label=\"后缀\";width=10;}
:edit_box {key=\"textaddstring3\";label=\"起始序号\";width=10;value=1;}
}
:spacer{hight=10;} :spacer{hight=10;}
:boxed_radio_column
{label=\"排序方式\";
:radio_button{label=\"序号前缀文字后缀\";key=\"x1\";value=1;}
:radio_button{label=\"前缀序号文字后缀\";key=\"x2\";value=0;}
:radio_button{label=\"前缀文字序号后缀\";key=\"x3\";value=0;}
:radio_button{label=\"前缀文字后缀序号\";key=\"x4\";value=0;}
}ok_cancel;}"
@dclfiled)
(close @dclfiled)
(setq @dclid (load_dialog @dclfiledame))
(new_dialog "dzmjjsbdc" @dclid)
(action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)")
(setq return# (start_dialog))
(list mod1 mod2 mod3 mod4)
(cond ((= return# 1)
(if (setq num (vl-remove nil (mapcar '(lambda(x) (if (< 47 x 59) x nil)) (vl-string->list textaddstring3_1)))) (setq num (atoi (apply 'strcat (mapcar 'chr num)))))
(setq loop t)
(while loop
(princ "\n选择文本<退出>")
(cond ((setq ss (ssget ":s" '((0 . "text"))))
(repeat (setq k (sslength ss))
(setq ent (ssname ss (setq k (1- k)))
obj (vlax-ename->vla-object ent)
str1 (vla-get-textstring obj)
num_ (if num (rtos num 2 0) "")
str (cond ((= mod1 "1") (list num_ textaddstring1_1 str1 textaddstring2_1))
((= mod2 "1") (list textaddstring1_1 num_ str1 textaddstring2_1))
((= mod3 "1") (list textaddstring1_1 str1 num_ textaddstring2_1))
((= mod4 "1") (list textaddstring1_1 str1 textaddstring2_1 num_))))
(vla-put-textstring obj (apply 'strcat str))
(if num
(setq num (1+ num)))))
(t (setq loop nil))))))
(unload_dialog @dclid)
(vl-file-delete @dclfiledame)
(princ))

(defun c:tt4  (/ *error* @dclfiled @dclfiledame @dclid ent errorsave k loop mod1 mod2 mod3 mod4 
               num num_ obj return# ss str1 str textaddstring1_1 textaddstring2_1 textaddstring3_1) 
  (vl-load-com) 
  (setq errorsave *error*) 
  (defun *error*  (msg) 
    (unload_dialog @dclid) 
    (vl-file-delete @dclfiledame) 
    (setq *error* errorsave)) 
  (defun get_dzmjjsbdc_main  () 
    (setq textaddstring1_1 (get_tile "textaddstring1") 
          textaddstring2_1 (get_tile "textaddstring2") 
          textaddstring3_1 (get_tile "textaddstring3") 
          mod1             (get_tile "x1") 
          mod2             (get_tile "x2") 
          mod3             (get_tile "x3") 
          mod4             (get_tile "x4"))) 
  (setq @dclfiledame (vl-filename-mktemp nil nil ".dcl") 
        @dclfiled (open @dclfiledame "w")) 
  (write-line 
    "dzmjjsbdc:dialog { label = \"文本加前后缀\" ; 
                            :row {:edit_box {key=\"textaddstring1\";label=\"前缀\";width=10;} 
                                    :edit_box {key=\"textaddstring2\";label=\"后缀\";width=10;} 
                                    :edit_box {key=\"textaddstring3\";label=\"起始序号\";width=10;value=1;} 
                                   } 
                              :spacer{hight=10;} :spacer{hight=10;} 
                              :boxed_radio_column 
                             {label=\"排序方式\"; 
                                :radio_button{label=\"序号 前缀 文字 后缀\";key=\"x1\";value=1;} 
                                :radio_button{label=\"前缀 序号 文字 后缀\";key=\"x2\";value=0;} 
                                :radio_button{label=\"前缀 文字 序号 后缀\";key=\"x3\";value=0;} 
                                :radio_button{label=\"前缀 文字 后缀 序号\";key=\"x4\";value=0;} 
                             }ok_cancel;}" 
    @dclfiled) 
  (close @dclfiled) 
  (setq @dclid (load_dialog @dclfiledame)) 
  (new_dialog "dzmjjsbdc" @dclid) 
  (action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)") 
  (setq return# (start_dialog)) 
  (list mod1 mod2 mod3 mod4) 
  (cond ((= return# 1) 
         (if (setq num (vl-remove nil (mapcar '(lambda(x) (if (< 47 x 59) x nil)) (vl-string->list textaddstring3_1))))           (setq num (atoi (apply 'strcat (mapcar 'chr num))))) 
         (setq loop t) 
         (while loop 
           (princ "\n选择文本<退出>") 
           (cond ((setq ss (ssget ":s" '((0 . "text")))) 
                  (repeat (setq k (sslength ss)) 
                    (setq ent (ssname ss (setq k (1- k))) 
                          obj (vlax-ename->vla-object ent) 
                          str1 (vla-get-textstring obj) 
                          num_ (if num (rtos num 2 0) "") 
                          str (cond ((= mod1 "1") (list num_ textaddstring1_1 str1 textaddstring2_1)) 
                                    ((= mod2 "1") (list textaddstring1_1 num_ str1 textaddstring2_1)) 
                                    ((= mod3 "1") (list textaddstring1_1 str1 num_ textaddstring2_1)) 
                                    ((= mod4 "1") (list textaddstring1_1 str1 textaddstring2_1 num_)))) 
                    (vla-put-textstring obj (apply 'strcat str)) 
                    (if num 
                      (setq num (1+ num))))) 
                 (t (setq loop nil)))))) 
  (unload_dialog @dclid) 
  (vl-file-delete @dclfiledame) 
  (princ))

lzy1979 · 发表于 2021-2-1 07:56:50

zhendeshihenbuduoe xiezi

Lisphk · 发表于 2021-2-1 08:03:37

增强的拷贝+1（第三版）

175 个回复 - 6187 次查看

支持曲线阵列的第二版发布，见：http://bbs.xdcad.net/thread-716036-1-1.html 第三版加入了多选+1功能，+1依据多选的文字里面数字最大的开始编号，拷贝数量为多选的文字个数。点右上角演示放大观看。 ...

2018-7-16 18:28 - newer - 每日插件

twolzhao · 发表于 2021-2-1 12:34:11

Lisphk 发表于 2021-2-1 08:03
增强的拷贝+1（第三版）175 个回复 - 6187 次查看支持曲线阵列的第二版发布，见：http://bbs.xdcad.net/thr ...

不一样啊，这是拷贝递增前缀，我这个是对现有的多个单行文字逐个加前缀递增，我尝试着让其每次点击一个单行文字后编号+1，但是，总是报错，提示的大概意思是字符串无法进行+1的计算操作，所以特来请教各位大佬

qq2222081387 · 发表于 2021-2-1 16:10:15

twolzhao 发表于 2021-2-1 12:34
不一样啊，这是拷贝递增前缀，我这个是对现有的多个单行文字逐个加前缀递增，我尝试着让其每次点击一个单 ...

简单改一下就可以啊
(itoa int) 将整型数转换成字符串
(atoi string)将字符串转换成整型数

(defun c:tt4 (/ ent k loop2 obj return# ss str1)
;;;;图形界面设置
(vl-load-com)
(setq @dclfiledame (vl-filename-mktemp nil nil ".dcl"))
(setq @dclfiled (open @dclfiledame "w"))
(write-line "dzmjjsbdc:dialog {" @dclfiled)
(write-line "label = \"文本加前后缀\" ;" @dclfiled)
(write-line ":row {" @dclfiled)
(write-line ":edit_box {" @dclfiled)
(write-line "key = \"textaddstring1\" ;" @dclfiled)
(write-line "label = \"前缀\" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
(write-line ":edit_box {" @dclfiled)
(write-line "key = \"textaddstring2\" ;" @dclfiled)
(write-line "label = \"后缀\" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
;;;;;;;;;;;;;;;;;
(write-line ":edit_box {" @dclfiled)
(write-line "key = \"textaddstring3\" ;" @dclfiled)
(write-line "label = \"起始序号\" ;" @dclfiled)
(write-line "width = 10 ;" @dclfiled)
(write-line " }" @dclfiled)
;;;;;;;;;;;;;;;;;
(write-line " }" @dclfiled)
(write-line " ok_cancel;" @dclfiled)
(write-line "}" @dclfiled)
(close @dclfiled)
;;以下根据情况处理
(setq @dclid (load_dialog @dclfiledame))
(new_dialog "dzmjjsbdc" @dclid)
;;设置控件默认值
(if (and (/= textaddstring1_1 "") (/= textaddstring1_1 nil))
(set_tile "textaddstring1" textaddstring1_1)
)
(if (and (/= textaddstring2_1 "") (/= textaddstring2_1 nil))
(set_tile "textaddstring2" textaddstring2_1)
)
(if (and (/= textaddstring3_1 "") (/= textaddstring3_1 nil))
(set_tile "textaddstring3" textaddstring3_1)
)
(action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)")
;;;确定
(setq return# (start_dialog))
(cond
((= return# 1)
(setq loop2 t)
(setq strint 0)
(while loop2
(princ "\n 选择文本<退出>")
(setq ss (vl-catch-all-apply 'ssget (list ":S" '((0 . "TEXT")))))
(if (vl-catch-all-error-p ss)
(progn
(princ (strcat "**VL-CATCH-ALL-ERROR-P提示有错：** "
(vl-catch-all-error-message ss)
)
)
(setq loop2 nil)
(princ)
)
(progn
(if ss
(repeat (setq k (sslength ss))
(setq ent (ssname ss (setq k (1- k))))
(setq obj (vlax-ename->vla-object ent))
(setq str1 (vla-get-textstring obj))
(if (= strint 0)
(progn
(setq textaddstring3_1 (itoa (+ strint (atoi textaddstring3_1))))
(setq strint (atoi textaddstring3_1))
)
(progn
(setq textaddstring3_1 (itoa strint))
)
)
(vla-put-textstring
obj
(strcat textaddstring1_1 textaddstring3_1 str1 textaddstring2_1)
)
)
)
(setq strint (+ strint 1))
)
)
)
)
)
(unload_dialog @dclid)
(vl-file-delete @dclfiledame)
(princ)
)
;;;;;获得对话框值
(defun get_dzmjjsbdc_main ()
(setq textaddstring1_1 (get_tile "textaddstring1"))
(setq textaddstring2_1 (get_tile "textaddstring2"))
(setq textaddstring3_1 (get_tile "textaddstring3"))
)

(defun c:tt4 (/ ent k loop2 obj return# ss str1) 
;;;;图形界面设置 
  (vl-load-com) 
  (setq @dclfiledame (vl-filename-mktemp nil nil ".dcl")) 
  (setq @dclfiled (open @dclfiledame "w")) 
  (write-line "dzmjjsbdc:dialog {" @dclfiled) 
  (write-line "label = \"文本加前后缀\" ;" @dclfiled) 
  (write-line ":row {" @dclfiled) 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = \"textaddstring1\" ;" @dclfiled) 
  (write-line "label = \"前缀\" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = \"textaddstring2\" ;" @dclfiled) 
  (write-line "label = \"后缀\" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
 ;;;;;;;;;;;;;;;;; 
  (write-line ":edit_box {" @dclfiled) 
  (write-line "key = \"textaddstring3\" ;" @dclfiled) 
  (write-line "label = \"起始序号\" ;" @dclfiled) 
  (write-line "width = 10  ;" @dclfiled) 
  (write-line "        }" @dclfiled) 
 ;;;;;;;;;;;;;;;;;   
  (write-line "    }" @dclfiled) 
  (write-line "        ok_cancel;" @dclfiled) 
  (write-line "}" @dclfiled) 
  (close @dclfiled) 
  ;;以下根据情况处理 
  (setq @dclid (load_dialog @dclfiledame)) 
  (new_dialog "dzmjjsbdc" @dclid) 
  ;;设置控件默认值 
  (if (and (/= textaddstring1_1 "") (/= textaddstring1_1 nil)) 
    (set_tile "textaddstring1" textaddstring1_1) 
  ) 
  (if (and (/= textaddstring2_1 "") (/= textaddstring2_1 nil)) 
    (set_tile "textaddstring2" textaddstring2_1) 
  ) 
  (if (and (/= textaddstring3_1 "") (/= textaddstring3_1 nil)) 
    (set_tile "textaddstring3" textaddstring3_1) 
  )   
  (action_tile "accept" "(get_dzmjjsbdc_main)(done_dialog 1)") 
;;;确定 
  (setq return# (start_dialog)) 
  (cond 
    ((= return# 1) 
     (setq loop2 t) 
     (setq strint 0) 
     (while loop2 
       (princ "\n 选择文本<退出>") 
       (setq ss (vl-catch-all-apply 'ssget (list ":S" '((0 . "TEXT"))))) 
       (if (vl-catch-all-error-p ss) 
         (progn 
           (princ (strcat "**VL-CATCH-ALL-ERROR-P提示有错：** " 
                          (vl-catch-all-error-message ss) 
                  ) 
           ) 
           (setq loop2 nil) 
           (princ) 
         ) 
         (progn 
           (if ss 
             (repeat (setq k (sslength ss)) 
               (setq ent (ssname ss (setq k (1- k)))) 
               (setq obj (vlax-ename->vla-object ent)) 
               (setq str1 (vla-get-textstring obj)) 
               (if (= strint 0) 
                 (progn 
                   (setq textaddstring3_1 (itoa (+ strint (atoi textaddstring3_1)))) 
                   (setq strint (atoi textaddstring3_1)) 
                   ) 
                 (progn 
                   (setq textaddstring3_1 (itoa strint)) 
                   ) 
                 ) 
               (vla-put-textstring 
                 obj 
                 (strcat textaddstring1_1 textaddstring3_1 str1 textaddstring2_1) 
               )                          
             ) 
           ) 
           (setq strint (+ strint 1)) 
         ) 
       ) 
     ) 
    ) 
  ) 
  (unload_dialog @dclid) 
  (vl-file-delete @dclfiledame) 
  (princ) 
) 
;;;;;获得对话框值 
(defun get_dzmjjsbdc_main () 
  (setq textaddstring1_1 (get_tile "textaddstring1")) 
  (setq textaddstring2_1 (get_tile "textaddstring2")) 
  (setq textaddstring3_1 (get_tile "textaddstring3")) 
)

twolzhao · 发表于 2021-2-1 18:02:54

pxr201419 发表于 2021-2-1 16:32
(defun c:tt4 (/ *error* @dclfiled @dclfiledame @dclid ent errorsave k loop mod1 mod2 mod3 mod4
...

大佬厉害膜拜大佬，不但满足了我原先的需求还丰富了功能，太感谢了

twolzhao · 发表于 2021-2-1 18:05:41

qq2222081387 发表于 2021-2-1 16:10
简单改一下就可以啊
(itoa int) 将整型数转换成字符串
(atoi string)将字符串转换成整型数

感谢大佬指点

楼下大佬直接给出了完整的方案

fengdedaan · 发表于 2021-3-3 10:15:20

学习学习，谢谢楼主

403181713 · 发表于 2021-5-31 12:44:17

学习学习,感谢分享

hh_lj007 · 发表于 2021-5-31 17:30:55

学习学习,感谢分享

sping0726 · 发表于 2023-3-23 01:25:08

这个可以，收下大神修改好的，谢谢。

sping0726 · 发表于 2023-4-7 00:12:21

本帖最后由 pxr201419 于 2021-2-1 16:57 编辑

(defun c:tt4 (/ *error* @dclfiled @dclfiledame @dclid ent errorsave k loop mod1 mod2 mod3 mod4

求大神帮忙修改成：字符串+序号+字符串+文字然后增加记忆功能，以免退出后要重新输入

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

[求助] 有没有大佬可以让这个批量递增前缀编号每次点击+1

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

点评