Hallo Stefan,
habe beim Importieren leider Schwierigkeiten. Zunächst kommt richtigerweise laut VB Script eine Meldung, daß ein Material file active sein muß. Wenn ich auf das Icon "apply Material" klicke und dann in dem Fenster per Doppelklick eins wähle, kommt die Meldung nicht mehr. Das ist zunächst mal O.K. Aber anschließend sollte man laut VB Script zu weiteren Eingaben aufgefordert werden. So weit läuft es aber offensichtlich nicht. Es passiert schlicht gar nichts...
Es scheint bei diesem Befehl Schluß zu sein, das Fenster kommt nicht (s. ganz unten):
Option Explicit
' COPYRIGTH DASSAULT SYSTEMES 2003
' ***********************************************************************
' Purpose: Import a material library from a text file
'
' Version: 1.0
' Author: BMB
' Languages: CATScript
' Locales: English
' CATIA Level: V5R12
' ***********************************************************************
' Main
Sub CATMain()
' Get the file system object
Dim oFileSys As FileSystem
Set oFileSys = CATIA.FileSystem
' Get the documents collection
Dim oCollection As Documents
Set oCollection = CATIA.Documents
' test if no document is open
If 0 = oCollection.Count Then
msgbox "A new material library document must be active to execute this macro.", vbOKOnly, "Import Material Library"
Exit Sub
End If
' Get material library
Dim oCat As Document
Set oCat = CATIA.ActiveDocument
' test if the active document is a material library (CATMaterial)
If 0 = InStr(oCat.Name, ".CATMaterial") Then
msgbox "A new material library document must be active to execute this macro.", vbOKOnly, "Import Material Library"
Exit Sub
End If
' Get name of the material library text file
Dim sAnswer As String
sAnswer = CATIA.FileSelectionBox("Select a material library text file", "*.matlib", CatFileSelectionModeOpen)
Hast du einen Tip?
Grüße
marmot01
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP