---

24-07-2025_14-31-02.jpg

Hallo, ist es möglich, in einer Ebene die platzierten iFeatures automatisch mit Namen(Benannte Objekte)zu versehen?
Sowohl in der IPT- als auch in der DWG-Datei können die Namen manuell vergeben werden.
Die Abfrage funktioniert hervorragend, sobald die Namen einmal vergeben sind.
Der Hintergrund meiner Frage ist erneut die automatische Platzierung der Bemaßung.
Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

An ein iFeature kann kein Name gehangen werden, du musst eine der erzeugten Flächen/Kanten/Vertex benutzen.
Wenn du das iFeature mit iFeatures.Add gerade erzeugt hast, kannst du das zurückgegebene Objekt auch als Argument an eine Funktion übergeben. Dann muss nicht wie im Beispiel das letzte iFeature in der Liste geholt werden und der Code kürzt sich auf die Hälfte. Welche Fläche du nimmst und wie die Namenskonvention aussieht, deine Entscheidung.

Code:

---

Option Explicit

Private Sub AddNamedGeometry()
    Const iLogicAddinGuid As String = "{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}"

    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument

    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition
   
    Dim oFeats As PartFeatures
    Set oFeats = oCompDef.Features
   
    Dim oiFeats As iFeatures
    Set oiFeats = oFeats.iFeatures
       
    Dim oiFeat As iFeature
    Set oiFeat = oiFeats.Item(oiFeats.Count)
   
    Dim oFace As Face
    Set oFace = oiFeat.Faces.Item(1)
   
    Dim oAddin As ApplicationAddIn
    Set oAddin = ThisApplication.ApplicationAddIns.ItemById(iLogicAddinGuid)

    Dim iLogicAuto As Object
    Set iLogicAuto = oAddin.Automation

    Dim oNamedEntities As Object
    Set oNamedEntities = iLogicAuto.GetNamedEntities(oPartDoc)

    Call oNamedEntities.SetName(oFace, oiFeat.Name & "_Face")
End Sub

---

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf, danke schon einmal!
Ich habe das folgendermaßen gelöst.(in iLogic)

'-----------------------------

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

Dim oCompDef As PartComponentDefinition
oCompDef = oPartDoc.ComponentDefinition

Dim oWorkPlanes As WorkPlanes
oWorkPlanes = oCompDef.WorkPlanes
Dim oWorkPlane As WorkPlane

Dim oFeats As PartFeatures
oFeats = oCompDef.Features

Dim oiFeats As iFeatures
oiFeats = oFeats.iFeatures

Dim oiFeat As iFeature
'oiFeat = oiFeats.Item(oiFeats.Count)
Dim oFace As Face

Dim Stanzbildname As String

Dim j As Integer
Dim i As Integer
Dim Name_Workplane As String

Dim ebene_1 As Object 
''--------------------------------Suche nach Bearbeitung in der Ebene "Höhe 2" ----------------------|
For i = 1 To oCompDef.WorkPlanes.Count                                        '----------------------|
Name_Workplane = oCompDef.WorkPlanes.Item(i).Name
'MessageBox.Show(Name_Workplane, "Title")
If Name_Workplane = "hoehe_2" Then
'MessageBox.Show(Name_Workplane, "Title")
For j = 1 To oPartDoc.ComponentDefinition.Features.iFeatures.Count
oiFeat = oiFeats.Item(oiFeats.Item(j).Name)
oFace = oiFeat.Faces.Item(1)
'MessageBox.Show(j, "Title")
If(oiFeat IsNot Nothing) Then
      'Stanzbildname = oPartDoc.ComponentDefinition.Features.iFeatures.Item(j).Name
ThisDoc.NamedEntities.SetName(oFace, "Bearbeitung_H2_nr" & j)
'MessageBox.Show(Stanzbildname, "Title")
End If
    Next
Else
'MessageBox.Show("Gibt es nicht", "iLogic")
End If

Next

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP