Hallo Forum,
leider bin ich mit dem Inventor Objektmodell noch nicht so vertraut (auch wenn es dazu eine sehr schöne Grafik gibt) und habe somit noch Probleme bei meinem ersten Makro:
Ziel des Makros ist es, die Richtung der Anordnung ilogic-gesteuert umzuschalten.
Hier die Prozedur:
Public Sub patterndirection(direction As Boolean, doc As PartDocument)
'Diese Funktion setzt die Anordnungsrichtung 1 entgegen der Z-Achse
'Diese Funktion setzt die Anordnungsrichtung 1 in Richtung der Z-Achse
'Direction: Variable für Anordnungsrichtung (z / -z)
'Dim doc As PartDocument 'Variable für dieses Dokument
'Hilfsvariable
Dim pat1 As RectangularPatternFeature 'Variable für das gesuchte Anordnungs-Feature
Dim opartdef As PartComponentDefinition
'Setzen der aktuellen Werte für Dokument, Anordnung und Richtung
Set opartdef = doc.ComponentDefinition
Set pat1 = opartdef.parfeatures.RectangularPatternFeatures("AnordnungVolleWindungen")
'Parameter Richtung Anordnung einstellen
pat1.NaturalXDirection = direction
End Sub
Hier die Test-Prozedur, mit der ich das ganze auf VBA-Ebene testen wollte:
Private Sub testepatterndirection()
'Testen der Funktion patterndirection
Dim doceiskond As PartDocument
If Application.ActiveDocument = Application.FindFile Then
Set doceiskond = Application.ActiveDocument = PartDocument
End If
Call patterndirection(False, doceiskond)
Call patterndirection(True, doceiskond)
End Sub
Und hier der Aufruf über ilogic:
'doc = ThisDoc.Document
''Einstellen aller Parameter auf Benutzerdefinierte Wickelrichtung
''Eingabegrößen: fx:Wickelrichtung (Text)
''Ausgabe: fx:Wickelrichtung_Number (1 wenn mit UZS, -1 wenn gegen UZS)
'If Wickelrichtung="mit UZS" Then
' Wickelrichtung_Number=1
' InventorVb.RunMacro("Anwendungsprojekt", "Wickelrichtung", "patterndirection", False)
'ElseIf Wickelrichtung="gegen UZS" Then
' Wickelrichtung_Number=-1
' InventorVb.RunMacro("Anwendungsprojekt", "Wickelrichtung", "patterndirection", True)
'End If
'
Leider läuft das bei mir immer in Fehler, die darauf hindeuten, dass ich etwas grundsätzliches mit den Objekten falschmache.
Kann mir wer helfen, wo der Fehler ist?
Danke!
------------------
Gruß
Michael
--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP