topic Rename only circular pattern solids in Inventor Programming Forum

Rename only circular pattern solids

manu.marjanen — Tue, 14 Jun 2022 11:20:53 GMT

How can i rename only circular pattern solids?

for example, Circular pattern1 solid names from Part01...Part10

Re: Rename only circular pattern solids

Michael.Navara — Tue, 14 Jun 2022 11:54:38 GMT

This renames newly created SurfaceBodies except the first one (source body)

Dim part As PartDocument = ThisDoc.Document Dim circPattern = part.ComponentDefinition.Features.CircularPatternFeatures(1) Dim i As Integer = 1 For Each surfBody As SurfaceBody In circPattern.SurfaceBodies surfBody.Name = String.Format("Part_{0:0#}", i) i += 1 Next

Re: Rename only circular pattern solids

manu.marjanen — Tue, 14 Jun 2022 13:18:44 GMT

Almost good.
Now, indeed, the first part does not get a new name.

Does anyone get the modified code so that the name of all the parts changes?

Re: Rename only circular pattern solids

Curtis_W — Tue, 14 Jun 2022 17:35:15 GMT

Hi @Michael.Navara

Try this update to Michael.Navara's example.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim part As PartDocument = ThisDoc.Document
Dim circPattern = part.ComponentDefinition.Features.CircularPatternFeatures(1)
Dim i As Integer = 1
circPattern.Parent.SurfaceBodies.Item(1).Name = String.Format("Part_{0:0#}", i)
For Each surfBody As SurfaceBody In circPattern.SurfaceBodies
	i += 1
	surfBody.Name = String.Format("Part_{0:0#}", i)
Next

Re: Rename only circular pattern solids

manu.marjanen — Wed, 15 Jun 2022 03:23:59 GMT

The names of the first circular pattern change correctly.
But the name of the first part of the second circular pattern does not change.

Re: Rename only circular pattern solids

A.Acheson — Wed, 15 Jun 2022 04:44:18 GMT

To add to the guys work this is why only the first pattern was targeted where (1) is the first in the CircularPatternFeatures collection.

Dim circPattern = part.ComponentDefinition.Features.CircularPatternFeatures(1)

Here it is for all patterns just loop through the CircularPatternFeatures collection

Dim part As PartDocument = ThisDoc.Document
Dim i As Integer = 1
For Each circPattern As CircularPatternFeature In part.ComponentDefinition.Features.CircularPatternFeatures
	circPattern.Parent.SurfaceBodies.Item(1).Name = String.Format("Part_{0:0#}", i)
	For Each surfBody As SurfaceBody In circPattern.SurfaceBodies
		i += 1
		surfBody.Name = String.Format("Part_{0:0#}", i)
	Next 
Next

Re: Rename only circular pattern solids

manu.marjanen — Wed, 15 Jun 2022 06:25:19 GMT

I want to rename different circular patterns with different names, this does not work for it.

for example.

Circular pattern 1: Plate_1_01 ... Plate_1_10 (10 plates)

Circular pattern 2: Plate_2_01 ... Plate_2_05 (5 plates)

Can you edit the code to make it work this way?

Re: Rename only circular pattern solids

Curtis_W — Wed, 15 Jun 2022 14:40:07 GMT

Hi @manu.marjanen ,

Give this example a try.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim part As PartDocument = ThisDoc.Document
Dim j As Integer = 1
For Each circPattern As CircularPatternFeature In part.ComponentDefinition.Features.CircularPatternFeatures
	Dim i As Integer = 1
	circPattern.Parent.SurfaceBodies.Item(1).Name = String.Format("Plate_" & j & "_{0:0#}", i)
	For Each surfBody As SurfaceBody In circPattern.SurfaceBodies
		i += 1
		surfBody.Name = String.Format("Plate_" & j & "_{0:0#}", i)
	Next
	j += 1
Next