Hallo alle zusammen,
In der Hilfe habe ich folgenden Befehl gefunden:
Sub InsertVariable( long iFirst,
long inbCharacter,
CATBaseDispatch ibase)
Sets a Parameter in a string of the drawing text.
Parameters:
iFirst
The first character from which the parameter is inserted
inbCharacter
The number of characters the parameter will replace
iParameter
The parameter to be inserted
Example:
This example sets a parameter right at the end of MyText drawing text.
Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument
Dim iParameter As Parameter
Set iParameter = DrwDocument.Parameters.Item("Drawing\Sheet.1\ViewMakeUp.1\Scale")
MyText.InsertVariable 0, 0, iParameter
Aber bei mir will das irgendwie nicht funktionieren ich habe das folgendermaßen in meinem Makro übernommen:
Dim Inhalt As Parameter
Inhalt = 5
Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets = DrwDocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet
Set DrwView = DrwSheet.Views.ActiveView
Set DrawingText = DrwView.Texts.Add("test", 50, 60)
DrawingText.InsertVariable 0, 1, Inhalt
Die Dim Anweisungen sind weiter oben im Programmtext.
Das Hauptproblem ist aber dass InsertVariable nicht funktioniert.
Fehler: Typen unverträglich.
Weiß jemand Rat
Schon mal im voraus vielen Dank für eure Bemühungen
mfg thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP