Create a list in Excel with the properties of all the sheets whit ilogic

[andrescastellanosint]

Hello, I need to create a list in Excel containing all the iproperties of all the Sheets of drawings with ilogic.

thank's

[bradeneuropeArthur]

What do you mean with all the sheets.

All the sheets in one drawing?

All the drawings in one folder?

What do you mean with the iproperties of the sheets?

Sheets have no iproperties, drawing have!?

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[andrescastellanosint]

hello, my Drawing has more than one sheet, and each one has a different description, I would like to extract a list in excel where this information was

[andrescastellanosint]

This is code:

On Error Resume Next

Dim oDoc As DrawingDocument

oDoc = ThisApplication.ActiveDocument

Dim oSheetS As Sheets

Dim oPromptEntry

Dim oALLSheet

oCurrentSheet = oDoc.ActiveSheet.Name

i = 1

For Each oSheet In oDoc.Sheets

  i = i+1

  ThisApplication.ActiveDocument.Sheets.Item(i).Activate

       oTitleBlock=oSheet.TitleBlock

    oTextBoxes=oTitleBlock.Definition.Sketch.TextBoxes

    For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes

    Select oTextBox.Text

        Case "CONTIENE"

            oPromptEntry  =  oTitleBlock.GetResultText(oTextBox)

 End Select

    Next

Next

xlsxPath = "C:\Users\castellanos.andres\Desktop\Mass Properties.xlsx"

GoExcel.CellValue(xlsxPath, "Hoja1", "A2:A25")=oPromptEntry

GoExcel.Save

But not to do the loop to get the value of all the sheets

[bradeneuropeArthur]

So these are not I-properties, but text fields in the drawing, correct?

Please let me know if I understood this correctly, than we can proceed...

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[andrescastellanosint]

 yes, that's right

[bradeneuropeArthur]

Ok that is clear than.

I will prepare something and come back to it....

Regards 

[chandra.shekar.g]

@andrescastellanosint,

Hoping that below iLogic code may be helpful.

On Error Resume Next
 
Dim oDoc As DrawingDocument 
oDoc = ThisApplication.ActiveDocument
 
Dim oSheetS As Sheets 
Dim oPromptEntry 
 
Dim oALLSheet 
oCurrentSheet = oDoc.ActiveSheet.Name
 
Dim oList As New ArrayList 
For Each oSheet In oDoc.Sheets 
 
	oSheet.Activate 
	oTitleBlock = oSheet.TitleBlock  
    oTextBoxes=oTitleBlock.Definition.Sketch.TextBoxes 
    For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes
 
    	Select oTextBox.Text
 
        Case "CONTIENE" 
            Call oList.Add(oTitleBlock.GetResultText(oTextBox))         
 		End Select
    Next 
Next 

xlsxPath = "C:\Users\castellanos.andres\Desktop\Mass Properties.xlsx"
GoExcel.CellValue(xlsxPath, "Hoja1", "A2","A25")=oList 
GoExcel.Save
GoExcel.Close 

Thanks and regards,

[andrescastellanosint]

Friend thanks for your help, but does not save me any data on the spreadsheet

[chandra.shekar.g]

@andrescastellanosint ,

Is it possible to provide drawing document to test ? please make sure that files are non confidential.

Thanks and regards,

[andrescastellanosint]

This is the problem, the drawings are of type cofindencial.

My code works, will only need to create a loop where I save the result into a variable. I have not succeeded.

In the following pictures you can see how the code works, I need is to create a single text message that contains the three data of the pictures.

if you could help me?

[chandra.shekar.g · Accepted solution]

@andrescastellanosint ,

Hope below iLogic code helps.

On Error Resume Next
 
Dim oDoc As DrawingDocument
 
oDoc = ThisApplication.ActiveDocument
 
Dim oSheetS As Sheets
 
Dim oPromptEntry As String 
 
 
Dim oALLSheet
 
oCurrentSheet = oDoc.ActiveSheet.Name
 
i = 1
 
For Each oSheet In oDoc.Sheets
 
  i = i+1
 
  ThisApplication.ActiveDocument.Sheets.Item(i).Activate
 
       oTitleBlock=oSheet.TitleBlock
 
    oTextBoxes=oTitleBlock.Definition.Sketch.TextBoxes
 
    For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes
 
    Select oTextBox.Text
 
        Case "CONTIENE"
 
            oPromptEntry  =  oPromptEntry & oTextBox.GetResultText(oTextBox)
         
 End Select
 
    Next
 
Next
 
 
xlsxPath = "C:\Users\castellanos.andres\Desktop\Mass Properties.xlsx"
GoExcel.CellValue(xlsxPath, "Hoja1", "A2:A25")=oPromptEntry
GoExcel.Save
GoExcel.Close

Thanks and regards,

[andrescastellanosint]

Thank you friend is just what I needed