topic Re: increment help please in Visual LISP, AutoLISP and General Customization Forum

increment help please

Village_Idiot — Fri, 09 Aug 2024 14:26:24 GMT

(while (tblsearch "block" BlkNm)

(setq BlkNm (strcat BlkNm "_V" (itoa (setq tmp (1+ tmp)))))

If there are no blocks equal to BlkNm its fine. Same with first instance. But then...

BlkNm_V1_V2_V3_V4_V5_V6 Yeh...NOPE! How can I get it to add _V1 and then increment after that?

Re: increment help please

komondormrex — Fri, 09 Aug 2024 14:44:56 GMT

how could you manage to get more than ONE block definition with the name 'BlkNm'?

or?

(if (tblsearch "block" BlkNm) (setq BlkNm (strcat BlkNm "_V" (itoa (setq tmp (1+ tmp))))) )

Re: increment help please

pendean — Fri, 09 Aug 2024 14:45:58 GMT

While you wait... this freebie does that and so much more
https://apps.autodesk.com/ACD/en/Detail/Index?id=8051485828049059617&appLang=en&os=Win32_64

Re: increment help please

Village_Idiot — Fri, 09 Aug 2024 15:29:20 GMT

Thanks @komondormrex, but I want it to keep looping until it finds the next available V#. Its part of a larger lisp that makes attributed blocks for a library. If that name already exists I want to add a new version.

Re: increment help please

Kent1Cooper — Fri, 09 Aug 2024 15:29:58 GMT

I think you would need a "base" name part separate from the BlkNm variable itself, something like this [untested]:

(setq BlkBase "Whatever" BlkNm BlkBase ; start without _V# suffix tmp 0 ); setq (while (tblsearch "block" BlkNm) (setq BlkNm (strcat BlkBase "_V" (itoa (setq tmp (1+ tmp)))) ); while

Re: increment help please

Village_Idiot — Fri, 09 Aug 2024 15:43:12 GMT

Just realized I should mention that the block name is auto generated from the a couple attributes. Thinking out loud, I guess I need to make that name (BlkNm), wildcard match it against the block collection, if exists get the biggest #, then make one the next number up. Does that sound right??

Re: increment help please

Village_Idiot — Fri, 09 Aug 2024 16:15:32 GMT

You @Kent1Cooper, are the big winner. Worked like a charm. Thank you sooooo very much!!

(setq BlkNm ("SuperDupperBlockalicious")

BlkNmDitto BlkNm)

(while (tblsearch "block" BlkNm)

(setq

BlkNm (strcat BlkNmDitto "_V" (itoa (setq tmp (1+ tmp)))))