---

Hallo,

ich möchte ein Makro erstellen und weiß nicht wie.
Habe schon probiert das ganze mit dem Makrorekorder aufzunehmen und dann irgendwie um zu schreiben.
Aber leider bin ich kläglich gescheitert.

Deswegen frage ich hier die Profis, ob sie mir mal dabei helfen können, von null auf, ein Makro zu erstellen.

Voraussetzung:

Ich habe eine neue Bgrp ohne ein Part abgespeichert.
In dieser Bgrp sind mehrere Skizzen erstellt.

Folgendes soll das Makro können/machen:

1. Einfügen -> Komponente -> Neues Teil...
2. Von diesem neuen Teil die Fixierung löschen.
3. Dann die Hauptebenen (Vorderansicht, Draufsicht, Seitenansicht) von der Bgrp mit den Hauptebenen (Vorderansicht, Draufsicht, Seitenansicht) des neuen Teils verknüpfen.
4. Teil bearbeiten
5. Auf die Vorderansicht des Teils eine Skizze anfangen. Dann aus der Baugruppe eine Skizze auswählen und "Kanten übernehmen".
6. Aufsatz/Basis rotieren 360° um die Achse des Teils. Die Achse ist schon in der Vorlage.
7. Teil bearbeiten beenden.

Hier habe ich mal das aufgenommene Makro:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Vorderansicht@Teil2^SW014088-1@SW014088", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Vorderansicht", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Dim myMate As Object
Set myMate = Part.AddMate2(0, 0, False, 0, 0, 0, 0.001, 0.001, 0.001, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False)
Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Draufsicht", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Draufsicht@Teil2^SW014088-1@SW014088", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
Set myMate = Part.AddMate2(0, 0, False, 0, 0, 0, 0.001, 0.001, 0.001, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False)
Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Seitenansicht", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Seitenansicht@Teil2^SW014088-1@SW014088", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
Set myMate = Part.AddMate2(0, 0, False, 0, 0, 0, 0.001, 0.001, 0.001, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False)
Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("Teil2^SW014088-1@SW014088", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.EditPart
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Vorderansicht@Teil2^SW014088-1@SW014088", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("SK Dichtleiste", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SketchUseEdge2(False)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Achse1@Teil2^SW014088-1@SW014088", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Achse1@Teil2^SW014088-1@SW014088", "AXIS", 0, 0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Skizze1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolve(6.28318530718, False, 0, 0, 0, True, True, True)
Part.SelectionManager.EnableContourSelection = False
Part.AssemblyPartToggle
Part.EditAssembly
Part.ClearSelection2 True
End Sub

Ich weiß, dass das bestimmt nicht einfach wird, deswegen wende ich mich ja an euch.

Für eure Hilfe bin ich euch schon mal dankbar.

Grüße
Marco

------------------
Buss SMS Canzler GmbH
Konstruktion
www.sms-vt.com

[Diese Nachricht wurde von MarcoJ am 09. Nov. 2009 editiert.]

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

---

Makros_018764.zip

Hallo Marco

Da hast du dir ein grösseres Vorhaben ausgehalst. 

Um es dir zu erleichtern lade ich zwei Makros hoch.

Makro 1: "Neues Teil erstellen"
Erstell ein neues Teil aus der Standardvorlage.
(Virtuelle Komponenten mit API gehen erst mit SWX2009 SP4.)

Makro 2: BG und XYZ
Fügt das aktuelle Part in eine neue Baugruppe ein, löst die Fixierung und verknüpft die drei Standardebenen mit Abstand Null.

Beide Makros musst du gegebenenfalls auf deine Vorlagen anpassen. (z.B. Unsere Standardebenen heissen X,Z und Y)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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