Assign name for faces in selectset

[ngocson8335]

Hello Everyone,

I would like to assign name for selected faces in selectset. I am using vb.net. Is there any code to do it?

Many thanks.

[bradeneuropeArthur]

Could you please be a little more specific in what you try to do?

Regards,

[ngocson8335]

Hi Mr. Arthur,

Thanks for your reply.

I would like to assign a name for all selected faced in the selectset as the following screenshot:

My code works but it is stoped after named for only one face. ???

        g_inventorApplication = Marshal.GetActiveObject("Inventor.Application")
        _partDoc = g_inventorApplication.ActiveDocument
        Dim _partDef As Inventor.ComponentDefinition
        _partDef = _partDoc.ComponentDefinition
        Dim _selectSet As Inventor.SelectSet
        _selectSet = _partDoc.SelectSet
        For i = 1 To _selectSet.Count
            Dim _selectedFace As Inventor.Face
            _selectedFace = _objectCollection.Item(i)

            Dim iLogicAddinGuid As String = "{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}"

            Dim _addin As Inventor.ApplicationAddIn
            _addin = g_inventorApplication.ApplicationAddIns.ItemById(iLogicAddinGuid)

            Dim _iLogicAuto As Object
            _iLogicAuto = _addin.Automation

            Dim _nameEntities As Object
            _nameEntities = _iLogicAuto.GetNamedEntities(_partDoc)

            Call _nameEntities.SetName(_selectedFace, "Face_" & i)

        Next

Many thanks.

[BrianEkins · Accepted solution]

One problem with your code is that I don't where the _objectCollection variable defined.  

Also, a select set is a somewhat fragile thing.  Making any changes to the model will usually clear the selection.  That's why you can create one but then it fails after that because the selection set is empty.  To avoid this issue you can first save all of the selected entities in a list or array and then iterate over that.  You can do something like what's shown below.

Dim faceList As New List(Of Face)
For Each fc As Face In _selectSet
    faceList.Add(fc)
Next

For Each fc As Face In faceList
    ' Do something with each face.
Next

[ngocson8335]

Hi Mr. BrianEkin,

I have tested and did the same code that you gave me. But it still has the same problem. It is stopped after 1 face. 

Can you help me with this?