Retreieve iProperty from specified file

[Anonymous]

From a drawing, I want to retrieve a custom iProperty from a specific file. The code below works, but my file is in a parent folder. How do I specify the path for this file? If I include it directly together with the file name, it only interprets it as part of the file name, not the path.. 

iProperties.Value("file.iam", "Custom", "Test")

[bradeneuropeArthur]

From where do you want to retrieve the I-properties?
From and ipt iam idw dwg file?

[Anonymous]

I want to retrieve from an iam file (file.iam) Can't figure out how to specify the path

[bradeneuropeArthur]

Public Sub op()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.Documents.Open("YOUR DOCUMENT FULL NAME", False)

'FOR EACH PROPERTY SET YOU NEED TO DEFINE Item(?).Item
'FOR EACH PROPERTY YOU NEED TO DEFINE Item(x).Item(?)
MsgBox b.PropertySets.Item(1).Item(1).Name
MsgBox b.PropertySets.Item(1).Item(1).Value
End Sub

[Anonymous]

Perfect! Can I use property name instead of item number using this method?

[bradeneuropeArthur]

Yes

[bradeneuropeArthur]

Change 1 into propertyname

[bradeneuropeArthur]

If you need help please let me know

[bradeneuropeArthur]

These are the propetysets:

1. = Inventor Summary Information
2. = Inventor Document Summary Information
3. = Design Tracking Properties
4. = Inventor User Defined Properties

then your propertyname:

like "Title"

msgbox (b.propertysets.item("Inventor Summary Information").item("Title").value)

[Anonymous]

I still cant get this to work. The VBA language is also unknown to me. I've just played around with VB.net. 

So, I have the assembly: file.iam

I have the path by: 

SyntaxEditor Code Snippet

Dim oFile As String = "\Model\file.iam"
Dim oPath As String = ThisDoc.Path
Dim oDir As New System.IO.FileInfo(oPath) 
oFull = oPath.DirectoryName + oFile

Which gives me: C:\Vault\Model\file.iam

In file.iam, there is a custom iproperty named "Tag1"

In another folder, I have a drawing. I want to retrieve Tag1 in this drawing. 

[Anonymous]

I can even open the specified file.iam by using 

ThisApplication.Documents.Open(oFull, True) 

 But I can not use the command SyntaxEditor Code Snippet

iProperties.Value(oFull, "Custom", "Tag1") 

as it interprets oFull as a document name, not a document name + path.  

[Anonymous]

I use this code"

If ThisDrawing.ModelDocument Is Nothing Then Exit Sub
modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
iProperties.Value("Summary", "Title") = iProperties.Value(modelName,"Summary", "Title")
iProperties.Value("Project", "Description") = iProperties.Value(modelName,"Project", "Description")
iProperties.Value("Summary", "Subject") = iProperties.Value(modelName,"Summary", "Subject")

[Anonymous]

Thanks, but that is still only referring to the model referenced in the drawing. What I can't figure out is how to link to a different file than used in the drawing. I want to retrieve these properties from an assembly in a parent folder..

[bradeneuropeArthur]

Set your illogic code to straight vb . coding

[bradeneuropeArthur]

Don't know what you mean. Do you need to open a different dwg or the dwg from an assembly.

Please explain a little more to clarify the question...

[bradeneuropeArthur]

Public Sub op()

Dim a As Application
Set a = ThisApplication

Dim b As DrawingDocument
Set b = a.Documents.Open("YOUR DOCUMENT FULL NAME", False)

'FOR EACH PROPERTY SET YOU NEED TO DEFINE Item(?).Item
'FOR EACH PROPERTY YOU NEED TO DEFINE Item(x).Item(?)
Dim Propset as propertyset
set Propset = b.PropertySets.Item("Inventor Summary Information")
'= Inventor Summary Information
'= Inventor Document Summary Information
'= Design Tracking Properties
'= Inventor User Defined Properties
msgbox (Propset.Name)

Dim Prop as property
set Prop = Propset.item("Title")
msgbox prop.Name

MsgBox prop.value
End Sub

This For Vb:

[bradeneuropeArthur]

And this for illogic:

Public Sub main()

Dim a As Application
a = ThisApplication

Dim b As DrawingDocument
b = a.Documents.Open("C:\Vault\Projects\Drawing1.dwg", False)

'FOR EACH PROPERTY SET YOU NEED TO DEFINE Item(?).Item
'FOR EACH PROPERTY YOU NEED TO DEFINE Item(x).Item(?)
Dim Propset As PropertySet
 Propset = b.PropertySets.Item("Inventor Summary Information")
'= Inventor Summary Information
'= Inventor Document Summary Information
'= Design Tracking Properties
'= Inventor User Defined Properties
MsgBox (Propset.Name)

Dim Prop As Inventor.Property
 Prop = Propset.Item("Title")
MsgBox (Prop.Name)

MsgBox (Prop.Value)
End Sub