Get documents part of all opened drawing

[Anonymous]

Hello.

I'd like to use the iProperty of a part (or an assembly) referenced in a drawing.

But, I need to do that for all opened drawing in Inventor. I tried this, but "doc.ModelDocument" seems not to work...

Dim doc As Document
Dim model As Document

For Each doc In ThisApplication.Documents
	If doc.DocumentType = kDrawingDocumentObject Then 
		model = doc.ModelDocument
		model.PropertySets.Item("Inventor User Defined Properties").Item("Size A").Value = 30
	End If
Next

[MechMachineMan · Accepted solution]

Try this:

Dim doc As Document
Dim model As Document

For Each doc In ThisApplication.Documents
	If doc.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then 
                'This will only work if there is a drawing view on sheet 1 as that is what it grabs as the document
		model = doc.Sheets(1).DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument
                Try
		         model.PropertySets.Item("Inventor User Defined Properties").Item("Size A").Value = 30
                Catch
                        MsgBox("iProp Not Accessible in context of" & vblf & vblf & model.FullFileName)
                        'need to add the propertyset here through the appropriate methods and then assign value
                End try
	End If
Next