设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › 编程申请 › 求修改某段连续编号的LISP代码
12下一页
返回列表 发新帖
查看: 5200|回复: 15

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

[复制链接]
清风明月名字
发表于 2014-1-8 16:45:02 | 显示全部楼层 |阅读模式
10明经币
来源：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等类推。
当然上面举例是有前后缀的，我希望仅有前缀、仅有后缀或纯数值的也能成立

最佳答案

Atsai

查看完整内容

以楼主的说明为前提达到功能为目的，写的啰嗦，将就一下吧！
编程技术, 程序, 用户

相关帖子
回复

使用道具 举报

Atsai
发表于 2014-1-8 16:45:03 | 显示全部楼层
本帖最后由 Atsai 于 2014-1-9 00:25 编辑

以楼主的说明为前提达到功能为目的，写的啰嗦，将就一下吧！
  2. (defun c:bhxg (/ ts bs ns es cs ss)
  3.   (vl-load-com)
  4.   (setq os (getvar "osmode"))
  5.   (setvar "osmode" 0)
  6.   (setvar "cmdecho" 0)
  7.   (setq ts (getstring "\n请输入前缀:"))
  8.   (setq bs (getstring "\n请输入后缀:"))
  9.   (setq ns (getreal "\n请输入最小编号:"))
  10.   (setq es (getreal "\n请输入最大编号:"))
  11.   (setq cs (getreal "\n更改后最小编号:"))
  12.   (setq ss nil)
  13.   (setq ss (ssget '((0 . "*text"))))
  14.   (setq l (sslength ss))
  15.   (setq i 0)
  16.   (setq strlst '())
  17.   (repeat l
  18.     (setq ssn (ssname ss i))
  19.     (setq ssdata (entget ssn))
  20.     (setq str (cdr (assoc 1 ssdata)))
  21.     (setq Num_s-e nil)
  22.     (setq Num_s-e (GetNum str))
  23.     (setq strlst (append strlst
  24.                          (list (list ssn
  25.                                      (nth 0 Num_s-e)
  26.                                      (nth 1 Num_s-e)
  27.                                      (nth 2 Num_s-e)
  28.                                )
  29.                          )
  30.                  )
  31.     )
  32.     (setq i (1+ i))
  33.   )

  35.   ;;排序
  36.   (setq        strlst (vl-sort        strlst
  37.                         '(lambda (e1 e2)
  38.                            (< (nth 3 e1)
  39.                               (nth 3 e2)
  40.                            )
  41.                          )
  42.                )
  43.   )

  45.   ;;搜寻欲更改之数量
  46.   (setq i 0)
  47.   (setq j 0)
  48.   (setq k 0)
  49.   (repeat l
  50.     (if        (and (<= ns (nth 3 (nth i strlst)))
  51.              (<= (nth 3 (nth i strlst)) es)
  52.         )
  53.       (progn
  54.         (setq j i)
  55.         (setq k (1+ k))
  56.       )
  57.     )
  58.     (setq i (1+ i))
  59.   )
  60.   (setq j (+ (- j k) 1))

  62.   ;;修改文本内容
  63.   (setq i j)
  64.   (setq j 0)
  65.   (repeat k
  66.     (setq ssdata (entget (nth 0 (nth i strlst))))
  67.     (setq string (cdr (assoc 1 ssdata)))
  68.     (setq string_num (rtos (+ cs j) 2 0))
  69.     (setq string_new (strcat ts string_num bs))
  70.     (setq ssdata (subst (cons 1 string_new) (cons 1 string) ssdata))
  71.     (entmod ssdata)
  72.     (setq i (1+ i))
  73.     (setq j (1+ j))
  74.   )
  75.   (setvar "osmode" os)
  76.   (princ)
  77. )

  79. (defun GetNum (str / i j k l tmp)
  80.   (setq l (strlen str))
  81.   (setq tmp (vl-string->list str))
  82.   (setq i 0)
  83.   (setq k 0)
  84.   (repeat l
  85.     (if        (and (<= 48 (nth i tmp)) (<= (nth i tmp) 57))
  86.       (progn
  87.         (setq j (1+ i))
  88.         (setq k (1+ k))
  89.       )
  90.     )
  91.     (setq i (1+ i))
  92.   )
  93.   (setq j (+ (- j k) 1))
  94.   (setq lst (list j k (atoi (substr str j k))))
  95. )
回复

使用道具 举报

清风明月名字
 楼主| 发表于 2014-1-9 08:06:19 | 显示全部楼层
Atsai 发表于 2014-1-9 00:18
以楼主的说明为前提达到功能为目的，写的啰嗦，将就一下吧！

我试了，如果不改前后缀的话，是成功的。如果楼主能增加改前后缀的部分就完全符合要求。
回复

使用道具 举报

Atsai
发表于 2014-1-9 08:14:54 | 显示全部楼层
楼主， 前、后缀可以不输入哦！
回复

使用道具 举报

清风明月名字
 楼主| 发表于 2014-1-9 08:23:25 | 显示全部楼层
本帖最后由 清风明月名字 于 2014-1-9 08:24 编辑
Atsai 发表于 2014-1-9 00:18
以楼主的说明为前提达到功能为目的，写的啰嗦，将就一下吧！

在你的基础上我增加了改变前后缀的部分，向你致谢！
(defun c:qq (/ ts bs ns es cs ss)
;;;来源：2楼 求修改某段连续编号的LISP代码-编程申请-CAD论坛-明经CAD社区-编程技术,程序,用户 - Powered by Discuz!
;;;http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid624377

  (vl-load-com)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq ts (getstring "\n请输入前缀:"))
  (setq bs (getstring "\n请输入后缀:"))

  (IF (NOT (setq 新前缀 (getstring "\n请输入新的前缀:")))
          (setq 新前缀 ts)
  )
  (IF (NOT (setq 新后缀 (getstring "\n请输入新的后缀:")))
          (setq 新后缀 ts)
  )
  (setq ns (getreal "\n请输入最小编号:"))
  (setq es (getreal "\n请输入最大编号:"))
  (setq cs (getreal "\n更改后最小编号:"))
  (setq ss nil)
  (setq ss (ssget '((0 . "*text"))))
  (setq l (sslength ss))
  (setq i 0)
  (setq strlst '())
  (repeat l
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq str (cdr (assoc 1 ssdata)))
    (setq Num_s-e nil)
    (setq Num_s-e (GetNum str))
    (setq strlst (append strlst
                         (list (list ssn
                                     (nth 0 Num_s-e)
                                     (nth 1 Num_s-e)
                                     (nth 2 Num_s-e)
                               )
                         )
                 )
    )
    (setq i (1+ i))
  )

  ;;排序
  (setq        strlst (vl-sort        strlst
                        '(lambda (e1 e2)
                           (< (nth 3 e1)
                              (nth 3 e2)
                           )
                         )
               )
  )

  ;;搜寻欲更改之数量
  (setq i 0)
  (setq j 0)
  (setq k 0)
  (repeat l
    (if        (and (<= ns (nth 3 (nth i strlst)))
             (<= (nth 3 (nth i strlst)) es)
        )
      (progn
        (setq j i)
        (setq k (1+ k))
      )
    )
    (setq i (1+ i))
  )
  (setq j (+ (- j k) 1))

  ;;修改文本内容
  (setq i j)
  (setq j 0)
  (repeat k
    (setq ssdata (entget (nth 0 (nth i strlst))))
    (setq string (cdr (assoc 1 ssdata)))
    (setq string_num (rtos (+ cs j) 2 0))
    (setq string_new (strcat 新前缀 string_num 新后缀))
    (setq ssdata (subst (cons 1 string_new) (cons 1 string) ssdata))
    (entmod ssdata)
    (setq i (1+ i))
    (setq j (1+ j))
  )
  (setvar "osmode" os)
  (princ)
)

(defun GetNum (str / i j k l tmp)
  (setq l (strlen str))
  (setq tmp (vl-string->list str))
  (setq i 0)
  (setq k 0)
  (repeat l
    (if        (and (<= 48 (nth i tmp)) (<= (nth i tmp) 57))
      (progn
        (setq j (1+ i))
        (setq k (1+ k))
      )
    )
    (setq i (1+ i))
  )
  (setq j (+ (- j k) 1))
  (setq lst (list j k (atoi (substr str j k))))
)
回复

使用道具 举报

Atsai
发表于 2014-1-9 08:32:34 | 显示全部楼层
贪财贪财，收下了。
回复

使用道具 举报

Atsai
发表于 2014-1-9 09:47:01 | 显示全部楼层
本帖最后由 Atsai 于 2014-1-9 10:10 编辑

楼主，其实二楼的LISP里的
输入前缀、后缀的意思是，输入新的前、后缀，若不要输入，则删除前、后缀。

可能楼主误会了所以增加了新的前、后缀的输入。
目前的方式是直接由编号去筛选出要修改的文字，
楼主要的是否为：
条件一：由前后缀去选出文字
条件二：由条件一的选集中再依编号区间去修改
如果是这样的话，可能还要加判断。

点评

清风明月名字
对啊，你说的正是我的意思  发表于 2014-1-9 18:51
回复

使用道具 举报

Atsai
发表于 2014-1-9 12:16:00 | 显示全部楼层
下面的代码是依照输入的前缀、及后缀选择后再依编号区间去修改编号。
楼主测试看看会不会更贴近您的需求。
  2. (defun c:bhxg (/ cts cbs ts bs ns es cts cs ss)
  3.   (vl-load-com)
  4.   (setq os (getvar "osmode"))
  5.   (setvar "osmode" 0)
  6.   (setvar "cmdecho" 0)
  7.   (setq        cts nil
  8.         cbs nil
  9.         ts  nil
  10.         bs  nil
  11.         ns  nil
  12.         es  nil
  13.         cs  nil
  14.   )
  15.   (setq cts (getstring "\n请输入搜寻前缀:"))
  16.   (setq cbs (getstring "\n请输入搜寻后缀:"))
  17.   (setq ts (getstring "\n请输入新前缀:"))
  18.   (setq bs (getstring "\n请输入新后缀:"))
  19.   (setq ns (getreal "\n请输入最小编号:"))
  20.   (setq es (getreal "\n请输入最大编号:"))
  21.   (setq cs (getreal "\n更改后最小编号:"))
  22.   (setq ss nil)
  23.   (cond
  24.     ((and (= cts "") (= cbs ""))
  25.      (setq ss (ssget '((0 . "*text") (1 . "~*[~0-9]*"))))
  26.     )
  27.     ((and (/= cts "") (= cbs ""))
  28.      (setq
  29.        ss (ssget
  30.             (list '(0 . "*text") (cons 1 (strcat cts "[0-9]*")))
  31.           )
  32.      )
  33.     )
  34.     ((and (= cts "") (/= cbs ""))
  35.      (setq
  36.        ss (ssget
  37.             (list '(0 . "*text") (cons 1 (strcat "*[0-9]" cbs)))
  38.           )
  39.      )
  40.     )
  41.     ((and (/= cts "") (/= cbs ""))
  42.      (setq
  43.        ss
  44.         (ssget
  45.           (list        '(-4 . "<AND")
  46.                 '(0 . "*text")
  47.                 (cons 1 (strcat cts "[0-9]*"))
  48.                 (cons 1 (strcat "*[0-9]" cbs))
  49.                 '(-4 . "AND>")
  50.           )
  51.         )
  52.      )
  53.     )
  54.   )

  56.   (setq l (sslength ss))
  57.   (setq i 0)
  58.   (setq strlst '())
  59.   (repeat l
  60.     (setq ssn (ssname ss i))
  61.     (setq ssdata (entget ssn))
  62.     (setq str (cdr (assoc 1 ssdata)))
  63.     (setq Num_s-e nil)
  64.     (setq Num_s-e (GetNum str))
  65.     (setq strlst (append strlst
  66.                          (list (list ssn
  67.                                      (nth 0 Num_s-e)
  68.                                      (nth 1 Num_s-e)
  69.                                      (nth 2 Num_s-e)
  70.                                )
  71.                          )
  72.                  )
  73.     )
  74.     (setq i (1+ i))
  75.   )

  77.   ;;排序
  78.   (setq        strlst (vl-sort        strlst
  79.                         '(lambda (e1 e2)
  80.                            (< (nth 3 e1)
  81.                               (nth 3 e2)
  82.                            )
  83.                          )
  84.                )
  85.   )

  87.   ;;搜寻欲更改之数量
  88.   (setq i 0)
  89.   (setq j 0)
  90.   (setq k 0)
  91.   (repeat l
  92.     (if        (and (<= ns (nth 3 (nth i strlst)))
  93.              (<= (nth 3 (nth i strlst)) es)
  94.         )
  95.       (progn
  96.         (setq j i)
  97.         (setq k (1+ k))
  98.       )
  99.     )
  100.     (setq i (1+ i))
  101.   )
  102.   (setq j (+ (- j k) 1))

  104.   ;;修改文本内容
  105.   (setq i j)
  106.   (setq j 0)
  107.   (repeat k
  108.     (setq ssdata (entget (nth 0 (nth i strlst))))
  109.     (setq string (cdr (assoc 1 ssdata)))
  110.     (setq string_num (rtos (+ cs j) 2 0))
  111.     (setq string_new (strcat ts string_num bs))
  112.     (setq ssdata (subst (cons 1 string_new) (cons 1 string) ssdata))
  113.     (entmod ssdata)
  114.     (setq i (1+ i))
  115.     (setq j (1+ j))
  116.   )
  117.   (setvar "osmode" os)
  118.   (princ)
  119. )

  121. (defun GetNum (str / i j k l tmp)
  122.   (setq l (strlen str))
  123.   (setq tmp (vl-string->list str))
  124.   (setq i 0)
  125.   (setq k 0)
  126.   (repeat l
  127.     (if        (and (<= 48 (nth i tmp)) (<= (nth i tmp) 57))
  128.       (progn
  129.         (setq j (1+ i))
  130.         (setq k (1+ k))
  131.       )
  132.     )
  133.     (setq i (1+ i))
  134.   )
  135.   (setq j (+ (- j k) 1))
  136.   (setq lst (list j k (atoi (substr str j k))))
  137. )

点评

清风明月名字
看了7楼我明白了，8楼才是我真正要的代码  发表于 2014-1-9 18:52
清风明月名字
我不是改好了，在5楼吗，和那个有什么不同？  发表于 2014-1-9 18:49
清风明月名字
我不是改好了，在3楼吗，和那个有什么不同？  发表于 2014-1-9 18:48
回复

使用道具 举报

清风明月名字
 楼主| 发表于 2014-1-9 19:10:32 | 显示全部楼层
Atsai 发表于 2014-1-9 12:16
下面的代码是依照输入的前缀、及后缀选择后再依编号区间去修改编号。
楼主测试看看会不会更贴近您的需求。

还要请作者将它改为不分大小写的为好。还有一个要求，不知道是否能满足我，就是我可以限定编号为固定位数，即我可以定它为固定三位，006、007....。我也可以定它为固定4位，0006、0007.....。
请你帮我改造一下，好吗、
回复

使用道具 举报

Atsai
发表于 2014-1-9 23:11:41 | 显示全部楼层
清风明月名字 发表于 2014-1-9 19:10
还要请作者将它改为不分大小写的为好。还有一个要求，不知道是否能满足我，就是我可以限定编号为固定位数 ...

依照楼主的需求改写了，下面的代码测试看看吧！
  2. ;;;若同时不搜寻前缀及后缀则搜寻纯数字！

  4. (defun c:bhxg (/ cts cbs ts bs ns es cts cs dm ss)
  5.   (vl-load-com)
  6.   (setq os (getvar "osmode"))
  7.   (setvar "osmode" 0)
  8.   (setvar "cmdecho" 0)
  9.   (setq        cts nil
  10.         cbs nil
  11.         ts  nil
  12.         bs  nil
  13.         ns  nil
  14.         es  nil
  15.         cs  nil
  16.         dm  nil
  17.   )
  18.   (setq cts (getstring "\n请输入搜寻前缀<空白代表此条件不搜寻>:"))
  19.   (setq cbs (getstring "\n请输入搜寻后缀<空白代表此条件不搜寻>:"))
  20.   (setq ts (strcase (getstring "\n请输入新前缀:")))
  21.   (setq bs (strcase (getstring "\n请输入新后缀:")))
  22.   (setq ns (getreal "\n请输入搜寻最小编号:"))
  23.   (setq es (getreal "\n请输入搜寻最大编号:"))
  24.   (setq cs (getstring "\n更改后最小编号<1>:"))
  25.   (if (= cs "")
  26.     (setq cs "1")
  27.   )
  28.   (setq        dm (getreal
  29.              (strcat "\n编号位数,预设<" (rtos (strlen cs) 2 0) ">:")
  30.            )
  31.   )
  32.   (if (= dm nil)
  33.     (setq dm (strlen cs))
  34.   )
  35.   (setq cs (atoi cs))

  37.   (setq ss nil)
  38.   (if (and (= cts "") (= cbs ""))
  39.     (setq ss (ssget '((0 . "*text") (1 . "~*[~0-9]*"))))
  40.     (setq ss (ssget '((0 . "*text"))))
  41.   )

  43.   (if (/= ss nil)
  44.     (progn
  45.       (setq l (sslength ss))
  46.       (setq i 0)
  47.       (setq strlst '())
  48.       (repeat l
  49.         (setq ssn (ssname ss i))
  50.         (setq ssdata (entget ssn))
  51.         (setq str (cdr (assoc 1 ssdata)))
  52.         (setq Num_s-e nil)
  53.         (setq Num_s-e (GetNum str))
  54.         (setq str_s (substr str
  55.                             1
  56.                             (- (strlen str) (+ (- (strlen str) (nth 0 Num_s-e)) 1))
  57.                     )
  58.         )
  59.         (setq str_e (substr str
  60.                             (+ (nth 0 Num_s-e) (nth 1 Num_s-e))
  61.                             (- (strlen str) (- (+ (nth 0 Num_s-e) (nth 1 Num_s-e)) 1))
  62.                     )
  63.         )

  65.         (cond ((and (/= cts "") (/= cbs ""))
  66.                (if (and        (= (strcase str_s) (strcase cts))
  67.                         (= (strcase str_e) (strcase cbs))
  68.                    )
  69.                  (setq strlst (append strlst
  70.                                       (list (list ssn
  71.                                                   (strlen str)
  72.                                                   (nth 0 Num_s-e)
  73.                                                   (nth 1 Num_s-e)
  74.                                                   (nth 2 Num_s-e)
  75.                                             )
  76.                                       )
  77.                               )
  78.                  )
  79.                )
  80.               )
  81.               ((and (/= cts "") (= cbs ""))
  82.                (if (= (strcase str_s) (strcase cts))
  83.                  (setq strlst (append strlst
  84.                                       (list (list ssn
  85.                                                   (strlen str)
  86.                                                   (nth 0 Num_s-e)
  87.                                                   (nth 1 Num_s-e)
  88.                                                   (nth 2 Num_s-e)
  89.                                             )
  90.                                       )
  91.                               )
  92.                  )
  93.                )
  94.               )
  95.               ((and (= cts "") (/= cbs ""))
  96.                (if (= (strcase str_e) (strcase cbs))
  97.                  (setq strlst (append strlst
  98.                                       (list (list ssn
  99.                                                   (strlen str)
  100.                                                   (nth 0 Num_s-e)
  101.                                                   (nth 1 Num_s-e)
  102.                                                   (nth 2 Num_s-e)
  103.                                             )
  104.                                       )
  105.                               )
  106.                  )
  107.                )
  108.               )
  109.               (t
  110.                (setq strlst (append strlst
  111.                                     (list (list        ssn
  112.                                                 (strlen str)
  113.                                                 (nth 0 Num_s-e)
  114.                                                 (nth 1 Num_s-e)
  115.                                                 (nth 2 Num_s-e)
  116.                                           )
  117.                                     )
  118.                             )
  119.                )
  120.               )
  121.         )
  122.         (setq i (1+ i))
  123.       )

  125.       (if (/= strlst nil)
  126.         (progn
  127.           ;;排序
  128.           (setq        strlst (vl-sort        strlst
  129.                                 '(lambda (e1 e2)
  130.                                    (< (nth 4 e1)
  131.                                       (nth 4 e2)
  132.                                    )
  133.                                  )
  134.                        )
  135.           )

  137.           ;;搜寻欲更改之数量
  138.           (setq i 0)
  139.           (setq j 0)
  140.           (setq k 0)
  141.           (setq l (length strlst))
  142.           (repeat l
  143.             (if        (and (<= ns (nth 4 (nth i strlst)))
  144.                      (<= (nth 4 (nth i strlst)) es)
  145.                 )
  146.               (progn
  147.                 (setq j i)
  148.                 (setq k (1+ k))
  149.               )
  150.             )
  151.             (setq i (1+ i))
  152.           )
  153.           (setq j (+ (- j k) 1))

  155.           ;;修改文本内容
  156.           (setq i j)
  157.           (setq j 0)
  158.           (repeat k
  159.             (setq ssdata (entget (nth 0 (nth i strlst))))
  160.             (setq string (cdr (assoc 1 ssdata)))
  161.             (setq string_num (rtos (+ cs j) 2 0))
  162.             (setq string_num (PutNum string_num dm))
  163.             (setq string_new (strcat ts string_num bs))
  164.             (setq ssdata (subst (cons 1 string_new) (cons 1 string) ssdata))
  165.             (entmod ssdata)
  166.             (setq i (1+ i))
  167.             (setq j (1+ j))
  168.           )
  169.         )
  170.         (princ "\n=====无符合条件编号!!!======")
  171.       )
  172.     )
  173.     (princ "\n=====无符合条件编号!!!======")
  174.   )
  175.   (setvar "osmode" os)
  176.   (princ)
  177. )

  179. (defun GetNum (str / i j k l tmp)
  180.   (setq l (strlen str))
  181.   (setq tmp (vl-string->list str))
  182.   (setq i 0)
  183.   (setq k 0)
  184.   (repeat l
  185.     (if        (and (<= 48 (nth i tmp)) (<= (nth i tmp) 57))
  186.       (progn
  187.         (setq j (1+ i))
  188.         (setq k (1+ k))
  189.       )
  190.     )
  191.     (setq i (1+ i))
  192.   )
  193.   (setq j (+ (- j k) 1))
  194.   (setq lst (list j k (atoi (substr str j k))))
  195. )

  197. (defun PutNum (k a / tmp)
  198.   (setq tmp (strlen k))
  199.   (cond        ((= (- a tmp) 0)
  200.          (setq k k)
  201.         )
  202.         ((= (- a tmp) 1)
  203.          (setq k (strcat "0" k))
  204.         )
  205.         ((= (- a tmp) 2)
  206.          (setq k (strcat "00" k))
  207.         )
  208.         ((= (- a tmp) 3)
  209.          (setq k (strcat "000" k))
  210.         )
  211.         ((= (- a tmp) 4)
  212.          (setq k (strcat "0000" k))
  213.         )
  214.         ((= (- a tmp) 5)
  215.          (setq k (strcat "00000" k))
  216.         )
  217.   )
  218. )

评分

参与人数 1明经币 +1 金钱 +5 收起 理由
清风明月名字 + 1 + 5 赞一个!能够坚持满足对方的需求。

查看全部评分

回复

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-25 07:21 , Processed in 0.221982 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表