Author Topic: List Drawings in Sheet Set  (Read 2156 times)

0 Members and 1 Guest are viewing this topic.

Guest

  • Guest
List Drawings in Sheet Set
« on: February 06, 2008, 03:13:58 PM »
I'm looking for a way to list the drawings that are referenced into a Sheet Set.  Does anyone have any snippets they'd like to share?

Thanks in advance!

quamper

  • Guest
Re: List Drawings in Sheet Set
« Reply #1 on: February 06, 2008, 03:49:36 PM »
I'm not sure how to access sheetset stuff via VBA as I've never needed to do that.

But I did once need a simple listing of the files in a sheet set and was able to get that by selecting "Publish Dialog Box" from the Sheet Set Manager. Inside the Publish Dialog box you can save that list as a *.DSD file, which is a plain text file that lists DWG, layout name, etc.. That file is in a format that should be fairly easy to parse programatically.


ML

  • Guest
Re: List Drawings in Sheet Set
« Reply #2 on: February 08, 2008, 03:57:27 PM »

Matt
I am working on changing the custom properties in the sheet set but I have come across code that may help you

Try this:

Make sure you set a reference to The the type library
AcSMComponents1.0 Type Library

Code: [Select]
'This example lists all sheet sets
Sub Example_SSListAll()

    Dim sheetset As New sheetset
    ' Get the sheet set manager
    Dim ssMgr As New AcSmSheetSetMgr
    Dim dbIter As IAcSmEnumDatabase
    Dim db As IAcSmDatabase
   
    Set dbIter = ssMgr.GetDatabaseEnumerator
   
    Set db = dbIter.Next
    Do While Not db Is Nothing
        ThisDrawing.Utility.Prompt ("----------BEGIN------------" & vbCrLf)
        sheetset.List db
        Set db = Nothing
        Set db = dbIter.Next
        ThisDrawing.Utility.Prompt ("---------- END ------------" & vbCrLf)
    Loop
   
    Set dbIter = Nothing
    Set ssMgr = Nothing
   
    ThisDrawing.Application.Update

End Sub

Also, any help with the custom properties would be appreciated!

Mark

Guest

  • Guest
Re: List Drawings in Sheet Set
« Reply #3 on: February 08, 2008, 04:37:34 PM »

Matt
I am working on changing the custom properties in the sheet set but I have come across code that may help you

Also, any help with the custom properties would be appreciated!

Mark

I found that buried in one of the folders.  I've got something that is working (almost).

As for the custom properties, have you seen these?

http://www.augi.com/education/auhandouts/2005/CP15-1.pdf
http://hyperpics.blogs.com/beyond_the_ui/2004/03/vba_example_tha.html

ML

  • Guest
Re: List Drawings in Sheet Set
« Reply #4 on: February 08, 2008, 04:43:50 PM »

Matt
I have already been threw the sheetset count and some other methods on there, however one thing did catch my eye.
I am going to print he pdf and see what I can find out

Thank you!

Did the method that I post help you with what you needed?

Mark