Das Ziel des Makros, ist es einem Part Material, Bezeichnung und Dichte zuzuweisen. Für einen Part, welches diese Parameter noch nicht hat, habe ich es geschafft.
Das Problem entsteht jedoch bei Parts, wo die Dichte schon Vorhanden ist und über eine Formel verknüpft.
Wenn wir die Konstruktionstabelle mit Exceltabelle verknüpfen dann klappt es zwar bei Material und bei der Bezeichnung, aber die Dichte wird nicht verknüpft (Fehlermeldung: The parameter type isn't compliant with the column type or with values in this column).
Meine Frage: Um welche Art von Parameter handelt es sich bei Dichte, damit ich es mit Werten aus der Excel-Tabelle verknüpfen können.
Quellcode:
Sub CATMain()
'Message Box
angelload = MsgBox("Do you want to apply material from excel-list ?" + Chr(10) , vbYesNo, "Apply Material")
If angelload = 6 Then 'wenn ja dann wählt er in einer Box seine Tabelle aus
Set objXL = CreateObject("Excel.Application")
'Parameter erzeugen
Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Part.Parameters
Dim Material, Description As Dimension
Dim Dichte As Dimensions
'Konstruktionstabelle zuweisen
Dim Rels As Relations
Set Rels = CATIA.ActiveDocument.Part.Relations
Dim KTab As DesignTable
Dim KName, Beschr, Pfad As String
KName = "MATERIALLISTE"
Beschr = "ROOFS-Material"
Pfad = "N:\Jang\Material Macro\Material test.xls"
Set KTab = Rels.CreateDesignTable (KName, Beschr, false, Pfad)
KTab.Configuration = 12
End If
End Sub
Vielen Dank Voraus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP