topic Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION in Visual LISP, AutoLISP and General Customization Forum

AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Fri, 04 Nov 2016 16:41:17 GMT

Hi,

I would like to have a page number based on the layout tab order. I am currently using the CTAB field for labeling my page titles, but i would also like something to help number my sheets "page X of XX" is there a way of doing this with a lisp file?

I would like it so if I changed the order of my tabs the numbers would automatically update.

Thanks

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Patchy — Fri, 04 Nov 2016 16:57:19 GMT

First part do this:

http://forums.augi.com/showthread.php?141491-Auto-Numbering-Layout-Tabs

Your 2nd question,

Ask the Customization Group

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Fri, 04 Nov 2016 17:18:34 GMT

That is not really what I am looking for. I would like to keep my tab names the same as what my sheet titles are using the 'ctab' field. What I want to do is have a field that would be based off the order in which the tabs are positioned to automatically number my sheets. (ex. the sheet on the first layout would be sheet 1, layout 2 would be sheet 2. If the layouts are repositioned the field would update automaticlly). I there a way to create a field that would do this? Is there a way to create a new style of field period?

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Ranjit_Singh — Fri, 04 Nov 2016 17:45:45 GMT

I don't think there are fields to check the order of the layout tab. But I am not sure. I would certainly like to know if there is such a field. Using LISP though, once you get the layouts collection object the taborder property tells you the order of the tab. You would need some kind of reactor to check when the tabs were moved and call a lisp to update the relevant entities to reflect taboder property.

Are the text/mtext entities to be updated in a title block of some sort? Post a sample dwg.

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Fri, 04 Nov 2016 18:02:49 GMT

See attached sample. Just using a simple title block that was given to me.

I don't know what you mean by "once you get the layouts collection object the taborder property tells you the order of the tab"

Thanks

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Ranjit_Singh — Fri, 04 Nov 2016 21:45:02 GMT

Try the below routine.

(defun c:somefunc  (/ adoc layouts layoutname ss1 ent entdata)
 (setq layouts (vla-get-layouts (setq adoc (vla-get-activedocument (vlax-get-acad-object)))))
 (if (setq ss1 (ssget "_x" '((0 . "INSERT") (2 . "_11x17"))))
  (mapcar
   '(lambda (x)
     (setq ent     (cadr x)
           entdata (entget ent))
     (while (/= (cdr (assoc 0 entdata)) "SEQEND")
      (cond ((= "SHT#" (cdr (assoc 2 entdata)))
             (vlax-for y  layouts
              (cond ((=
                     (vla-get-name (vla-objectidtoobject adoc (vla-get-ownerID (vlax-ename->vla-object (cdr (assoc 330 entdata))))))
                     (vla-get-name (vla-get-block y)))
                    (entmod (subst (cons 1 (itoa (vla-get-taborder y))) (assoc 1 entdata) entdata)))
                    (T ())))
              ))
            (setq entdata (entget (setq ent (entnext ent))))))
     (ssnamex ss1))
  "No titleblocks found!")
 (princ))

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Mon, 07 Nov 2016 13:21:12 GMT

You are amazing. Thank you!

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Tue, 07 Aug 2018 08:37:09 GMT

I've seen you get it but, which attribute do you use put the number in your pages before using lisp?

I don't know if you understand me. I am sorry about my poor english.

Thank you so much in advance!

I looking forward you reply!

@Anonymous wrote:
You are amazing. Thank you!

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Tue, 07 Aug 2018 09:03:48 GMT

@Ranjit_Singh wrote:

Try the below routine.

(defun c:somefunc  (/ adoc layouts layoutname ss1 ent entdata)
 (setq layouts (vla-get-layouts (setq adoc (vla-get-activedocument (vlax-get-acad-object)))))
 (if (setq ss1 (ssget "_x" '((0 . "INSERT") (2 . "_11x17"))))
  (mapcar
   '(lambda (x)
     (setq ent     (cadr x)
           entdata (entget ent))
     (while (/= (cdr (assoc 0 entdata)) "SEQEND")
      (cond ((= "SHT#" (cdr (assoc 2 entdata)))
             (vlax-for y  layouts
              (cond ((=
                     (vla-get-name (vla-objectidtoobject adoc (vla-get-ownerID (vlax-ename->vla-object (cdr (assoc 330 entdata))))))
                     (vla-get-name (vla-get-block y)))
                    (entmod (subst (cons 1 (itoa (vla-get-taborder y))) (assoc 1 entdata) entdata)))
                    (T ())))
              ))
            (setq entdata (entget (setq ent (entnext ent))))))
     (ssnamex ss1))
  "No titleblocks found!")
 (princ))

Hello Ranjit,

I've been looking for this for some weeks. I've tried your lisp but doesn't work at all. Which attribute do you use to number the pages? Because I understand you write page number 1/5, 2/5, ...5/5 and after all, you use autocad lisp, are you?

Thank you so much in advance.

I'm looking forward to hearing from you.

Regards,

Ana

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

wfraser3 — Sat, 27 Feb 2021 20:04:45 GMT

The code specifies the block name ("_11x17") and the attribute name ("SHT#") of the sample title block provided. Change these to your block name and attribute name and the code will work.

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Tue, 02 Mar 2021 10:07:58 GMT

Thank you so much for your time to answer.

Best regads

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

vladimir_michl — Tue, 02 Mar 2021 13:24:01 GMT

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

Anonymous — Tue, 02 Mar 2021 13:29:21 GMT

Thank you so much!

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

CarlosAJL — Fri, 20 May 2022 21:30:16 GMT

Hola!

no puedo ejecutarlo 😞

; error, "no funCtion definition: PRINCIPE"

¿Que hice mal?

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

asilva_mad — Thu, 22 Dec 2022 16:12:36 GMT

Hi wfraser3;

I changed the name of the title block but left the attribute tag the same because I used "SHT#" in the name, but the numbers don't change. I'm using AutoCAD 2023 but I don't know if that has something to do with it.

May you help me with this problem?

Thanks!

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

rcasteel2CH8H — Fri, 30 Dec 2022 20:23:24 GMT

Could you add to this source code to make it display total pages in set. For instance if a file has 10 pages make it to where it would say 1 of 10, 2 of 10..... 10/10?

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

wfraser3 — Tue, 03 Jan 2023 18:33:15 GMT

I make a custom property shown in the picture (drawing utilities -> drawing properties -> custom -> add) and then 'insert field' of the custom property in text (in the mtext, right click and find insert field, find the name of the custom property and click insert). You'll have to manually update it from the drawing utilities, but it'll update it for all of the pages if it's in your title block.

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

wfraser3 — Tue, 03 Jan 2023 18:35:06 GMT

I'd have to see your drawing 🙂

Re: AUTO NUMBER LISP BASED ON LAYOUT TAB POSITION

pete.j.schiller — Wed, 04 Jan 2023 06:34:02 GMT

I am using the PageOf tool (see Message #12) to update the fields and total number of pages. Quite handy.