Hallo Zusammen,
ich möchte gerne für Inventor ein Makro mit folgender Funktion schreiben:
Benutzer öffnet mit dem Makro eine Userform mit Buttons und eingabe feldern.
Eingabefelder: Höhe, Breite, Tiefe, Wandstärke, Kistennummer
Buttons: [Erstelle Kiste], [Erstelle Zeichnung],[Kiste Speichern] ,[Abbrechen]
Am besten wäre das Makro immer als Schaltfläche im Inventor eingebunden.
Der Benutzer klickt auf [Erstelle Kiste] und es soll eine Vorlage mit 3D Modell geöffnet werden und die Maße werden aus den Eingabefeldern ausgelesen. Der Clou wäre die Kistennummer auszulesen und direkt als Dateiname zu vergeben.
Speichern von Bauteil & Zeichnung gleichzeitig als Kopie mit der eingegebenen Kistennummer als Dateiname.
Da ich mit VBA bisher nicht so viel zu tun hatte, ist das ganze noch nicht ausgereift.
Mir fehlt noch das Verständnis was ich als was definieren muss um was bestimmtes zu bekommen.
-------------------------------------------------
'##########################################################################
Dim Bauteil As Inventor.PartDocument
Dim Wert As Parameters
Dim laenge As Double
Dim breite As Double
Dim hoehe As Double
Dim wandstaerke As Double
'##########################################################################
'PRÜFEN OB TEXTFELD LEER
If label_hoehe.Value = "" Then
MsgBox "Bitte einen höheren Wert als 0 eingeben."
Exit Sub
End If
'#############################
If label_breite.Value = "" Then
MsgBox "Bitte einen höheren Wert als 0 eingeben."
Exit Sub
End If
'#############################
If label_laenge.Value = "" Then
MsgBox "Bitte einen höheren Wert als 0 eingeben."
Exit Sub
End If
'#############################
If label_wandstaerke.Value = "" Then
MsgBox "Bitte die Wandstärke größer als 1 setzen."
Exit Sub
End If
'##########################################################################
'BAUTEIL WIRD GEÖFFNET
MsgBox "Teil wird geöffnet"
ThisApplication.SilentOperation = True
ThisApplication.Documents.Open ("C:\Kiste.ipt")
ThisApplication.SilentOperation = False
'##########################################################################
'Maße vom Textfeld einlesen
Set Bauteil = ThisApplication.ActiveDocument
Set Wert = Bauteil.ComponentDefinition.Parameters
'#############################
breite = label_breite.Value / 10
Wert.Item("d6").Value = breite
'#############################
laenge = label_laenge.Value / 10
Wert.Item("d5").Value = laenge
'#############################
hoehe = label_hoehe.Value / 10
Wert.Item("d7").Value = hoehe
'#############################
wandstaerke = label_wandstaerke.Value / 10
Wert.Item("d9").Value = wandstaerke
'##########################################################################
Dim oView As View
Set oView = ThisApplication.ActiveView
Dim oCamera As Camera
Set oCamera = oView.Camera
oView.DisplayMode = kShadedWithEdgesRendering
oView.Update
oCamera.ViewOrientationType = kFrontViewOrientation
oCamera.Fit
oCamera.Apply
'#############################
breite = label_breite.Value / 10
Wert.Item("d6").Value = breite
'#############################
laenge = label_laenge.Value / 10
Wert.Item("d5").Value = laenge
'#############################
hoehe = label_hoehe.Value / 10
Wert.Item("d7").Value = hoehe
'#############################
wandstaerke = label_wandstaerke.Value / 10
Wert.Item("d9").Value = wandstaerke
'#############################
oView.DisplayMode = kShadedWithEdgesRendering
oView.Update
oCamera.ViewOrientationType = kFrontViewOrientation
oCamera.Fit
oCamera.Apply
End Sub
----------------------------------------------
Was wäre z.B notwendig um die Kiste.ipt (Vorlage) zu öffnen
aber aus dem Kistennummer feld.value den Dateiname zu bestimmen?
Vielen Vielen Dank im Voraus!!!!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP