---

Liebe Community,

ich versuche die Name von Features im Sheetmetal Design per Makro zu ändern. Bei einer Bohrung habe ich es hinbekommen und zwar so:

Sub Zapfsenkung()

  Dim oADP As Part
 
  Dim oSel As Selection
  Set oADP = CATIA.ActiveDocument.Part
  Set oSel = CATIA.ActiveDocument.Selection
 
  oSel.Search "CATSmd_Search.CATSm_Hole3D.HoleType=Counterbored,all"
 
  If oSel.Count >= 1 Then
   
   
    For i = 1 To oSel.Count
     
        oSel.Item(i).Value.Name = ("Zapfsenkung." & i & "")

End Sub

Wenn eine Bohrung mit einer Zapfsenkung erzeugt wird dann automatisch der beginnend bei Zapfsenkung.1 die Namen der Bohrungen umbenannt.

Jetzt versuche ich das gleiche mit einem Tropfen Flansch. Nur leider klappt das nicht:

Sub tropfenflansch()
    Dim oSel As Selection
    Dim partDocument1 As PartDocument
    Set partDocument1 = CATIA.ActiveDocument

    Dim part1 As Part
    Set part1 = partDocument1.Part
 
 
 
    Set part1 = CATIA.ActiveDocument.Part
    Set oSel = CATIA.ActiveDocument.Selection
    oSel.Search "CATSmd_Search.PredefinedFlange.Type=TearDrop,all"
   
   
If oSel.Count >= 1 Then
    For i = 1 To oSel.Count
   
        oSel.Item(i).Value.Name = ("Tropfenflansch." & i & ""))

End Sub

Hat einer eine Idee wie es funktionieren könnte??

Bin auf eure Hilfe angewiesen. 

Grüße

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

---

Kann es sein, dass Du Referenzen statt Features rausbekommst?
Ich würde Item2() von der Selection verwenden.
Warum kannst Du nicht direkt beim Erzeugen umbenennen?
Besitzt das Feature überhaupt die Name Eigenschaft?

Im zweigelsfall kannst Du auch mit .GetItem("Name") = "blubb" arbeiten.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo HoBLila,

Item2(), und GetItem() klappen leider auch nicht. Ich glaube das Feature besitzt die Eigenschaft Name auch nicht. Deswegen währe eine mögliche Alternative hilfreich.

Um deine Frage zu beantworten, es geht um eine Standardisierung des Konstruktionsbaumes. Das Makro wird nach der Konstruktion gestartet und die Features werden standardgerecht umbenannt. Manuell würde es zuviel Zeit kosten.

Deswegen brauche ich eine alternativen Weg.

Grüße 

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

---

Hallo,

du könntest mal folgendes versuchen.

Dim oModElem as ModelElement
Set oModElem = oSel.Item(i).Value.GetItem("ModelElement")

oModElem.InternalName = "irgendwas"
,bzw.

oModElem.DisplayName = "irgendwas"

Ich glaube mit einem Selection Value habe ich das noch nicht gemacht, aber könnte u.U. gehen.

Evtl. könntest du auch den Body durchgehen (Shapes) und den jeweiligen Typ abfragen und dann über Shape.Name = "irgendwas" den Namen ändern.

Gruß
Randle

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