---

Hallo Forum,
das nachfolgende Makro schaltet in einer ipt die Skizze Zylinderposition2 aktiv, wenn sie vorhanden ist. In einer iam folgt auch wenn das gleiche Bauteil dort aktiv ist, ein  Abbruch. Wie komme ich hierbei zum Ziel. Ich möchte eine Skizze aktivieren und anschließend einen Arbeitspunkt eines anderen Bauteils projezieren?

Gruß
Seher

Public Sub StartSketchEdit()
   
    ' Set a reference to the Sketches collection.  This assumes
    ' that a part document containing a sketch is active.
    Dim oSketches As PlanarSketches
    Set oSketches = ThisApplication.ActiveDocument.ComponentDefinition.Sketches
   
       
   
    ' Get the sketch named "Zylinderposition2".
    On Error Resume Next
    Dim oSketch As PlanarSketch
    Set oSketch = oSketches.Item("Zylinderposition2")
    If Err Then
        MsgBox "Eine Skizze mit dem Namen ""Zylinderposition2"" muss existieren."
        Exit Sub
    End If
    On Error GoTo 0
   
    ' Open the sketch for edit to allow the user to edit it.
    oSketch.Edit
End Sub

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

---

Hallo Seher,
Das Problem liegt in

Set oSketches = ThisApplication.ActiveDocument.ComponentDefinition.Sketches

wie der Kommentar schon sagt: This assumes that a partdocument is active.

In einer ipt ist die ComponentDefinition von einem anderen Typ (PartComponentDefinition) als in der iam (AssemblyComponentDefinition). Das Bedeutet, das es auch andere Eigenschaften und Methoden gibt.

Du musst erstmal das eigentliche PartDocument in deiner iam finden und dort dann die Skizze nehmen.

Dazu musst Du die

ThisApplication.ActiveDocument.ComponentDefinition.Occurences

durchsuchen, bis Du ein

ThisApplication.ActiveDocument.ComponentDefinition.Occurences(n).Definition.Type = kPartDocumentObject

findest. Die kannst Du nach Skizzen durchsuchen.

Für den Fall

ThisApplication.ActiveDocument.ComponentDefinition.Occurences(n).Definition.Type = kAssemblyDocumentObject

musst Du noch die

ThisApplication.ActiveDocument.ComponentDefinition.Occurences(n).Definition.SubOccurences

absuchen, da du es dann mit verschachtelten Baugruppen zu tun hast. Am besten über eine rekursive Funktion.

------------------
Grüße Jörgen

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

---

Hallo Jörgen,
erstmal vielen vielen Dank für die schnelle Antwort. Werde es die Tage mal ausprobieren. Gibt es einen VBA Kurs/ecourse/privatecourse speziell auf Inventor getrimmt? Habe Interesse.
Gruß
Seher

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

---

Es gibt ein Tutorial von Adesk in Deutsch:
http://www.autodesk.de/adsk/index/0,,2109384-403786,00.html

Alles weitere in Englisch:

http://www.sdotson.com/ http://www.cbliss.com/inventor/ http://usa.autodesk.com/adsk/index/0,,1079044-123112,00.html

Newsgroup:

news://discussion.autodesk.com/autodesk.inventor.customization

Viel Spaß beim Sööfn.

------------------
Grüße Jörgen

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