---

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

---

Du liest den halt aus und sagst "save as".
Oder Du kopierst am Anfang deine Vorlage als neue Datei mit dem Namen irgendwohin und öffnest und bearbeitest sie dann.

Wo ist das Problem?

------------------
Gruß Lothar Boekels

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK in Viersen
Das könnt Ihr auch tun.

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

---

Jo, nur komme ich nicht von selbst auf solche Lösungen in VBA , aber dank Google.de und dem Forum ging's.

label_kistennummer.Value ist das Textfeld

-----------------------------------------------------------------
Dim iDoc As Document
Set iDoc = Inventor.ThisApplication.ActiveDocument
Dim Docname As String

Dim Kistennummer As String
Kistennummer = label_kistennummer.Value

If label_kistennummer.Value = "" Then
MsgBox "Kistennummer nicht angegeben!"
Exit Sub
End If

Docname = CStr(Split(StrReverse(CStr(Split(StrReverse(iDoc.FullFileName), "\")(0))), ".")(0))

Dim Path As String
Dim Neuekiste As String

Path = "C:\"
Neuekiste = Path & Kistennummer & ".ipt"

iDoc.SaveAs Path & Kistennummer & ".ipt", True

ThisApplication.SilentOperation = True
ThisApplication.Documents.Open (Neuekiste)
-----------------------------------------------------------------

puuuh 

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