[求助]：复制+自动递增编号的lisp

timnis

有没有一个lisp是可以复制数字，并且复制完后的数字比前一数字自动递增呢？就是我复制的数字为3，复制后的数字是4，继续复制下一个的话，就是5。以前好像看到过，现在找不到了。晓东现在的搜索功能用不了！

2012淡然之马

见过单选递增的
没有见过复制递增的

wmg3721wlm

复制并加步长

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


(defun c:mcc()

(if (= bc nil)
(setq bc 1)
)

(setq entt  (ssget '((0 . "*TEXT"))))

(setq len (sslength entt))
(setq n 0 nn 0 nnn 0)
(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (acet-ss-drag-move entt pt1 "\n选择第二点:" "highlight" 1))
(setq ssxin (ssadd))


(while pt2
(setq n 0)

(repeat len
(setq ent (ssname entt n))
(command "copy" ent "" pt1 pt2)
(setq entxin (entlast))

(setq ssxin (ssadd entxin ssxin))
(setq n (1+ n))
)



(repeat len

(setq ent1 (ssname ssxin nn))
(setq dxf1 (entget ent1))          ;联合列表
(setq wenzizu (assoc 1 dxf1))     ;点对列表
(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 lll (substr wenzi 1 1))  ;判断第一个字符是什么


(cond



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(
(= lll "<")                                           ;
(progn                                                  ;
(setq b (+ shishu bc nnn))                                ;
(setq c (itoa b))                                       ;
                                                        ;
(setq d (strcat qianzhui c ">"))                        ;
                                                        ;
(setq e (cons 1 d))  
                                   ;
(setq dxf1 (subst e wenzizu dxf1))                       ;
(entmod dxf1)                                           ;
(princ)                                                 ;
)  ;end progn                                           ;
)  ;end first                                           ;
                                                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


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



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t                                                      ;
(progn                                                  ;
(setq b (+ shishu bc nnn))                                ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                            ;
(setq e (cons 1 d))
                                                        ;    ;此处为第二个判断                                                  ;
(setq dxf1 (subst e wenzizu dxf1))                       ;
(entmod dxf1)                                           ;
(princ)                                                 ;
)   ;end progn                                                    ;
)    ;end second                                                   ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




)  ;end cond

(setq nn (+ 1 nn))



)    ;end repeat
(setq nnn (+ bc nnn))
(setq pt2 (acet-ss-drag-move entt pt1 "\n选择第二点:" "highlight" 1))
); end while

(setq ssxin nil)
)    ;end defun

342293530

士大夫士大夫士大夫撒

acoff

一直用文字修改大师，功能挺全的

qq1254582201

马了，这个很好用，还有步长设置很给力哦。。。唯一缺点是只能在末尾增加，不能选择以那个字符为参照增加，总的来说是很棒的。。。

kmliro_2017

不错，谢谢分享！！！！！！