编号批量复制递增 问题 (附图), 请高手来帮忙解决...........谢谢喽

kunlongmann

如题    upload=jpg]UploadFile/2008-1/20081110101948753.jpg,viewFile.asp?ID=39366[/upload]

kunlongmann

carrot1983

有规律就好写，只是楼主一楼的图片跟二楼的一样吗？

yinzhun22

能帮忙编个选择以数字结尾的文本，可以统一加减某一数字，如AW1/W1,AW1-1,加减完AW1/W3,AW1-3

carrot1983

回4楼
给我一年前写的。。。当思路比较乱，现在重新可能会好些，但是功能是一样的。。。呵呵

3. (princ "\n>>>请输入dnd,选择多个数字文本!<<<")
4. (defun c:dnd (/       txt_add ss      slen    i       na      data
5.        txt     txt_len nub     k       txt_each       num
6.        num_len n       temp    txt0    n0      expt_num
7.        faq1    faq2    int
8.       )
9.   (setq int (getint "\n不考虑后缀字符的位数<0>:"))
10.   (if (= nil int)
11.     (setq int 0)
12.   ) ;_ end if
13.   (setq txt_add (getint "\n请输入增值(默认为1):"))
14.   (if (= nil txt_add)
15.     (setq txt_add 1)
16.   ) ;_ end if
17.   (while (setq ss (ssget '((0 . "*text"))))
18.     (setq slen (- (sslength ss) 1))
19.     (setq i 0)
20.     (while (<= i slen)
21.       (setq na (ssname ss i))
22.       (setq data (entget na))
23.       (setq txt (cdr (assoc '1 data)))
24.       (setq txt_len (strlen txt)) ;9
25.       (setq txt_cut (substr txt 1 (- txt_len int))) ;abc02
26.       (setq txt_len_cut (strlen txt_cut)) ;5
27.       (setq txt_43 (substr txt (- txt_len (1- int)) int)) ;(03)
28.       (setq nub "")
29.       (setq k txt_len_cut)
30.       (while (>= k 1)
31. (setq txt_each (substr txt_cut k 1))
32. (if (and (>= (ascii txt_each) 48) (<= (ascii txt_each) 57))
33.      ;取字串中"0~9"中的ascii字符txt_each.
34.    (progn
35.      (setq nub (strcat txt_each nub))
36.      (setq k (1- k))
37.    )    ;end progn
38.    (setq k 0)
39. )    ;end if
40.       )     ;end while
41.       (if (= nub "")
42. (progn
43.    (princ "\n末尾不是数字")
44.    (exit)
45. ) ;_ end progn
46.       ) ;_ end if
47.       (setq num (atoi nub))  ;nub="02" num=2
48.       (setq num_len (strlen nub)) ;2
49. ;;;以下是考虑数字串中的零的问题
50.       (setq n 1)
51.       (setq temp 0)
52.       (while (and (<= n num_len) (= temp 0))
53. (setq txt0 (atof (substr nub n 1)))
54. (if (/= txt0 0)
55.    (progn
56.      (setq n0 (1- n))
57.      (setq temp 1)
58.    ) ;_ end progn
59. ) ;_ end if
60. (setq n (1+ n))
61.       )     ;end while
62.       (setq expt_num (substr txt_cut 1 (+ n0 (- txt_len num_len int))))
63.       (setq faq1 (itoa (+ num txt_add)))
64.       (setq faq2 (strcat expt_num faq1 txt_43))
65.       (setq data (subst (cons 1 faq2) (assoc '1 data) data))
66.       (entmod data)
67.       (setq i (+ i 1))
68.     )     ;end while
69.   )     ;end while
70.   (prin1)
71. ) ;_ end defun

(princ "\n>>>请输入dnd,选择多个数字文本!<<<") (defun c:dnd (/       txt_add ss      slen    i       na      data        txt     txt_len nub     k       txt_each       num        num_len n       temp    txt0    n0      expt_num        faq1    faq2    int       )   (setq int (getint "\n不考虑后缀字符的位数<0>:"))   (if (= nil int)     (setq int 0)   ) ;_ end if   (setq txt_add (getint "\n请输入增值(默认为1):"))   (if (= nil txt_add)     (setq txt_add 1)   ) ;_ end if   (while (setq ss (ssget '((0 . "*text"))))     (setq slen (- (sslength ss) 1))     (setq i 0)     (while (<= i slen)       (setq na (ssname ss i))       (setq data (entget na))       (setq txt (cdr (assoc '1 data)))       (setq txt_len (strlen txt)) ;9       (setq txt_cut (substr txt 1 (- txt_len int))) ;abc02       (setq txt_len_cut (strlen txt_cut)) ;5       (setq txt_43 (substr txt (- txt_len (1- int)) int)) ;(03)       (setq nub "")       (setq k txt_len_cut)       (while (>= k 1) (setq txt_each (substr txt_cut k 1)) (if (and (>= (ascii txt_each) 48) (<= (ascii txt_each) 57))      ;取字串中"0~9"中的ascii字符txt_each.    (progn      (setq nub (strcat txt_each nub))      (setq k (1- k))    )    ;end progn    (setq k 0) )    ;end if       )     ;end while       (if (= nub "") (progn    (princ "\n末尾不是数字")    (exit) ) ;_ end progn       ) ;_ end if       (setq num (atoi nub))  ;nub="02" num=2       (setq num_len (strlen nub)) ;2 ;;;以下是考虑数字串中的零的问题       (setq n 1)       (setq temp 0)       (while (and (<= n num_len) (= temp 0)) (setq txt0 (atof (substr nub n 1))) (if (/= txt0 0)    (progn      (setq n0 (1- n))      (setq temp 1)    ) ;_ end progn ) ;_ end if (setq n (1+ n))       )     ;end while       (setq expt_num (substr txt_cut 1 (+ n0 (- txt_len num_len int))))       (setq faq1 (itoa (+ num txt_add)))       (setq faq2 (strcat expt_num faq1 txt_43))       (setq data (subst (cons 1 faq2) (assoc '1 data) data))       (entmod data)       (setq i (+ i 1))     )     ;end while   )     ;end while   (prin1) ) ;_ end defun

kunlongmann

     一楼跟二楼 是一样的照片, 只是第一次上载照片, 出了差错.

很高兴你回复我的问题 ,只是楼主 对我的要求 会错意了.

我希望程序的目的没有 楼主给的那样复杂, 只是很简单 的 数字 批量复制递增(如图),

麻烦 CARROT1983 楼主 再次帮看一下 ,    先谢谢喽 !!

kunlongmann

续 6 楼

还有  要加 前缀 跟 后缀.

phoenixdjq

我有一个，但是只能是单个的文字，不能复制很多个

因为只是自己用，没有整理过，很乱

(defun c:gf()
(setq bc (getint "\n 请输入步长:"))
)

(defun c:saa()
(prompt "\n 设置步长命令为:gf,初始步长为1")
(prompt "\n 请选择不需要更改的实体:")
(if (= bc nil)
(setq bc 1)
)
(setq ddjjqq (ssget))
(setq entt  (entsel "\n 请选择一个文字:"))
(setq ent (car entt))
;(setq pt1 (cadr entt))
(redraw ent 3)
(setq dxf (entget ent))          ;联合列表
(setq wenzizu (assoc 1 dxf))     ;点对列表
(setq wenzi (cdr wenzizu))       ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi))  ;翻译字符

(setq weizhi (vl-string-search "#" fanyihou))  ;找出#的位置

(setq qianzhui (substr wenzi 1 weizhi))   ;取出前缀
(setq shuzi (substr wenzi (+ weizhi 1)))   ;取出字符串形式的数字
(setq shishu (atoi shuzi))   ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1))  ;判断第一个字符是什么
;(setq llll (substr wenzi 4 1))  ;判断第四个字符是什么

(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<")                                           ;
(progn                                                  ;
(setq b (+ shishu bc n))                                ;
(setq c (itoa b))                                       ;
                                                        ;
(setq d (strcat qianzhui c ">"))                        ;
                                                        ;
(setq e (cons 1 d))                                     ;
(command "copy" ddjjqq "" pt1 pt2)           
(command "copy" ent "" pt1 pt2)
(setq ent1 (entget (entlast)))                          ;    ;此处为一个判断
(setq txtzh1 (assoc 1 ent1))                            ;
(setq ent1 (subst e txtzh1 ent1))                       ;
(entmod ent1)                                           ;
(princ)                                                 ;
)  ;end progn                                           ;
)  ;end first                                           ;
                                                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                                                             ;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t                                                      ;
(progn                                                  ;
(setq b (+ shishu bc n))                                ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                            ;
(setq e (cons 1 d))                                     ;
(command "copy" ddjjqq "" pt1 pt2) 
(command "copy" ent "" pt1 pt2)                     ;    ;此处为第二个判断
(setq ent1 (entget (entlast)))                          ;
(setq txtzh1 (assoc 1 ent1))                            ;
(setq ent1 (subst e txtzh1 ent1))                       ;
(entmod ent1)                                           ;
(princ)                                                 ;
)                                                       ;
)                                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

)  ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))     ;pt1决定有没有显示线

)    ;end while
)    ;end defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;                   以下为输入单个字的命令                    ;;;;;;;;;;;;;;;;

(defun c:sa()

(prompt "\n 设置步长命令为:gf,初始步长为1")
(if (= bc nil)
(setq bc 1)
)

(setq enty (entsel "\n 请选择一个文字:"))
(setq ent (car enty))
;(setq pt1 (cadr enty))

(redraw ent 3)
(setq dxf (entget ent))          ;联合列表
(setq wenzizu (assoc 1 dxf))     ;点对列表
(setq wenzi (cdr wenzizu))       ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi))  ;翻译字符

(setq weizhi (vl-string-search "#" fanyihou))  ;找出#的位置

(setq qianzhui (substr wenzi 1 weizhi))   ;取出前缀
(setq shuzi (substr wenzi (+ weizhi 1)))   ;取出字符串形式的数字
(setq shishu (atoi shuzi))   ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1))  ;判断第一个字符是什么

