[求助]：批量序号自动加1

raobinhsh

一个图形中的某个图层有很多带属性的块，同一个属性块有两个属性名，属性名分别为LX（类型），BH（编号），LX的值只有几个，如：M，J，W，Y，T，D等，而BH的值有很多，如LX值为W时，其编号可以为，W1，W2，W3，，，，，，，W500，，，，W10000。等，要求输入一个命令，能把图中所有属性值LX相同（例如都是W）而BH不同，的值按设计人员要求，在某个值（如W25）以后的其他值自动将其中的数字部分加一，（即W26改成W27，改成W28，，，，，W500改成W501，，，）等，要改的属性块入图

raobinhsh

一个图形文件中，某个图层有W1，W2，，，，，，W500，，，，，W1000，，，等（也可能为M1，M2，，，，M500，，，，，，M1000，，，），要求输入一个命令，选择一个编号（例如W401）。则要求W401以后其他编号的数字部分自动加1，即W402改成W403，W403改成W404，，，，，，W702改成W703

eachy

http://eachy.ys168.com

attAddOne.vlx 属性号加 1

raobinhsh

eachy,你搞错了，我的属性块里面有两个属性值，一个表示管网类型（属性标志LX），一个表示管网编号（属性标志BH），我要求能群选，能自动判断相同管网类型的管道（即属性标志LX相同）序号在某个值以后的（即某个编号以后，例如W5以后的就是W6，W7，，，）属性块其表示管网类型（属性标志LX）的属性值不变，而表示检查井编号的属性值BH在指定的编号以后的编号自动加1，最好把我上传的图纸用来测试

eachy

加哪个点哪个属性

raobinhsh

eachy已经搞定了，各位不要费心了，谢谢

raobinhsh

有没有可以批量减一的命令呢？

ji3499222

能否说明一下使用方法,谢过!!!!

phoenixdjq

我也有一个程序，gf可以输入加或减的数值。默认为1
因为是我自己专用的，里面有一些特别的地方，也没有做特别的整理，但是程序能达到这个要求
;;;子程序
(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

围棋

我的方法：尽量不编程，用CAD的命令+外挂。
如w500~w900,先查找替换W——7777，得7777500~7777900，再运行外挂“CAD计算器”，把7777500~7777900统一加1；完成后再查找替换7777——W。
CAD计算器论坛中有。
当然，要注意W有很多个、很多类别，要分开处理。

raobinhsh

是个好办法，不过，在一大堆混乱的数据中，你怎么去选择这个范围的数据，经过这么多工序不是很麻烦吗

zlzlzlzl

我也想要个批量减值的`

金鹅起飞

phoenixdjq，您的源码不能用呦，我试了一下，错误。不过，还是谢谢您的分享！

金鹅起飞

phoenixdjq，您的源码不能用呦，我试了一下，错误。不过，还是谢谢您的分享！

1292388936

新手，没看明白。