---

Hallo zusammen,
ich habe eine vielleicht etwas spezielle Frage zur Dateispeicherung von Bauteilen, Baugruppen und Zeichnungsableitungen mittels iLogic.
Im Zuge der Einführung eines neuen ERP-Systemes, werden unsere Dateien aus Inventor zukünftig nach folgenden Schlüssel abgespreichert:

1te + 2te Stelle= Nummernschlüssel Anlagentyp
_ od. - als Trennstelle
3te + 4te Stelle= Zeichnungsindex
_ od. - als Trennstelle
5te bis 9te Stelle= generierte Artikelnummer aus dem neuen ERP-System.

Besteht die Möglichkeit mittels iLogic für Stelle 1+2 und 3+4 diese mittels zweier Auswahlmenüs einfügen zu lassen?
Hierdurch müsste man nicht immer in externen Listen nachsehen, sondern hätte diese permanent als Auswahlmenü zu Verfügung.

Danke + Gruss
Reinhard

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

---

Moin

Man kann, wenn das Speichern über iLogic läuft, die erforderlichen Infos vorher abfragen und dann im Code weiter nutzen. Ich sehe nur spätestens Probleme, wenn mal mehr als drei Dateien auf einmal erstmalig gespeichert werden sollen. Dann erscheinen die Abfragen zig-mal. Da blickt keiner mehr durch und spätestens nach der fünften Datei hat keiner mehr Lust zum Speichern. 
Ich habe jetzt die beiden Werte als Multivalue Textparameter angelegt, die könnten aber auch hart in den Quellcode gesetzt werden.

Code:

---

'Namensvergabe nur beim ersten Speichern (FullDocumentName ist noch leer) erforderlich
If ThisDoc.Document.FullDocumentName IsNot String.Empty Then
Exit Sub
End If

Dim sAnlagentyp As String = InputListBox("Anlagentyp: ", MultiValue.List("Anlagentyp"))
Dim sZeichnungsindex As String = InputListBox("Zeichnungsindex: ", MultiValue.List("Zeichnungsindex"))
Dim sArtikelnummer As String = iProperties.Value("Project", "Part Number")
Dim sFileextension As String
Dim sFilter As String

Select Case ThisDoc.Document.DocumentType
Case DocumentTypeEnum.kPartDocumentObject :
sFileextension = "ipt"
sFilter="Inventor Bauteil (*.ipt)|*.ipt|All Files (*.*)|*.*"
Case DocumentTypeEnum.kAssemblyDocumentObject :
sFileextension = "iam"
sFilter="Inventor Baugruppe (*.iam)|*.iam|All Files (*.*)|*.*"
Case DocumentTypeEnum.kDrawingDocumentObject :
sFileextension = "idw"
sFilter="Inventor Zeichnung (*.idw)|*.idw|All Files (*.*)|*.*"
Case DocumentTypeEnum.kPresentationDocumentObject :
sFileextension = "ipn"
sFilter="Inventor Presentation (*.ipn)|*.ipn|All Files (*.*)|*.*"
Case Else :
sFileextension = InputBox("Dateityp?", "iLogic")
sFilter="Inventor Dateien (*.ipt;*.iam;*.idw;*.ipn)|*.ipt;*.iam;*.idw;*.ipn|All Files (*.*)|*.*"

End Select

Dim sFileName As String= sAnlagentyp & "-" & sZeichnungsindex & "-" & sArtikelnummer & "." & sFileextension

MsgBox(sFileName, , "iLogic")

Dim oDlg As Inventor.FileDialog
ThisApplication.CreateFileDialog(oDlg)

oDlg.FileName = sFileName
oDlg.Filter = sFilter
oDlg.FilterIndex = 1

oDlg.ShowSave

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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