---

Hallo zusammen,

ich möchte gern in einem Zusammenbau Teile Automatisch selektieren. Alos hier zum Beispiel alle aus dem Normteilkatalog eingefügte Lager.

Hier mein Vorschlag zum selektieren:
------------------------------------
Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection As Selection
Set selection = productDocument1.Selection

selection.Search "((((((CATProductSearch.Part + CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATPcsSearch.Part) & Name=*Lager*),all"

End Sub
---------------------------------

Nun möchte ich jedes Einzelne von diesen Lagern so drehen damit sich in der Zeichnungsableitung eine richtige Darstellung ergibt.
Vorraussetzung hierfür sind "normale" Schnitte mittig durchs Lager und eben oder senkrecht.

Wie kann ich nun ein Teil aus der Oberen Auswahl heraussuchen und Drehen?

Mir wäre schon geholfen wenn ich wüßte, wie ein Teil per Makro um eine  Achse gedreht werden kann. Bisher waren alle liefen hier Alle Versuche ins leere.

Vielen Dank für die Mühe schonmal im vorraus.
Freue mich schon auf Eure Anregungen.

Mit freundlichen Grüßen

JonnyXe

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