iLogic code to change iProperties on each open drawing

[Anonymous]

I frequently have to make copies of large sets of drawings and then change only a select few iproperties.  I want to automate this a little.

Dim oDoc As Document
For Each oDoc In ThisApplication.Documents.VisibleDocuments
	If oDoc.DocumentType = kDrawingDocumentObject Then
	MsgBox ("it worked once")
	iProperties.Value(ThisDrawing,"Project", "Project")="newproject"
	End If
Next oDoc

This code gives me a message box for each open drawing, but only changes the iProperties on whichever drawing is active when I run the code.

Any thoughts?

Inventor 2013

[MechMachineMan · Accepted solution]

This might work:

Dim oDoc As Document
For Each oDoc In ThisApplication.Documents.VisibleDocuments
	If oDoc.DocumentType = kDrawingDocumentObject Then
	MsgBox ("it worked once")
        oDoc.Activate
	iProperties.Value(ThisDrawing,"Project", "Project")="newproject"
	End If
Next oDoc

or if not... 

Dim oDoc As Document
For Each oDoc In ThisApplication.Documents.VisibleDocuments
	If oDoc.DocumentType = kDrawingDocumentObject Then
	    MsgBox ("it worked once")
            oDoc.PropertySets("Design Tracking Properties")("Project").Value = "newproject"
	End If
Next oDoc

http://modthemachine.typepad.com/my_weblog/2010/02/accessing-iproperties.html 

[Anonymous]

I'm sure theres a reason why

iProperties.Value(ThisDrawing,"Project", "Project")="newproject"

would only ever change the drawing you started with.  Even watching it cycle through all the sheets, and even though the code suggests it should be changing the iproperties, it just wasnt. 

The 2nd suggestion works far better, less code, executes faster, etc. 

Thanks a ton.  I'm new to programming and a minor annoyance to me with VB as I understand compared to some other lower level languages is how many different ways there are to do almost exactly the same thing.