topic Removing cover and index from autonumbering lisp in Visual LISP, AutoLISP and General Customization Forum

Removing cover and index from autonumbering lisp

beatriz.mourao — Fri, 10 Jan 2025 20:43:34 GMT

I'm using a LISP from Lee Mac Programming (https://www.lee-mac.com/layoutfield.html) that can number my layouts automatically. However, I wish it didn't count the cover and the index, so the actual drawings would start at 1, and the total number of pages wouldn't also count those pages. As a bonus, I really prefer when the numbers from 1-9 are preceded by a 0... But it's just for aesthetics.

Anyway, is there any way to fix the .lsp so it does that? Here's the code:

;; Owner - Lee Mac
;; A wrapper for the objectidtoobject method & ownerid property to enable
;; compatibility with 32-bit & 64-bit systems

(defun LM:owner ( obj )
(eval
(list 'defun 'LM:owner '( obj )
(if (vlax-method-applicable-p obj 'ownerid32)
(list 'vla-objectidtoobject32 (LM:acdoc) '(vla-get-ownerid32 obj))
(list 'vla-objectidtoobject (LM:acdoc) '(vla-get-ownerid obj))
)
)
)
(LM:owner obj)
)

;; ObjectID - Lee Mac
;; Returns a string containing the ObjectID of a supplied VLA-Object
;; Compatible with 32-bit & 64-bit systems

(defun LM:objectid ( obj )
(eval
(list 'defun 'LM:objectid '( obj )
(if (vlax-method-applicable-p (vla-get-utility (LM:acdoc)) 'getobjectidstring)
(list 'vla-getobjectidstring (vla-get-utility (LM:acdoc)) 'obj ':vlax-false)
'(itoa (vla-get-objectid obj))
)
)
)
(LM:objectid obj)
)

;; Start Undo - Lee Mac
;; Opens an Undo Group.

(defun LM:startundo ( doc )
(LM:endundo doc)
(vla-startundomark doc)
)

;; End Undo - Lee Mac
;; Closes an Undo Group.

(defun LM:endundo ( doc )
(while (= 8 (logand 8 (getvar 'undoctl)))
(vla-endundomark doc)
)
)

;; Active Document - Lee Mac
;; Returns the VLA Active Document Object

(defun LM:acdoc nil
(eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
(LM:acdoc)
)

;;----------------------------------------------------------------------;;

(vl-load-com) (princ)

;;----------------------------------------------------------------------;;
;; End of File ;;
;;----------------------------------------------------------------------;;

Re: Removing cover and index from autonumbering lisp

Sea-Haven — Sat, 11 Jan 2025 01:11:25 GMT

A suggestion as our title block had 2 attributes page & total. We had a lisp we would run and it would redo the values in the 2 attributes, but they were not auto update, yes the D01 D02 etc was produced. By using a custom lisp rather than a field may be the way to go, it can ignore the 1st 2 layouts then start numbering. Post a sample dwg with your title block in a layout if you want some thing like this.

Re: Removing cover and index from autonumbering lisp

Moshe-A — Sat, 11 Jan 2025 17:51:59 GMT

@beatriz.mourao hi,

On the code line #12 you see -1 ?

if you change it to -3, the total of layouts will subtract by 3. it's -3 cause it includes the "Model" layout but have you thought what would happen if your drawing will miss cover/index sheets?

Moshe

(defun c:lfsheet ( ) (layoutfield '(lambda ( obj ) (vla-put-textstring obj (strcat "%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (layoutfield:layout obj)) ">%).TabOrder>%" " of " "%<\\AcExpr %<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vla-get-layouts (LM:acdoc))) ">%).Count>%-1 >%" ) ) ) ) )

Re: Removing cover and index from autonumbering lisp

komondormrex — Sat, 11 Jan 2025 18:35:17 GMT

is the following what you want

;;-------------------------=={ Layout Field }==-------------------------;; ;; ;; ;; This program defines a set of commands which enable the user to ;; ;; populate a selected annotation object (Text, MText, Attribute) ;; ;; with a field expression referencing the name and position of the ;; ;; layout in which the object resides. ;; ;; ;; ;; Contrary to the typical use of the CTAB system variable, as offered ;; ;; by the standard AutoCAD FIELD command, the field expressions ;; ;; generated by this program directly reference the ActiveX Layout ;; ;; object within the Layouts Collection, and therefore do not depend ;; ;; on the layout being current in order to display the correct output. ;; ;; ;; ;; This is particularly advantageous when using the DATAEXTRACTION ;; ;; command to retrieve data from multi-layout drawings, as field ;; ;; expressions which reference the CTAB system variable will yield ;; ;; the same value for every layout when processed by this command. ;; ;;----------------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2016 - www.lee-mac.com ;; ;;----------------------------------------------------------------------;; ;; Version 1.0 - 2016-12-29 ;; ;; ;; ;; - First release. ;; ;;----------------------------------------------------------------------;; ;;----------------------------------------------------------------------;; ;; Layout Name ;; ;; ;; ;; Generates a field expression referencing the name of the layout ;; ;; in which the selected annotation object resides. ;; ;;----------------------------------------------------------------------;; (defun c:lfname ( ) (layoutfield '(lambda ( obj ) (vla-put-textstring obj (strcat "%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (layoutfield:layout obj)) ">%).Name>%" ) ) ) ) ) ;;----------------------------------------------------------------------;; ;; Layout Number ;; ;; ;; ;; Generates a field expression referencing the position of the layout ;; ;; in which the selected annotation object resides. ;; ;;----------------------------------------------------------------------;; (defun c:lfnumber ( ) (if (and (< (vla-get-taborder (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) (1- (vla-get-count (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))) ) (< 1 (vla-get-taborder (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))) ) (layoutfield '(lambda ( obj ) (vla-put-textstring obj (strcat "%<\\AcExpr %<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (layoutfield:layout obj)) ">%).TabOrder>%-1>%" ) ) ) ) (princ "\nN/A to Model, Cover or Index") ) (princ) ) ;;----------------------------------------------------------------------;; ;; Sheet Number & Total Sheets ;; ;; ;; ;; Generates a field expression referencing the position of the layout ;; ;; in which the selected annotation object resides, and the total ;; ;; number of paperspace layouts in the drawing. ;; ;;----------------------------------------------------------------------;; (defun c:lfsheet ( ) (if (and (< (vla-get-taborder (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) (1- (vla-get-count (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))) ) (< 1 (vla-get-taborder (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))) ) (layoutfield '(lambda ( obj ) (vla-put-textstring obj (strcat "%<\\AcExpr %<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (layoutfield:layout obj)) ">%).TabOrder>%-1>%" ; komondormrex " of " "%<\\AcExpr %<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vla-get-layouts (LM:acdoc))) ; komondormrex ">%).Count>%-3 >%" ) ) ) ) (princ "\nN/A to Model, Cover or Index") ) (princ) ) ;;----------------------------------------------------------------------;; (defun layoutfield ( fld / *error* ent ) (defun *error* ( msg ) (LM:endundo (LM:acdoc)) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (princ (strcat "\nError: " msg)) ) (princ) ) (while (progn (setvar 'errno 0) (setq ent (nentsel "\nSelect text or attribute: ")) (cond ( (= 7 (getvar 'errno)) (princ "\nMissed, try again.") ) ( (null ent) nil) ( (or (< 2 (length ent)) (not (wcmatch (cdr (assoc 0 (entget (setq ent (car ent))))) "TEXT,MTEXT,ATTRIB")) ) (princ "\nInvalid object selected.") ) ) ) ) (if ent (progn (LM:startundo (LM:acdoc)) (apply fld (list (vlax-ename->vla-object ent))) (if (= "ATTRIB" (cdr (assoc 0 (entget ent)))) (vla-regen (LM:acdoc) acactiveviewport) ) (LM:endundo (LM:acdoc)) ) ) (princ) ) (defun layoutfield:layout ( obj ) (if (and (vlax-property-available-p obj 'islayout) (= :vlax-true (vla-get-islayout obj))) (vla-get-layout obj) (layoutfield:layout (LM:owner obj)) ) ) ;; Owner - Lee Mac ;; A wrapper for the objectidtoobject method & ownerid property to enable ;; compatibility with 32-bit & 64-bit systems (defun LM:owner ( obj ) (eval (list 'defun 'LM:owner '( obj ) (if (vlax-method-applicable-p obj 'ownerid32) (list 'vla-objectidtoobject32 (LM:acdoc) '(vla-get-ownerid32 obj)) (list 'vla-objectidtoobject (LM:acdoc) '(vla-get-ownerid obj)) ) ) ) (LM:owner obj) ) ;; ObjectID - Lee Mac ;; Returns a string containing the ObjectID of a supplied VLA-Object ;; Compatible with 32-bit & 64-bit systems (defun LM:objectid ( obj ) (eval (list 'defun 'LM:objectid '( obj ) (if (vlax-method-applicable-p (vla-get-utility (LM:acdoc)) 'getobjectidstring) (list 'vla-getobjectidstring (vla-get-utility (LM:acdoc)) 'obj ':vlax-false) '(itoa (vla-get-objectid obj)) ) ) ) (LM:objectid obj) ) ;; Start Undo - Lee Mac ;; Opens an Undo Group. (defun LM:startundo ( doc ) (LM:endundo doc) (vla-startundomark doc) ) ;; End Undo - Lee Mac ;; Closes an Undo Group. (defun LM:endundo ( doc ) (while (= 8 (logand 8 (getvar 'undoctl))) (vla-endundomark doc) ) ) ;; Active Document - Lee Mac ;; Returns the VLA Active Document Object (defun LM:acdoc nil (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object)))) (LM:acdoc) ) ;;----------------------------------------------------------------------;; (vl-load-com) (princ) ;;----------------------------------------------------------------------;; ;; End of File ;; ;;----------------------------------------------------------------------;;