[下载]：绝好的数字按要求递增的程序，制表爽极了！

ntwzym

非常感谢

ntwzym

非常感谢

hungbeetle

倒是来下了先看看撒

ynjzlzd

不知怎么了,今天都下载不了啊.

juan520

不错
这样很好用
实用
方便
我感谢楼主的贡献！！！

KENSHIN709

多谢了，小弟收下！！

XUFULAI

太好了，我政需要

堕落王

这网站应该改善一下速度了

一天到晚，我一个什么都没有下成功，郁闷啊
全部是下载失败

wjh570

好东西

phoenixdjq

我也发一个
免费的


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



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;子程序  (中间有横杠，取后面的数字更改)

(defun ddjq()
(setq shuzi (substr wenzi (+ 2 gang)))
(setq shishu (atoi shuzi))   ;把数字改为实数
(setq qianzhui (substr wenzi 1 (+ 1 gang)))
(if (= lll "<")
(progn
(setq b (+ shishu bc nn))                               ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c ">"))                        ;
(setq e (cons 1 d))                                     ;
(setq ddd (subst e wenzizu ddd))                        ;
(entmod ddd)                                            ;
(princ)                                                 ;
)  ;end progn                                           ;

(progn
(setq b (+ shishu bc nn))                               ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                        ;
(setq e (cons 1 d))                                     ;
(setq ddd (subst e wenzizu ddd))                        ;
(entmod ddd)                                            ;
(princ)                                                 ;
)  ;end progn                                           ;


) ;end if
)  ;end defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:gg()
(prompt "\n 设置步长命令为:gf,初始步长为1")
(if (= bc nil)
(setq bc 1)
)
(setq a (ssget))
(setq len (sslength a))   ;取得对象的个数
(setq n 0)
(setq nn 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname a n))    ;取得实体的名称
(setq ddd (entget ent))      ;得到实体的联合列表

(setq djq (cdr (assoc 0 ddd)))

(if (or (= djq "MTEXT") (= djq "TEXT"))

(dkdk)

)        ;end if

(setq n (+ 1 n))

)       ;end repeat

(setq nn (+ nn bc))
(command "undo" "end")
)




;;;子程序

(defun dkdk()
(setq wenzizu (assoc 1 ddd))         ;取出字的内容(群码为1)
(setq wenzi (cdr wenzizu))         ;文字
(setq gang (vl-string-search "-" wenzi))

(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))  ;判断第一个字符是什么

(if (= gang nil)
(progn


(cond



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


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



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t                                                      ;
(progn                                                  ;
(setq b (+ shishu bc nn))                               ;
(setq c (itoa b))                                       ;
(setq d (strcat qianzhui c))                            ;
(setq e (cons 1 d))                                     ;
(setq ddd (subst e wenzizu ddd))                        ;
(entmod ddd)                                            ;
(princ)                                                 ;
)    ;end progn                                         ;
)                                                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


)  ;end cond
)   ;end progn
(ddjq)
)   ;end if

)    ;end defun

大众银狐

怎么还要爱心币？？？？？

Michael001

怎么看代码？？