topic Re: alphanumeric sort in sequence in Visual LISP, AutoLISP and General Customization Forum

alphanumeric sort in sequence

beachgirl6172 — Wed, 05 Jun 2024 10:10:06 GMT

Hi all, is there any lisp for alphanumeric sort in sequence by selection?

example : A21(5), A59(8), A73(29)...renumbering A1(5), A2(59), A3(29)?

Thank you.

Re: alphanumeric sort in sequence

pendean — Wed, 05 Jun 2024 12:44:24 GMT

How about starting (then scrolling through) any of these similar posts

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/alphanumeric-sort/m-p/10622378#M420449

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/need-to-sort-text-pulled-from-drawing-alphanumerically/m-p/3061380#M297257

https://forums.augi.com/showthread.php?170644-Sorting-a-list-of-that-contains-a-list-of-alphanumeric-room-numbers&p=1331510&viewfull=1#post1331510

Re: alphanumeric sort in sequence

komondormrex — Wed, 05 Jun 2024 13:06:35 GMT

hey there,

check this

(defun c:anum_seq_sort (/ text_sset index text_list) (if (setq text_sset (ssget '((0 . "text")))) (progn (setq index 0) (foreach text (vl-sort (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex text_sset))) ) '(lambda (text_1 text_2) (> (cadr (vlax-get text_1 'insertionpoint)) (cadr (vlax-get text_2 'insertionpoint)) ) ) ) (vla-put-textstring text (strcat (vl-list->string (vl-remove-if '(lambda (asc) (member asc '(48 49 50 51 52 53 54 55 56 57))) (vl-string->list (vl-princ-to-string (car (setq text_list (read (strcat "(" (vla-get-textstring text) ")" ) ) ) ) ) ) ) ) (itoa (setq index (1+ index))) (vl-princ-to-string (cadr text_list)) ) ) ) ) ) (princ) )

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 00:58:45 GMT

if i need to start with another number? cannot define what number i want..

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 01:00:37 GMT

thank you. thank you. i already try it before, there's not what i want.

Re: alphanumeric sort in sequence

paullimapa — Thu, 06 Jun 2024 01:07:17 GMT

Questions

1. Is there always going to be a single alphabet in front? A and never AA

2. Up to how many digits would you have after the alphabet like 2 A99 or even 3 A999

3. Same questions go to the number within the parentheses (99) or (999)

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 01:44:04 GMT

Hi,

Answer :

1)yes. there's always single alphabet in front.

2) the biggest number maybe until 4 digit after the alphabet (A1 - A9999)

3) the number within the parentheses (1-999)

on this case i only need renumbering the alphanumeric but maintain the number within parentheses.

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 06:13:52 GMT

then this one

(defun c:anum_seq_sort (/ text_sset text_list index) (if (setq text_sset (ssget '((0 . "text")))) (progn (if (null index_saved) (setq index_saved 1)) (initget 6) (if (null (setq index (getint (strcat "\nStart numbering with <" (itoa index_saved) ">: ")))) (setq index index_saved) ) (foreach text (vl-sort (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex text_sset))) ) '(lambda (text_1 text_2) (> (cadr (vlax-get text_1 'insertionpoint)) (cadr (vlax-get text_2 'insertionpoint)) ) ) ) (vla-put-textstring text (strcat (vl-list->string (vl-remove-if '(lambda (asc) (member asc '(48 49 50 51 52 53 54 55 56 57))) (vl-string->list (vl-princ-to-string (car (setq text_list (read (strcat "(" (vla-get-textstring text) ")" ) ) ) ) ) ) ) ) (itoa index) (vl-princ-to-string (cadr text_list)) ) ) (setq index (1+ index)) ) (setq index_saved index) ) ) (princ) )

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 06:31:55 GMT

I appreciate your help very much.. 😀🙏

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 06:33:33 GMT

you are much welcome)

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 07:22:08 GMT

this is the result i get....

I'm sorry to trouble you.

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 07:25:54 GMT

wow these texts are vertical. will return with correction.

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 07:30:01 GMT

sorry for my poor explanation.

actually my drawing like this.....

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 10:17:06 GMT

this one implements fence selecting of texts (not on locked layers), thus enumerating will be done along fence pline drawn on active, not locked layer.

;********************************************************************************************************************************************** (defun make_points (coordinates_raw_list / point_list) (if coordinates_raw_list (setq point_list (cons (list (car coordinates_raw_list) (cadr coordinates_raw_list)) (make_points (cddr coordinates_raw_list)) ) ) ) point_list ) ;********************************************************************************************************************************************** (defun draw_fence (/ vertex fence vertices_list) (while (and (setq vertex (vl-catch-all-apply 'getpoint (if vertex (list vertex "\nPick next fence vertex: ") (list "\nPick 1st fence vertex: ") ) ) ) (null (vl-catch-all-error-p vertex)) ) (if (< 2 (length (setq vertices_list (append vertices_list (list (car vertex) (cadr vertex)))))) (if (null fence) (setq fence (vla-addlightweightpolyline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 1 (length vertices_list))) vertices_list ) ) ) (vlax-put fence 'coordinates vertices_list) ) ) ) (if (vl-catch-all-error-p vertex) (vla-erase fence) fence) ) ;********************************************************************************************************************************************** (defun c:anum_seq_sort (/ fence text_gap_selection text_sset text_list index) (if (setq fence (draw_fence)) (progn (setq text_gap_selection (getvar 'textgapselection)) (setvar 'textgapselection 1) (if (null index_saved) (setq index_saved 1)) (initget 6) (or (setq index (getint (strcat "\nStart numbering with <" (itoa index_saved) ">: "))) (setq index index_saved) ) (foreach text (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_f" (make_points (vlax-get fence 'coordinates)) '((0 . "text"))) ) ) ) ) (vla-put-textstring text (strcat (vl-list->string (vl-remove-if '(lambda (asc) (member asc '(45 48 49 50 51 52 53 54 55 56 57))) (vl-string->list (vl-princ-to-string (car (setq text_list (read (strcat "(" (vla-get-textstring text) ")" ) ) ) ) ) ) ) ) (itoa index) (vl-princ-to-string (if (cadr text_list) (cadr text_list) "")) ) ) (setq index (1+ index)) ) (vla-erase fence) (setq index_saved index) ) ) (setvar 'textgapselection text_gap_selection) (princ) ) ;**********************************************************************************************************************************************

updated

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 09:33:36 GMT

(view in My Videos)

i'm not sure whether i done correctly
attached herewith video for your reference
some of the number are not in order

but anyway many thanks for your helping.

Re: alphanumeric sort in sequence

beachgirl6172 — Thu, 06 Jun 2024 09:41:44 GMT

herewith the picture 😉

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 09:59:50 GMT

i see

Re: alphanumeric sort in sequence

komondormrex — Thu, 06 Jun 2024 10:17:44 GMT

check update in message 14.

Re: alphanumeric sort in sequence

beachgirl6172 — Fri, 07 Jun 2024 00:29:07 GMT

hi, @komondormrex

i get this error command

Re: alphanumeric sort in sequence

beachgirl6172 — Fri, 07 Jun 2024 00:37:47 GMT

the fence selection always start with number 1? can i define the number?