请问有没有车位连续区间编号的插件？已知各组车位数，需要编成1-11,然后下一组12-2...

上官文卿

请问有没有车位连续区间编号的插件？已知各组车位数，需要编成1-11,然后下一组12-25这样的？   

谢谢各位大神~

373294296

具体点    上图？？？   详细讲你的 目的？？？  你说的编号就没1-11 下一组12-25 ， 就没规律？？？

上官文卿

解释一下目的:已知各组车位数 并且已经标好各组的数字 。  想让数字相加以后编号连续 并且是一个区间。 谢谢各位~

上官文卿

373294296 发表于 2015-8-6 11:30
具体点    上图？？？   详细讲你的 目的？？？  你说的编号就没1-11 下一组12-25 ， 就没规律？？？

你好~~具体看一下3楼   万分感谢！

edata

1. (defun c:tt(/ ss o l en elist s n s2)
   
2.   (if(setq ss(ssget '((0 . "*text"))))
   
3.     (progn
   
4.       (setq i -1 k 1)
   
5.       (while(setq en(ssname ss (setq i(1+ i))))
   
6.         (setq elist(entget en))
   
7.         (setq s(cdr(assoc 1 elist)))
   
8.         (setq n(+ (atoi s) (1- k)))       
   
9.         (setq s2(strcat (itoa k) "-"(itoa n)))
   
10.         (setq k (1+ n))
    
11.         (entmod(subst(cons 1 s2)(assoc 1 elist)elist))       
    
12.         )
    
13.       )
    
14.     )
    
15.   (princ)
    
16.   )

(defun c:tt(/ ss o l en elist s n s2)<br />   (if(setq ss(ssget '((0 . "*text"))))<br />     (progn<br />       (setq i -1 k 1)<br />       (while(setq en(ssname ss (setq i(1+ i))))<br />         (setq elist(entget en))<br />         (setq s(cdr(assoc 1 elist)))<br />         (setq n(+ (atoi s) (1- k)))        <br />         (setq s2(strcat (itoa k) "-"(itoa n)))<br />         (setq k (1+ n))<br />         (entmod(subst(cons 1 s2)(assoc 1 elist)elist))        <br />         )<br />       )<br />     )<br />   (princ)<br />   )

上官文卿

edata 发表于 2015-8-6 14:30

非常感谢！~~