[编程交流] 根据列表输入

;==================================================
(defun c:INCATT
   ( / f str i f tag num pre post OOv
       
;        *StartStr121007
;        *IncreaseN121007
       
       HUE:DivideNum
       HUE:memoVar
       HUE:stringsubst
       HUE:StringCal
       HUE:start
       HUE:end
       
       _divideStr
       
   )
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:DivideNum ( str / lst s m v1 v2 i j c _NumP _Cal)
       (defun _NumP ( x ) (<= 48 x 57))
       (defun _Cal ( ty v )
           (set v (cons (vl-list->string (reverse (eval ty))) (eval v))) 
           (set ty nil)
       )
       
       (setq lst (vl-string->list str) i -1 j -1)
       
       (repeat (length lst)
           (setq c (nth (setq i (+ i 1)) lst))
           
           (cond
               (    (_NumP c) 
                   (setq s (cons c s) ) (cond ( m (_Cal 'm 'v1) (setq j (+ 1 j)))))
               
               (    (and (= c 46) (> i 0) (_NumP (nth (- i 1) lst)) (_NumP (nth (+ i 1) lst)))
                   (setq s (cons c s))
               )
               (t  (setq m (cons c m))
                   (cond ( s (_Cal 's 'v1) (setq v2 (cons (setq j (+ 1 j)) v2))))
               )
           )
       )
       (cond
           ( m (_Cal 'm 'v1))
           ( t (_Cal 's 'v1) (setq v2 (cons (setq j (+ 1 j)) v2)))
       ) (list (reverse v1) (reverse v2))
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:memoVar ( va f m s / v )
       (setq v (if (member (eval va) '(nil "")) s  (eval va)))
       (mapcar 'princ (list "\n" m " <" v "> : "))
       (set va ( f ))
       (if (member(eval va) '(nil "")) (set va v)) (eval va) 
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:stringsubst ( new old str / l i ) (setq l (strlen new) i 0)
       (while (setq i (vl-string-search old str i))
           (setq str (vl-string-subst new old str i) i (+ i l))
       ) str
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:StringCal ( str f n / _GetPP data1 data2 num i DIMZIN )
       (defun _GetPP ( str / lst l post pre flag )
           (setq lst  (vl-remove  45 (vl-string->list str))
                 post (if (setq l (member 46 lst)) (- (length l) 1) 0)
                 pre  (if (setq l (member 46 (reverse lst))) (- (length l) 1) (length lst))
                 flag (minusp (atof str))
           ) (list pre post flag)
       )
       
       (setq DIMZIN (getvar 'DIMZIN))
       
       (setvar 'DIMZIN 0)
       (setq data1 (_GetPP str)
             num   (vl-string->list (rtos (f (atof str) n) 2 (cadr data1)))
             data2 (_GetPP (vl-list->string num))
             num   (vl-remove 45 num)
       )
       (setvar 'DIMZIN DIMZIN)
       (if (< 0 (setq i (- (car  data1) (car  data2)))) 
           (repeat i (setq num (cons 48 num)))
       )
       (if (< 0 (setq i (- (cadr data1) (cadr data2)))) 
           (repeat i (setq num (append num '(48))))
       )
       (if (caddr data2) (setq num (cons 45 num)))
       (vl-list->string num)
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:start( lst ) 
       (vla-startundomark (HUE:end nil))
       (list lst (mapcar 'getvar lst))
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun HUE:end ( d / doc )
       (setq doc (vla-get-activedocument (vlax-get-acad-object)))
       (and (cadr d) (mapcar 'setvar (car d) (cadr d)))
       (if (= 8 (logand 8 (getvar 'UNDOCTL))) (vla-endundomark doc)) doc
   )
   
   ;-------------------------------------------------------------------------
   ; Sub Function
   ;-------------------------------------------------------------------------
   (defun _divideStr ( str / data i j k pre post )
       (setq data (HUE:DivideNum str)
             k    (last (cadr data))
             j    0
             pre  ""
             post ""
       )
       
       (foreach s (car data)
           (cond
               (    (< j k) (setq pre (strcat pre  s)))
               (    (> j k) (setq post(strcat post s)))
               (    (= j k) (setq i s))
           )
           (setq j (+ 1 j))
       )
       (list pre i post)
   )
   
   ;-------------------------------------------------------------------------
   ; Error Function
   ;-------------------------------------------------------------------------
   (defun *error* (s)
       (if OOv (HUE:End OOv)) (princ s)
   )
   ;-----------------------------------------------------------------------------------
   ; Main Function                                                                     
   ;-----------------------------------------------------------------------------------
   (setq str  (HUE:MemoVar '*StartStr121007  getstring "StartString  " "100")
         i    1
         OOv  (HUE:Start '(DIMZIN))
   )
   
   (and 
       (vl-string-search "," str)
       (setq str (HUE:StringSubst "." "," str)  f t)
   )
   
   (mapcar 'set '(pre num post) (_DivideStr str))
   (setq tag  "TEXT1"
         num  (HUE:StringCal num - i)
   )
   (setvar 'ERRNO 0)
   (setvar 'DIMZIN 
   (while (= 0 (getvar 'ERRNO))
       (and
           (setq o (ssget "_+.:E:S:L" '((0 . "INSERT") (66 . 1))))
   ;(C:PUTA);------------------------------------------------------put locatiecode-----------------------------------
           (vl-some
               '(lambda ( att )
                   (if (= tag (vla-get-tagstring att))
                                 (progn
                           (setq num (HUE:StringCal num + i)
                                 str (strcat pre num post)
                           )
        (if f (setq str (HUE:StringSubst "," "." str)))
                           (vla-put-textstring att str)
                       )
                   )
               ) (vlax-invoke (vlax-ename->vla-object (ssname o 0)) 'getattributes)
           )
       )
   )
   (HUE:End OOv)
   (princ)
)(vl-load-com)

((1001 1 5)(1201 1 12)(1300 2 4))
(startnumber inc howmany)

(defun lim12 (x / n)
 (setq n (rem x 100))
 (cond        ((if (zerop n)
   (- x n)
   )
 )
((if (< n 13)
   x
   (+ 100 (- x n))
   )
 )
)
 )

(defun c:test1 ()
(setq lst '(1001 1002 1003 1004 1005 1006 
   1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 
   1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 
   1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 
   1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 
   1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 
   1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 
   1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 
   1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 
)
)
(princ lst)
)

(defun c:test2 ()
(setq lst '((1001 1 6)(1201 1 12)(1301 1 12)(1401 1 12)(1501 1 12)(1601 1 12)(1701 1 12)(1801 1 12))
)
)

(setq n 1300)
(while (getpoint) (repeat 12 (print (setq n (1+ n)))) (setq n (+ 88 n)))

(defun[b] lim[/b] (x i)
 (setq n (rem x 100))
 ([color="blue"]cond[/color]        ((if (zerop n)
   (- x n)
   )
 )
((if (<= n i)
   x
   (1+(+ 100 (- x n)))
   )
 )
)
 )
(defun c:test (/ x n)
 (setq x [color="red"]1001[/color])
 (while x
   (if        (setq x        (cond ((getint (strcat "\n[Enter] to continue or input number < " (itoa x) " > : ")))
                  (x)
                  
            )
      n        ([color="blue"]cond[/color] ((<= [color="red"]1001 [/color]x [color="red"]1006[/color]) (lim x [color="red"]6[/color])) [color="green"]; count from 1001 to 1006 only [/color]
              ((< [color="red"]1006[/color] x [color="red"]1101[/color]) 1101) [color="green"]; if x > 1006 jumps to 1101[/color]
              ((<= [color="red"]1101[/color] x[color="red"] 1812[/color]) (lim x [color="red"]12[/color])) [color="green"]; from 1101 to 1812 count every 100s to 12 [/color]
              )
      )
     (progn (princ (setq x n) ) (setq x (1+ x)))
     (setq x nil)
     )
   )
(princ)
 )

(defun lim# (x p)
(cond ((<= 1001 x 1006) ([color="blue"]lim[/color] x 6))
              ((< 1006 x 1101) 1101)
              ((<= 1101 x 1812) ([color="blue"]lim[/color] x 12))
                     (t (if p x))
              )
)

(defun foo (f)
(foreach x '([color="purple"]999 1000 1001 1002 1005 1006 1007 1199 1300 1301 1311 1312 1313 1399 1400 1413 1699 1700 1701 1711 1712 1713 1714 1800 1812 1813 1814 1900[/color])
 (princ (apply        'strcat
        (mapcar        'vl-princ-to-string
                (list "\n" x
                      " -> "
                     (eval f)
                        )
                      )
                )
        )
 
 )
(textscr)
(princ)
)
(defun c:test2 nil
(foo '(lim# x [color="blue"][b]NIL[/b][/color]))) [color="green"];limit range 1001 to 1812[/color]
(defun c:test3 nil
(foo '(lim# x [b][color="blue"]T[/color][/b])))[color="green"] ; after 1812 ,1813 etc.. as normal[/color]

I think this is the line to play with not tested.
(setq str  (HUE:MemoVar '*StartStr121007  getstring "StartString  " "100")