Reorder Attributes values
@C.Utzinger wrote:
Sorry I take so much time from you...
Thanks again!
No worries, i needed the practice.
add num before the last parenthesis of the _padZero subfunction.
(defun _padZero (num md)
(setq num (strcat "0" num))
(while (< (strlen num) md)
(setq num (strcat "0" num))
)
num
)
HTH
"EG-01002" <--what the????? Hahaha
Its an easy fix, but go ahead and try it with more formats and values and report all the bugs and quirks you encounter. I'll be here.
Just for understanding...
There will be no more formats, 
.
I think i should have postet this before. 
@C.Utzinger wrote:
I think that is all.
(defun _padZero (num md)
(while (< (strlen num) md)
(setq num (strcat "0" num))
)
num
)
If there are no other bugs, I think that should do it. There was an extra line there before the while function
HTH
EDIT: Yeah, you should have at the get-go. Anyway. I had fun
Cheers
@C.Utzinger wrote:
COOOLLLL Thank you!!!
Here at 
customer satisfaction is our priority.
pBe
I think i have a solution!!!
I changed the spilt function and now it works
(defun _split (lst i / numbers)
(while (< 46 (setq n (if (/= i 0)(nth (setq i (1- i)) lst) (setq i (1- i)))) 58)
(setq numbers (cons n numbers)))
(if (and numbers
(setq str (vl-list->string lst)))
(list (substr str 1 (1+ i)) (vl-list->string numbers))))
Is that so OK, or i just made a very stupid thing? 
@C.Utzinger wrote:
I think i have a solution!!!
....
Is that so OK, or i just made a very stupid thing?
Well good for you Cree-G.
Haven't had the chance to try your mod yet. If it works for you then go for it. It's a learning opportunity for you.
Tell us how it goes.
@C.Utzinger wrote:
..I hope you remember this thread.
Just barely.
@C.Utzinger wrote:
..I was trying to rewrite the code for an other block (attached), but i failed...
I saw the blocks, Not sure what FillTheGap.lsp objective was, I'll have a look and get back to you in a few.
Question for you, are the values will be a as simple as "A".... "R" or "1" to "12"? no dash or any other symbol like "EG-100"?
@C.Utzinger wrote:
....Yes, just A to Z, and 1 to max. 99.
I would be cool to have the posibility to switch between numbers an chars, from A to 1 or 1 to A.
Kind regards
(Defun c:FTGST ( / opt start ss attVal_collection attval)
;; Fill The Gap Section Tag ;;
;; pBe Feb 2018 ;;
(initget 1 "Letter Number")
(setq opt (getkword "\nChoose option [Letter/Number]: "))
(setq start
(cond
( (and (eq opt "Letter")
(setq str_T (strcase (getstring (strcat "\nEnter start Letter <" (cond (str) ("A")) ">: "))))
(setq str (cond ((snvalid str_T ) (strcase str_T)) (str) ("A")))
(wcmatch str "[A-Z]")
) (setq sym (list ascii chr))
str
)
( (eq opt "Number")
(setq num (cond ((getint (strcat "\nEnter start Number <" (itoa (setq num
(cond ( num ) ( 1 )))) ">: "
)
)
) ( num ) ))
(setq sym (list atoi itoa))
(itoa num)
)
)
)
(if (and
start
(setq attVal_collection nil
ss (ssget "_:L" '((0 . "INSERT")
(66 . 1)
(2 . "spi-schnitt,`*U*"))))
)
(progn
(repeat (setq i (sslength ss))
(setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(if
(and
(eq "SPI-SCHNITT" (strcase (vla-get-effectivename e)))
(setq
attval (mapcar
(function
(lambda (at / num)
(list (vla-get-tagstring at)
(vla-get-textstring at)
at
)
)
)
(vlax-invoke e 'Getattributes)
)
)
(vl-every '(lambda (tag)
(member (Car tag) '("LINKS" "RECHTS"))) attval)
)
(setq attVal_collection
(cons
(list (cadar attval)
(mapcar 'last attval)
)
attVal_collection
)
)
)
)
(foreach itm (vl-sort attVal_collection '(lambda (a b) (< (car a) (car b))))
(cond
( (eq (Car itm) start) )
( (mapcar '(lambda (at)(vla-put-textstring at start)) (cadr itm)) )
)
(setq start (1+ ((car sym) start))
start ((cadr sym) start)
)
)
)
(princ (strcat "\n<<< "
(cond
( (null start) (setq str nil) "Invalid Input >>>" )
( (null ss) "Null Selection >>>" )
)
)
)
)
(princ)
)
Command: FTGST
Choose option [Letter/Number]: L
Enter start Letter <F>: a
Select objects: Specify opposite corner: 4 found
Select objects:
Command: FTGST
Choose option [Letter/Number]: N
Enter start Number <1>:
Select objects: Specify opposite corner: 4 found
Select objects:
HTH
