topic Re: numeric Increment along with multileader in Visual LISP, AutoLISP and General Customization Forum

numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 05:50:57 GMT

Please Provide me lisp where I can control numeric Increment in Prefix Middle Suffix along with multi leader. For your reference I am attaching the Image file.

Re: numeric Increment along with multileader

pbejse — Thu, 09 Sep 2021 06:23:05 GMT

@ishaq03 wrote:

Please Provide me lisp where I can control numeric Increment in Prefix Middle Suffix along with multi leader. For your reference I am attaching the Image file.

The image you posted doesnt tell us much @ishaq03

You mean user is prompt for all three?

Enter prefix:

Enter Middle:

Enter Suffix:

I assume those string values are separated by "-" and suffix is the only one that increments?

Will the user be selecting an existing Mleader and changing the value or create new Mleader for every increment?

Post a sample drawing please.

Re: numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 06:41:59 GMT

I assume those string values are separated by "-" and suffix is the only one that increments. Yes I need the Increment in suffix only. and i want to be create new multileader for increment.

Re: numeric Increment along with multileader

pbejse — Thu, 09 Sep 2021 07:11:29 GMT

@ishaq03 wrote:
I assume those string values are separated by "-" and suffix is the only one that increments. Yes I need the Increment in suffix only. and i want to be create new multileader for increment.

We need to know if it works on an actual drawing @ishaq03 , the multileader style? the scale? etc..

Again, please post a sample drawing

Re: numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 07:35:12 GMT

I attached the sample dwg as you requested.

Re: numeric Increment along with multileader

pbejse — Thu, 09 Sep 2021 07:51:31 GMT

@ishaq03 wrote:

I attached the sample dwg as you requested.

Thanks, that's good.

You have "TP-RD-Z2-004" as a value,

Enter Prefix string value: TP
Enter Middle string value: RD
Enter Suffix string value: Z2

Enter Start number: 1 ( and always 3 digits? i.e. 00, 012, 102? )

Then user starts clicking away placing the Mleader

If "TP-RD-Z2" will be the same during increment, why not just

Enter string: TP-RD-Z2
Enter Start number: 1

Re: numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 07:58:32 GMT

Please provide me numerical Increment After TP-RD-Z2

Re: numeric Increment along with multileader

pbejse — Thu, 09 Sep 2021 08:28:21 GMT

@ishaq03 wrote:

Please provide me numerical Increment After TP-RD-Z2

So there's only two prompts yes? One for string prefix AND the increment number? There will be no need to to separate to three prompts. Do you agree?

Re: numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 08:33:29 GMT

yes agreed.

Re: numeric Increment along with multileader

pbejse — Thu, 04 Aug 2022 08:29:56 GMT

Here's a simple code

(defun c:IncAt ( / _padzeros Prefix startNos p1 p2) (defun _padzeros ( s l) (if (< (strlen s) l) (_padzeros (strcat "0" s) l) s)) (if (and (setq Prefix (getstring "\nEnter Prefix string value: " )) (setq startNos (getint "\nEnter Start number: ")) ) (while (and (setq p1 (getpoint "\nPick target point")) (setq p2 (getpoint p1 "\nText Location")) ) (command "_Mleader" "_non" (trans p1 1 0) "_non" (trans p2 1 0) "") (vla-put-textstring (vlax-ename->vla-object (entlast)) (strcat Prefix "-" (_padzeros (itoa startNos) 3))) (setq startNos (1+ startNos))) ) (princ) )

Command: Incat

Let me know how it goes.

Re: numeric Increment along with multileader

ishaq03 — Thu, 09 Sep 2021 09:11:55 GMT

Thanks Patrick Evangelista it's working perfectly as per my requirement.

Re: numeric Increment along with multileader

pbejse — Thu, 09 Sep 2021 11:04:53 GMT

@ishaq03 wrote:

Thanks ~~Patrick Evangelista~~ it's working perfectly as per my requirement.

Anytime @ishaq03 [(whispering) listen we dont use names here 😁 ]

Re: numeric Increment along with multileader

k.rakha — Sat, 05 Mar 2022 13:31:54 GMT

@pbejse It worked perfectly, but can be edited to include the text inside a circle block?

Re: numeric Increment along with multileader

Jafarali — Thu, 04 Aug 2022 06:48:32 GMT

how to use this lisp i need the same
I am new in lisp tools, can you help me
loded lisp tool and what is the commend for this list to active

Re: numeric Increment along with multileader

pbejse — Thu, 04 Aug 2022 08:33:57 GMT

@Jafarali wrote:
how to use this lisp i need the same
I am new in lisp tools, can you help me
loded lisp tool and what is the commend for this list to active

Copy the code at post # 15
Save the file as INCAT.lsp
Load the file using Appload.

Command: INCAT Enter Prefix string value: BANANA Enter Start number: 456 Pick target point Text Location

Of course it depends on the current multileader style.

Re: numeric Increment along with multileader

pbejse — Thu, 04 Aug 2022 10:23:19 GMT

@k.rakha wrote:

@pbejse It worked perfectly, but can be edited to include the text inside a circle block?

(defun c:IncAt ( / _padzeros Prefix startNos p1 p2 ml attblock firstAtt BlockIDcoll) (defun _padzeros ( s l) (if (< (strlen s) l) (_padzeros (strcat "0" s) l) s)) (if (and (setq Prefix (getstring "\nEnter Prefix string value: " )) (setq startNos (getint "\nEnter Start number: ")) ) (while (and (setq p1 (getpoint "\nPick target point")) (setq p2 (getpoint p1 "\nText Location")) ) (command "_Mleader" "_non" (trans p1 1 0) "_non" (trans p2 1 0) "") (setq ml (vlax-ename->vla-object (entlast))) (setq nstr (strcat Prefix "-" (_padzeros (itoa startNos) 3))) (cond ((snvalid (setq attblock (vla-get-ContentBlockName ml))) (setq mblk (vla-item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))) attblock)) (or firstAtt (progn (vlax-for itm mblk (setq BlockIDcoll (cons itm BlockIDcoll))) (vl-some '(lambda (o)(and (eq (vla-get-ObjectName o) "AcDbAttributeDefinition") (setq firstAtt (vla-get-ObjectID o)))) BlockIDcoll ) ) ) (vla-SetBlockAttributeValue ml firstAtt nstr) ) ((vla-put-textstring ml nstr)) ) (setq startNos (1+ startNos))) ) (princ) )

Re: numeric Increment along with multileader

ishaq03 — Thu, 25 Aug 2022 08:31:19 GMT

Dear Pbejse,
can we add Northing Easting Coordinates below the numbering via use the Insert field Formula, Means when Multileader pick point taken first row should be a numerical increment then below dynamically coordinates labels.
For your reference I am attaching a video Please check and give me your response as soon as possible.

Re: numeric Increment along with multileader

sooryaprabha9393 — Tue, 22 Oct 2024 12:47:24 GMT

Can you add a provision for giving suffix also after the numer?

Re: numeric Increment along with multileader

pijus_s — Mon, 25 Aug 2025 07:46:12 GMT

Thank you for your work @pbejse