' Makro:    		AuslesenAusExcel.CATScript
' Version: 			1.0
' Code:     		CATIA CATScript
' Zweck:    		Auslesen eines Wertes aus Excel und einfügen in Textfeld
' Autor:    		
' Datum:  			16.07.2004
'-------------------------------------------------------------------------------------------------------------------------
CATIA.StatusBar = "AuslesenAusExcelr.CATScript, Version 1.0"

Dim ExcelApplication As Object
Dim DrawingDocument As DrawingDocument
Dim Text1, Text2 As String

Sub CATMain()
    
    Set DrawingDocument = CATIA.ActiveDocument
    Set ExcelApplication = GetObject(, "Excel.Application")
    
    Text1 = ExcelApplication.Worksheets(1).Cells(2, 1).Value
	Text2 = ExcelApplication.Worksheets(1).Cells(2, 2).Value

    DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = Text1
	DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(2).Text = Text2

End Sub







' Makro:    		AuslesenAusExcel_V4.CATScript
' Version: 			1.0
' Code:     		CATIA CATScript
' Zweck:    		Auslesen eines Wertes aus Excel und einfügen in Parameter
' Autor:    		
' Datum:  			02.08.2004
'-------------------------------------------------------------------------------------------------------------------------
CATIA.StatusBar = "AuslesenAusExcel_V4.CATScript, Version 1.0"

Dim ExcelApplication As Object
Dim Document As Document
Dim Wert As String

Sub CATMain()
    
    Set Document = CATIA.Documents
    Set ExcelApplication = GetObject(, "Excel.Application")
    
    Wert = ExcelApplication.Worksheets(1).Cells(2, 1).Value

	 Document.Item ("Part2.CATPart").Part.Parameters.Item ("`Test`").Value = Wert

End Sub






' Makro:    		AuslesenAusExcel_V3.CATScript
' Version: 			1.0
' Code:     		CATIA CATScript
' Zweck:    		Auslesen eines Wertes aus Excel und einfügen als Körpername
' Autor:    		
' Datum:  			02.08.2004
'-------------------------------------------------------------------------------------------------------------------------
CATIA.StatusBar = "AuslesenAusExcel_V3.CATScript, Version 1.0"

Dim ExcelApplication As Object
Dim Document As Document
Dim Text1 As String

Sub CATMain()
    
    Set Document = CATIA.Documents
    Set ExcelApplication = GetObject(, "Excel.Application")
    
    Text1 = ExcelApplication.Worksheets(1).Cells(2, 1).Value

    Document.Item("Part2.CATPart").Part.Bodies.Item("Hallo").Name = Text1
	
End Sub






' Makro:    		AuslesenAusExcel_V2.CATScript
' Version: 			2.0
' Code:     		CATIA CATScript
' Zweck:    		Auslesen eines Wertes aus Excel und einfügen in ein bestimmtes Textfeld
' Autor:    		
' Datum:  			20.07.2004
'-------------------------------------------------------------------------------------------------------------------------
CATIA.StatusBar = "AuslesenAusExcel_V2.CATScript, Version 2.0"

Dim ExcelApplication As Object
Dim DrawingDocument As DrawingDocument
Dim Text1, Text2 As String

Sub CATMain()
    
    Set DrawingDocument = CATIA.ActiveDocument
    Set ExcelApplication = GetObject(, "Excel.Application")
    
    Text1 = ExcelApplication.Worksheets(1).Cells(2, 1).Value
	Text2 = ExcelApplication.Worksheets(1).Cells(2, 2).Value

n=0
Do
n=n+1

If DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(n).Name = "Hallo" Then
	DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(n).Text = Text1
else
	Exit sub
End if

Loop until n = 5

    'DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = Text1
	'DrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(2).Text = Text2
End Sub







' Makro:    		AuslesenAusExcelParameter.CATScript
' Version: 			1.0
' Code:     		CATIA CATScript
' Zweck:    		Auslesen eines Wertes aus Excel und einfügen in Textfeld
' Autor:    		
' Datum:  			16.07.2004
'-------------------------------------------------------------------------------------------------------------------------
CATIA.StatusBar = "AuslesenAusExcelParameter.CATScript, Version 1.0"

Sub CATMain()

' Parameter erzeugen -----------------------------------------------------------------------------------------------
Dim Bauteilnummer, Bauteilname As StrParam
Set Bauteilnummer = CATIA.ActiveDocument.Parameters.CreateString ("`Bauteilnummer`", "")
Set Bauteilname = CATIA.ActiveDocument.Parameters.CreateString ("`Bauteilname`", "")

' Konstruktionstabelle zuweisen ------------------------------------------------------------------------------------
Dim Beziehung As Relations
Dim KName, Beschreibung, Pfad As CATBSTR

KName = "Werkzeugausgangswerte"
Beschreibung = ""
Pfad = "H:\Diplom\CATIA\Tabelle.xls"
Set Beziehung = CATIA.ActiveDocument.Relations.CreateDesignTable (KName, Beschreibung, false, Pfad)

' Parameter verknuepfen --------------------------------------------------------------------------------------------
Beziehung.AddAssociation Bauteilnummer, "Bauteilnummer"
Beziehung.AddAssociation Bauteilname, "Bauteilname"

Beziehung.Configuration = 1
Bauteilnummer.Rename "Bauteilnummert"
Bauteilname.Rename "Bauteilname"

CATIA.ActiveDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = CStr(Bauteilnummer.Value)
CATIA.ActiveDocument.Sheets.Item(1).Views.Item(1).Texts.Item(2).Text = CStr(Bauteilname.Value)

End Sub