Hallo Herr Hansen,
nachfolgend ein Mitschnitt wie der Makroeditor so was aufzeichnet. (V10SP3)
Wie haben Sie sich die Navigation vorgestellt ? Soll die Bohrung selektiert werden, oder hat die Bohrung eine bestimmten Namen oder....
Viele Gruesse
Louis
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = Catia.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim hole1 As Hole
Set hole1 = shapes1.Item("Bohrung.1")
part1.Inactivate hole1
part1.Update
part1.Activate hole1
part1.Update
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP