[编程交流] 反向编号

;Quick Increment/decrement
;Increments/decrements all selected text integers by 1
;I hacked this code together with help from an "increment in range" routine.
;Original code can be found here https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/incriment-numbered-text/td-p/3614646?nobounce
;Quick Increment
(defun C:qi (/ textselection textobject old)
 (vl-load-com)
 (setq textselection (ssget '((0 . "TEXT"))))
 (repeat (sslength textselection)
   (setq
     textobject (vlax-ename->vla-object (ssname textselection 0))
     old (vla-get-TextString textobject); initial text content
   ); setq
   (if
     (and
       (= (strlen old) (strlen (itoa (atoi old)))); text represents integer
         ; Blocks e.g. "12A", "4.5", "C37", and completely non-numerical
         ;   text [except for next test], but allows negative integers.
         ; Also disallows e.g. "06", "008", so if those should be included...
       (if (= (strlen old) 1) (wcmatch old "#") T)
         ; blocks single non-numerical character e.g. "A" [passes prior test]
     ); and
     (vla-put-TextString textobject (itoa (+ (atoi old) 1))); replace
   ); if
   (ssdel (ssname textselection 0) textselection)
 ); repeat
 (princ)
 (setq sel1 (ssget "P"))
 (sssetfirst nil sel1)
); defun
;Quick decrement
(defun C:qd (/ textselection textobject old)
 (vl-load-com)
 (setq textselection (ssget '((0 . "TEXT"))))
 (repeat (sslength textselection)
   (setq
     textobject (vlax-ename->vla-object (ssname textselection 0))
     old (vla-get-TextString textobject); initial text content
   ); setq
   (if
     (and
       (= (strlen old) (strlen (itoa (atoi old)))); text represents integer
         ; Blocks e.g. "12A", "4.5", "C37", and completely non-numerical
         ;   text [except for next test], but allows negative integers.
         ; Also disallows e.g. "06", "008", so if those should be included...
       (if (= (strlen old) 1) (wcmatch old "#") T)
         ; blocks single non-numerical character e.g. "A" [passes prior test]
     ); and
     (vla-put-TextString textobject (itoa (- (atoi old) 1))); replace
   ); if
   (ssdel (ssname textselection 0) textselection)
 ); repeat
 (princ)
 (setq sel1 (ssget "P"))
 (sssetfirst nil sel1)
); defun

(acad_strlsort '("4" "5" "2" "1" "3" "10"))
("1" [i]"10"[/i] "2" "3" "4" "5")

(defun test ( lst / retlist)
 (foreach mem lst
   (setq retlist (cons (atoi mem) retlist))
 )
 (vl-sort retlist '<)
)

_$ (vl-sort '("4" "3" "10" "0" "0.52" "1" "-3.4" "-0.25" "5" "2" "-2" "3.5" "6.8")
 '(lambda (a b) (apply '< (mapcar 'read (list a b))))
)
("-3.4" "-2" "-0.25" "0" "0.52" "1" "2" "3" "3.5" "4" "5" "6.8" "10")
_$ 

_$ (swap '("1" "2")) -> ("2" "1")
_$ (swap '("2" "1" "4" "5" "3")) -> ("4" "5" "2" "1" "3")
_$ (swap '("2" "8" "17" "4")) -> ("17" "4" "2" "8")
_$ (swap '("3" "5" "-4")) -> ("3" "-4" "5")

6