;(setq llll (substr wenzi 4 1))  ;判断第四个字符是什么
(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<")                                           ;
(progn                                                  ;
(setq b (+ shishu bc n))                                ;
(setq c (itoa b))                                       ;
                                                        ;
(setq d (strcat qianzhui c ">"))                        ;
                                                        ;
(setq e (cons 1 d))                                     ;
(command "copy"  ent "" pt1 pt2)                        ;
(setq ent1 (entget (entlast)))                          ;    ;此处为一个判断
(setq txtzh1 (assoc 1 ent1))                            ;
(setq ent1 (subst e txtzh1 ent1))                       ;
(entmod ent1)                                           ;
(princ)                                                 ;
)  ;end progn                                           ;
)  ;end first                                           ;
                                                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                                                             ;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t                                                      ;
(progn                                                  ;
(setq b (+ shishu bc n))                                ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                            ;
(setq e (cons 1 d))                                     ;
(command "copy"  ent "" pt1 pt2)                      ;    ;此处为第二个判断
(setq ent1 (entget (entlast)))                          ;
(setq txtzh1 (assoc 1 ent1))                            ;
(setq ent1 (subst e txtzh1 ent1))                       ;
(entmod ent1)                                           ;
(princ)                                                 ;
)                                                       ;
)                                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

)  ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))     ;pt1决定有没有显示线

)    ;end while
(princ)
)    ;end defun

