Sheet Count Attribute across different dwg files
@renaldy_wibisonoSHQ64 wrote:
The Problem is, i just realised that i would have to count also sheets from other dwg drawings.
- Opened drawings?
- I take it its more than one layout tab per drawing?
- Do you want this to include subfolder?
You could us an API with access to the layout manager, ARX, .NET pr Python
from pyrx_imp import Rx, Ge, Gi, Db, Ap, Ed
import traceback
def getLayoutCount(db):
try:
lman = Db.LayoutManager()
token = lman.setupForLayouts(db)
print("Num Layouts = {}: ", lman.countLayouts(db))
print("Layouts info = {}: ", lman.getLayouts(db))
finally:
lman.clearSetupForLayouts(token)
def processDb(path):
sideDb = Db.Database(False, True)
sideDb.readDwgFile(path)
sideDb.closeInput(True)
getLayoutCount(sideDb)
def PyRxCmd_doit():
try:
path = "E:\\Source.dwg"
processDb(path)
except Exception as err:
traceback.print_exception(err)
@renaldy_wibisonoSHQ64 wrote:so in each of those titleblocks in each layout, the total sheet number should read 34, across all files
(defun C:HML ( / totalLayouts dwgFiles odbx layoutOndwgFile); HowManyLayouts
(if (And
(setq folder (acet-ui-pickdir
"Select Project Folder"
(if folder folder (getvar 'dwgprefix)
)
)
)
(setq dwgFiles (vl-directory-files folder "*.dwg" 1 )))
(progn
(if (< (atoi (substr (getvar "ACADVER") 1 2)) 16)
(setq odbx (vlax-get-or-create-object "ObjectDBX.AxDbDocument"))
(setq odbx (vlax-get-or-create-object
(strcat "ObjectDBX.AxDbDocument."
(substr (getvar "ACADVER") 1 2)
)
)
)
)
(foreach itm dwgFiles
(if (not (vl-catch-all-error-p
(vl-Catch-All-Apply
'(lambda () (vla-open odbx (strcat folder "\\"itm))
)
)
)
)
(progn
(setq layoutOndwgFile (vla-get-count (vla-get-layouts odbx)))
(setq totalLayouts (cons (list itm (1- layoutOndwgFile )) totalLayouts))
(print (car totalLayouts))
)
(print (strcat "Odbx connection no available with file :\n"
(strcat folder "\\"itm)
)
)
)
)
(vlax-release-object odbx)
(print (strcat "Total number of layouts from " (itoa (length totalLayouts)) " drawing file(s): " (itoa (apply '+ (mapcar 'cadr totalLayouts)))))
)
(print "\No drawing file(s) found")
)
(princ)
)What about part 2 ? You have asked for total sheet number, but what about "Sheet X of Y" if you add or remove a layout from A are the individual sheet numbers updated ? dwgB needs +1 dwgC +1 and so on.
To work need the dwg's selected in an order of numbering. For me a dcl with add dwg number order. The excellent code by PBE could possibly be added to include sheet numbering. Something start with something like this.
You could store the dwg names in all dwgs using LDATA. So in any dwg from a group update the sheet number and total sheets.
Just a comment we for 99% of the time only worked with one dwg, but does not Sheet set manager support sheet number ? We did not use it.
@renaldy_wibisonoSHQ64 wrote:
Thank you for the solution!
Did the solution worked and helped you with what you need @renaldy_wibisonoSHQ64 ? then you know what to do next right?
@renaldy_wibisonoSHQ64 wrote:
I would love to understand this code, if you have the time to explain this, i would very much appreciate it!
I would love to, all you need now is to purchase a ticket, board a plane and fly out here so we can have a beer and at the same time i'll explain the code to you 🙂
@renaldy_wibisonoSHQ64 wrote:few questions :
1) i dont understand this if loop in the setq command ;(setq folder (acet-ui-pickdir (if folder folder (getvar 'dwgprefix))))
so you set a variable folder, by first determining if the not-yet-defined variable folder has the dwgprefix?
DWGPREFIX is a system variable as you probably already know, at initial run where variable folder is null , the program will use the value stored from that system variable DWGPREFIX as the path argument for the function acet-ui-pickdir
On the next run the value that was assigned to folder the first run will now be the default, as we did NOT declare that variable as local. ( / totalLayouts dwgFiles odbx layoutOndwgFile).
@renaldy_wibisonoSHQ64 wrote:2) in (setq dwgFiles (vl-directory-files folder ".dwg" 1)) , what is the 1 for?
vl-directory-files (AutoLISP) <--- 1-- List files only
@renaldy_wibisonoSHQ64 wrote:
3)why do we have to add the ACADVER if the AutoCAD version is earlier than 16? i assume it has to do with the format but idk
Yes, you can say that.
@renaldy_wibisonoSHQ64 wrote:(setq totalLayouts (cons (list itm ( 1- LayoutOndwgFile )) totalLayouts))
a) itm is item? as in an element in a list?
itm is the Variable that each element in the list will be assigned to at every loop of foreach
in this case, its the name of drawing currently being process
@renaldy_wibisonoSHQ64 wrote:b) you used a decrement of 1 in the LayoutOndwgFile - is this because the model is counted as a layout and therefore has to be substracted?
Correct
@renaldy_wibisonoSHQ64 wrote:c) again question about the syntax : you set 'totalLayouts' as a list of itself ( which in the first loop, should not have been defined yet) - is this because, it is a foreach loop and therefore, in the first iteration where it has not been defined yet, it will return as an empty list? and we fill it from there with the foreach loop?
That is the beauty of using the function cons, <-- read about them
@renaldy_wibisonoSHQ64 wrote:5) in the line 41 ;
(print.....(itoa (apply '+ (mapcar 'cadr totalLayouts))i thoght cadr returns the second element of the list TotalLayouts? i dont understand this line of code
Read these and get back to us if you having a hard time understanding them
