---

Hi, ich will die Bohrungs Features automatisch umbenennen lassen wenn ich auf ein Button klicke, aber vorerst sollte das Makro überhaupt mal laufen  

Was ich bisher zusammenkopiert hab:
Sub test()
Dim partdoc As PartDocument
Set partdoc = ThisApplication.ActiveDocument

Dim oCompDef As PartComponentDefinition
Set oCompDef = partdoc.ComponentDefinition

Dim oPart As PartFeature

For Each oPart In oCompDef.Features
    If oPart.Type = kHoleFeatureObject Then
        Select Case oPart
        'MsgBox (oPart.Name)
       

    End If
Next oPart
End Sub

weiter bin ich noch nicht gekommen weil ich keine Ahnung hab wie ich die jetzt von Fall zu Fall unterscheiden kann um reinzuschreiben obs eine Gewindebohrung ist die ich dann mit M16x30-1 benennen würde oder nur eine Durchgangsbohrung mit d18-1

Gruß Thorsten

[Diese Nachricht wurde von surfhai am 17. Sep. 2008 editiert.]

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

---

Schau mal hier...

BTW:
Deutsch: Schaltfläche
Englisch: Button

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke für die schnelle Antwort    
Jetzt bräucht ich noch Unterscheidungsmöglichkeiten für Sacklochbohrung aber da ich ja jetzt weis wie ich zu HoleFeature komme, kann ich selbst schaun denk ich.

Edit: ok, ich find irgendwie nicht heraus wie ich an die Abmessungen der Bohrungen komm wie z.B. Gewindedurchmesser, Gewindetiefe oder den Normalen Bohrungsdurchmesser und Bohrtiefe, ist das Gewinde über die komplette Tiefe der Bohrung usw.

[Diese Nachricht wurde von surfhai am 17. Sep. 2008 editiert.]

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

---

kann mir da jemand sagen wie ich auf die Gewindeinformationen komm?  Ich dreh mich nur im Kreis...  macht zwar spass  aber irgendwann wird einem schlecht davon 

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

---

Rename_Browser.bas.txt

Hallo Surfhai,

wenn es noch aktuell sein sollte:

Ich habe mal irgendwo ein Tool gefunden, mit dem man die Features umbenennen kann. Dort ist beschrieben, wie man an die entsprechenden Eingenschaften kommt. Ich denke es war bei den Beispielen, die mit Inventor mitgeliefert werden.

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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