Rename Origin Planes with iLogic

[ToniDunlop4246]

Self explanatory, I want to rename the origin planes:

YZ Plane -> YZ Plane (RIGHT)

XZ Plane -> XZ Plane (TOP)

XY Plane -> XY Plane (RIGHT)

I come from SolidWorks and I find these names easier to read. I have already updated the templates for our parts, assy's and weldments but I need to update all of our existing files. Any help appreciated 😉

[Sergio.D.Suárez]

Hello, try this rule to perform this action,

Dim oPlaneYZ As WorkPlane = ThisDoc.Document.ComponentDefinition.WorkPlanes.Item(1) 
oPlaneYZ.Name = "YZ Plane (Right)"
Dim oPlaneXZ As WorkPlane = ThisDoc.Document.ComponentDefinition.WorkPlanes.Item(2) 
oPlaneXZ.Name = "XZ Plane (TOP)"
Dim oPlaneXY As WorkPlane = ThisDoc.Document.ComponentDefinition.WorkPlanes.Item(3) 
oPlaneXY.Name ="XY Plane (Right)"

 I hope you can solve your problem, greetings. 

[Sergio.D.Suárez · Accepted solution]

With this rule you can choose between parts and assemblies, by default open the directory of the document you have open, and rename all the files you select, because you have activated the multiple selection

Dim oFileDlg As Inventor.FileDialog = Nothing
InventorVb.Application.CreateFileDialog(oFileDlg)
oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt"
oFileDlg.DialogTitle = "Change Part or Assembly"
oFileDlg.InitialDirectory = ThisDoc.Path
oFileDlg.MultiSelectEnabled =True 
oFileDlg.FilterIndex = 1
oFileDlg.CancelError = True
On Error Resume Next
oFileDlg.ShowOpen()
If Err.Number <> 0 Then
	MessageBox.Show("File not chosen.", "Dialog Cancellation")
ElseIf oFileDlg.FileName <> "" Then
		
	Dim Separators() As Char = {"|"} 
	Sentence = oFileDlg.FileName
	Words = Sentence.Split(Separators)
	
	For Each wrd In Words
	Dim odoc As Document
	odoc = ThisApplication.Documents.Open(wrd, False)
	On Error Resume Next
		Dim oPlaneYZ As WorkPlane = odoc.ComponentDefinition.WorkPlanes.Item(1) 
		oPlaneYZ.Name = "YZ Plane (Right)"
		Dim oPlaneXZ As WorkPlane = odoc.ComponentDefinition.WorkPlanes.Item(2) 
		oPlaneXZ.Name = "XZ Plane (TOP)"
		Dim oPlaneXY As WorkPlane = odoc.ComponentDefinition.WorkPlanes.Item(3) 
		oPlaneXY.Name ="XY Plane (Right)"

	odoc.Save
	odoc.Close
	
	Next

[chandra.shekar.g]

@ToniDunlop4246,

For this, create a new part and rename origin planes and save the part as template at default document path of Inventor 2019(C:\Users\Public\Documents\Autodesk\Inventor 2019\Templates) as shown in below image. Sample template is also attached with this post.

After creating template, you can use same template for creating new part as shown in below.

For detail explanation, refer below knowledge article link.

https://knowledge.autodesk.com/support/inventor-products/learn-explore/caas/CloudHelp/cloudhelp/2016...

Thanks and regards,

[ToniDunlop4246]

Thanks Chandra, I already had my templates set up like this, now I need to update all of the existing parts and assemblies that were created on the old template.

[ToniDunlop4246]

Thanks Sergio, that did the trick. I am just using the code snippet to do the current open document for now, but will look at the rest of your code in order to do multiple files which would be ideal.