topic Re: Rename automatically in Inventor Programming Forum

Rename automatically

이슬이 — Fri, 26 Jun 2020 01:11:20 GMT

If you make a hole when working on a part, the hole 1 will be displayed on the left searcher.
I want to make the name displayed in the searcher automatically change to M3 instead of hole 1 when a size 3 hole is made.
Is it possible?

Re: Rename automatically

_dscholtes_ — Fri, 26 Jun 2020 08:25:33 GMT

Did you know you can show extended information about features in the model tree? It works on all features, not on individual ones (aka holes only). The setting can be found here: Tools > Application Options > Part > Display extended information after feature node name in browser (this is a check box)

Re: Rename automatically

이슬이 — Fri, 26 Jun 2020 08:42:31 GMT

I know how. I want the name to change automatically.
Is there no way?

Re: Rename automatically

Anonymous — Fri, 26 Jun 2020 15:19:09 GMT

You can use this to rename holes based on their diameters, but you'll have to run the rule manually. I'm trying to make it automatic though, if I do I will post it here.

You will need some sort of numbered naming system because multiple holes can't have the same name

Dim oDoc As PartDocument = ThisDoc.Document

For Each oHole As HoleFeature In oDoc.ComponentDefinition.Features.HoleFeatures
	
	'Divide by 2.54 to convert cm to in
	If oHole.HoleDiameter.Value/2.54 = 3 Then
		
		oHole.Name = "Hole Name Here"
		
	End If
	
Next

Re: Rename automatically

Anonymous — Fri, 26 Jun 2020 15:48:18 GMT

Here's some updated code including a simple numbered naming system

Dim oDoc As PartDocument = ThisDoc.Document
Dim oDef As ComponentDefinition = oDoc.ComponentDefinition
Dim oCount As Integer
Dim oName As String = "Hole Name Here"
Dim oNewHole As HoleFeature = oDef.Features.HoleFeatures.Item(oDef.Features.HoleFeatures.Count)

For Each oHole As HoleFeature In oDoc.ComponentDefinition.Features.HoleFeatures

        'Divide by 2.54 to convert cm to in
	If oHole.Name.Contains(oName) And oHole.HoleDiameter.Value / 2.54 = .25
			
			oCount += 1
		
	End If
	
Next

oNewHole.Name = oName & "_" & oCount

It seems the easiest way to make it automatic is to use Inventors built in events.

Go to Manage and Event Triggers

Drag the rule with the hole code under the Part Geometry Change. This will make the rule run anytime part geometry changes which includes creating holes. It's pretty lightweight, so it shouldn't cause any slowdowns if you leave it on, but you can always turn it on/off as needed

Re: Rename automatically

이슬이 — Mon, 29 Jun 2020 08:56:19 GMT

Thank you for answer.

However, in the second coding, the following error occurs.

The parameters are wrong. (Exception occurred HRESULT: 0x80070057 (E_INVALIDARG))

Re: Rename automatically

Anonymous — Mon, 29 Jun 2020 12:49:36 GMT

Try this. I added some additional checks to prevent errors.

Dim oDoc As PartDocument = ThisDoc.Document
Dim oDef As ComponentDefinition = oDoc.ComponentDefinition
Dim oCount As Integer
Dim oName As String = "Hole Name Here"
Dim oNewHole As HoleFeature
Dim oDiam As Decimal = .25 'Desired diameter in inches

If Not oDef.Features.HoleFeatures.Count = 0 Then
	 oNewHole = oDef.Features.HoleFeatures.Item(oDef.Features.HoleFeatures.Count)
End If

For Each oHole As HoleFeature In oDoc.ComponentDefinition.Features.HoleFeatures

        'Divide by 2.54 to convert cm to in
	If oHole.Name.Contains(oName) And oHole.HoleDiameter.Value / 2.54 = oDiam
			
			oCount += 1
		
	End If
	
Next

If oNewHole IsNot Nothing Then

	If oNewHole.HoleDiameter.Value / 2.54 = oDiam
		
		oNewHole.Name = oName & "_" & oCount
		
	End If

End If

Re: Rename automatically

WCrihfield — Mon, 29 Jun 2020 13:02:36 GMT

Perhaps something like this would work better for you?

It uses the ExtendedName portion of the feature's name (without the () marks at both ends, then just adds its item index number as an Integer at the end of the name, to ensure the name is unique each time.

Dim oPDoc As PartDocument = ThisApplication.ActiveDocument Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition Dim oHoles As HoleFeatures = oPDef.Features.HoleFeatures For i As Integer = 1 To oHoles.Count oHoles(i).Name = Mid(oHoles(i).ExtendedName,2,Len(oHoles(i).ExtendedName)-2) & " " & i Next

In case that ExtentedName info isn't what you want, there are also a couple other routes that you may like. For instance if you check the holes's "IsClearanceHole" Boolean and its "Tapped" Boolean, and if either is true, you can use one or more of its "ClearanceInfo" properties in the name, or some of the properties under"TapInfo" object (which would need to be defined as a "HoleTapInfo" object, before use) to use in the name.

Re: Rename automatically

WCrihfield — Mon, 29 Jun 2020 15:28:46 GMT

@이슬이

Here's an example of one possible variation of my other suggestion:

If the hole is a clearance hole, it uses the fastener size in the name of the hole feature.

If the hole is threaded, it uses the nominal size in the name of the hole feature.

If neither of the above checks were true, it does something similar to my first suggestion, but goes one step further to eliminate the trailing info after the hole diameter in the extended name info.

Dim oPDoc As PartDocument = ThisApplication.ActiveDocument Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition Dim oHoles As HoleFeatures = oPDef.Features.HoleFeatures Dim oSimple As Boolean = True Dim oHCI As HoleClearanceInfo Dim oHTI As HoleTapInfo Dim oExtName As String 'Extended Name For i As Integer = 1 To oHoles.Count If oHoles(i).IsClearanceHole Then oHCI = oHoles(i).ClearanceInfo MsgBox("Fastener Size = " & oHCI.FastenerSize) oHoles(i).Name = oHCI.FastenerSize & " :" & i oSimple = False ElseIf oHoles(i).Tapped Then oHTI = oHoles(i).TapInfo MsgBox("Nominal Size = " & oHTI.NominalSize) oHoles(i).Name = oHTI.NominalSize & " :" & i oSimple = False End If If oSimple = True Then oExtName = Mid(oHoles(i).ExtendedName, 2, Len(oHoles(i).ExtendedName) -2) oHoles(i).Name = Split(oExtName," ")(0) & " :" & i End If Next

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE" 👍.

Also, when you have time, please review & vote for these 'Ideas' I'd like to get implemented.

Add more capabilities to the 'Customize' dialog box (exe. Add Tab & Add Panel) Click Here
Constrain & Dimension Images In Assembly Sketches & Drawing Sketches (TitleBlocks & SketchedSymbols) Click Here
Save Section View Status In DesignViewRepresentation (So It Can Be Used In The Drawing) Click Here
Add SolidBodies Folder In iLogic Rule Editor Model Tab Click Here
Convert All Views To Raster Before Autosave Stores To 'OldVersions' Folder Click Here
SetDesignViewRepresentation - Fix limitations for DrawingView of a Part Click Here
Create DocumentSubTypeEnum Click Here
Add kRevisionTag or kDrawingRevisionTag to ObjectTypeEnum Click Here

Inventor 2020 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum

Re: Rename automatically

이슬이 — Tue, 30 Jun 2020 06:22:00 GMT

Thank you! Thanks a lot.

I have given you various methods, but this method does not cause an error and shows the desired result.

Thank you very much.