carrot1983

我不是楼主，哈哈。。。一楼才是楼主。。。

carrot1983

把5楼的代码稍加修改，没有用到vl的函数，所以可以在任意一个CAD版本上使用。。呵呵
但是我还是觉得写的不好，有时间再重写...

4. (princ "\n>>>请输入dnd,选择多个数字文本! carrot1983 2008-1-13<<<")
5. (defun c:dnd (/       txt_add ss      slen    i       na      data
6.        txt     txt_len nub     k       txt_each       num
7.        num_len n       temp    txt0    n0      expt_num
8.        faq1    faq2    int
9.       )
10.   (setq int (getint "\n不考虑后缀字符的位数<0>:"))
11.   (if (= nil int)
12.     (setq int 0)
13.   ) ;_ end if
14.   (setq txt_add (getint "\n请输入增值(默认为1):"))
15.   (if (= nil txt_add)
16.     (setq txt_add 1)
17.   ) ;_ end if
18.   (if (setq ss (ssget '((0 . "*text"))))
19.     (progn
20.       (command "._copy" ss "" '(0 0 0) '(0 0 0))
21.       (setq ss (ssget "p"))
22.       (princ "指定基点")
23.       (command "._move" ss"" pause)
24.       (setq slen (- (sslength ss) 1))
25.       (setq i 0)
26.       (while (<= i slen)
27. (setq na (ssname ss i))
28. (setq data (entget na))
29. (setq txt (cdr (assoc '1 data)))
30. (setq v10 (cdr (assoc '10 data)))
31. (setq txt_len (strlen txt)) ;9
32. (setq txt_cut (substr txt 1 (- txt_len int))) ;abc02
33. (setq txt_len_cut (strlen txt_cut)) ;5
34. (setq txt_43 (substr txt (- txt_len (1- int)) int)) ;(03)
35. (setq nub "")
36. (setq k txt_len_cut)
37. (while (>= k 1)
38.    (setq txt_each (substr txt_cut k 1))
39.    (if (and (>= (ascii txt_each) 48) (<= (ascii txt_each) 57))
40.      ;取字串中"0~9"中的ascii字符txt_each.
41.      (progn
42.        (setq nub (strcat txt_each nub))
43.        (setq k (1- k))
44.      )    ;end progn
45.      (setq k 0)
46.    )    ;end if
47. )    ;end while
48. (if (= nub "")
49.    (progn
50.      (princ "\n末尾不是数字")
51.      (exit)
52.    ) ;_ end progn
53. ) ;_ end if
54. (setq num (atoi nub))  ;nub="02" num=2
55. (setq num_len (strlen nub)) ;2
56. ;;;以下是考虑数字串中的零的问题
57. (setq n 1)
58. (setq temp 0)
59. (while (and (<= n num_len) (= temp 0))
60.    (setq txt0 (atof (substr nub n 1)))
61.    (if (/= txt0 0)
62.      (progn
63.        (setq n0 (1- n))
64.        (setq temp 1)
65.      ) ;_ end progn
66.    ) ;_ end if
67.    (setq n (1+ n))
68. )    ;end while
69. (setq
70.    expt_num (substr txt_cut 1 (+ n0 (- txt_len num_len int)))
71. )
72. (setq faq1 (itoa (+ num txt_add)))
73. (setq faq2 (strcat expt_num faq1 txt_43))
74. (setq data (subst (cons 1 faq2) (assoc '1 data) data))
75. (entmod data)
76. (setq i (+ i 1))
77.       )     ;end while
78.     )
79.   )
80.   (prin1)
81. ) ;_ end defun

(princ "\n>>>请输入dnd,选择多个数字文本! carrot1983 2008-1-13<<<") (defun c:dnd (/       txt_add ss      slen    i       na      data        txt     txt_len nub     k       txt_each       num        num_len n       temp    txt0    n0      expt_num        faq1    faq2    int       )   (setq int (getint "\n不考虑后缀字符的位数<0>:"))   (if (= nil int)     (setq int 0)   ) ;_ end if   (setq txt_add (getint "\n请输入增值(默认为1):"))   (if (= nil txt_add)     (setq txt_add 1)   ) ;_ end if   (if (setq ss (ssget '((0 . "*text"))))     (progn       (command "._copy" ss "" '(0 0 0) '(0 0 0))       (setq ss (ssget "p"))       (princ "指定基点")       (command "._move" ss"" pause)       (setq slen (- (sslength ss) 1))       (setq i 0)       (while (<= i slen) (setq na (ssname ss i)) (setq data (entget na)) (setq txt (cdr (assoc '1 data))) (setq v10 (cdr (assoc '10 data))) (setq txt_len (strlen txt)) ;9 (setq txt_cut (substr txt 1 (- txt_len int))) ;abc02 (setq txt_len_cut (strlen txt_cut)) ;5 (setq txt_43 (substr txt (- txt_len (1- int)) int)) ;(03) (setq nub "") (setq k txt_len_cut) (while (>= k 1)    (setq txt_each (substr txt_cut k 1))    (if (and (>= (ascii txt_each) 48) (<= (ascii txt_each) 57))      ;取字串中"0~9"中的ascii字符txt_each.      (progn        (setq nub (strcat txt_each nub))        (setq k (1- k))      )    ;end progn      (setq k 0)    )    ;end if )    ;end while (if (= nub "")    (progn      (princ "\n末尾不是数字")      (exit)    ) ;_ end progn ) ;_ end if (setq num (atoi nub))  ;nub="02" num=2 (setq num_len (strlen nub)) ;2 ;;;以下是考虑数字串中的零的问题 (setq n 1) (setq temp 0) (while (and (<= n num_len) (= temp 0))    (setq txt0 (atof (substr nub n 1)))    (if (/= txt0 0)      (progn        (setq n0 (1- n))        (setq temp 1)      ) ;_ end progn    ) ;_ end if    (setq n (1+ n)) )    ;end while (setq    expt_num (substr txt_cut 1 (+ n0 (- txt_len num_len int))) ) (setq faq1 (itoa (+ num txt_add))) (setq faq2 (strcat expt_num faq1 txt_43)) (setq data (subst (cons 1 faq2) (assoc '1 data) data)) (entmod data) (setq i (+ i 1))       )     ;end while     )   )   (prin1) ) ;_ end defun