ILOGIC / VBA: rename default plans

[amarcoc]

Hi.

I want to rename the default plans with a ilogic or macro function (in both assembly and part files)

I searched and tried, but couldnt do it.

Any ideas?

Thanks

[amarcoc · Accepted solution]

Answered myself:

For Each oWorkPlane In ThisDoc.Document.ComponentDefinition.WorkPlanes
	Select Case oWorkPlane.Name 
		Case "YZ Plane - RIGHT", "XZ Plane - TOP", "XY Plane - FRONT"
			oWorkPlane.Visible = False
		Case "YZ Plane"
			oWorkPlane.Name = "YZ Plane - RIGHT"
		Case "XZ Plane"
			oWorkPlane.Name = "XZ Plane - TOP"
		Case "XY Plane"
			oWorkPlane.Name = "XY Plane - FRONT"
		Case Else
			'MessageBox.Show("Planos não encontrados", "Planos")
	End Select
Next

It renames and hides specific plans.

Thanks!

[Jef_E]

I believe this code would be better without the last else statement, this will result in many message boxed is there are more planes than just the default plane.

For Each oWorkPlane In ThisDoc.Document.ComponentDefinition.WorkPlanes
	Select Case oWorkPlane.Name 
		Case "YZ Plane - RIGHT", "XZ Plane - TOP", "XY Plane - FRONT"
			oWorkPlane.Visible = False
		Case "YZ Plane"
			oWorkPlane.Name = "YZ Plane - RIGHT"
		Case "XZ Plane"
			oWorkPlane.Name = "XZ Plane - TOP"
		Case "XY Plane"
			oWorkPlane.Name = "XY Plane - FRONT"
	End Select
Next

[amarcoc]

Thank you.

That message was only for debugging.

In fact, in latest version I removed it.

Thanks