topic Re: iLogic Insert Text Parameter into a Text Field in Inventor Programming Forum

iLogic Insert Text Parameter into a Text Field

fce — Fri, 04 Sep 2020 18:20:45 GMT

Hello there,

I´m trying to create an iLogic rule to replace the author of old drawings (which is written manually) with the current author of the drawing, but I would like to keep the author as a text parameter <Author> and not as simple text.
I managed to changed but only as simple text. I´m sure that I´m just missing the correct function.
Bellow the current code. I would really appreciate some quick help.

'---------------------
' Replace "FCE" , "MPO", "RMO", "BAR", "DGO", "HJD" with Author
'Is the active document a drawing document?
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then

	Dim objDoc As Document
	objDoc = ThisApplication.ActiveDocument
		  
	Dim objDrawDoc As DrawingDocument
	objDrawDoc = objDoc
	Dim colTitleBlkDefs As TitleBlockDefinitions
	colTitleBlkDefs = objDrawDoc.TitleBlockDefinitions
	Dim objTitleBlkDef As TitleBlockDefinition

		For Each objTitleBlkDef In colTitleBlkDefs
		' If we are here, we have the title block of interest.
		' Get the title block sketch and set it active
		Dim objDrwSketch As DrawingSketch
		Call objTitleBlkDef.Edit(objDrwSketch)
		Dim colTextBoxes As TextBoxes
		colTextBoxes = objDrwSketch.TextBoxes
		Dim objTextBox As TextBox
			For Each objTextBox In colTextBoxes
				
				Select Case objTextBox.Text
				Case "FCE", "MPO", "RMO", "BAR", "DGO", "HJD"
				If objTextBox.Text <> UserFullName								
                                ' I´M STRUGGLING WITH THIS NEXT LINE
				objTextBox.FormattedText = "<StyleOverride FontSize='0,25'>" & iProperties.Value("Summary", "Author") & "</StyleOverride>"
	
'					Exit For
				Else
					done=1
					Exit For
				End If
				End Select
			
				If done = 1
					Exit For
				End If
			Next objTextBox
		Call objTitleBlkDef.ExitEdit(True)
		Next objTitleBlkDef
		
End If

Re: iLogic Insert Text Parameter into a Text Field

johnsonshiue — Sat, 05 Sep 2020 17:03:48 GMT

Hi! I am not an iLogic expert. But, I think you might approach the issue in a wrong way. Where did the following values originally come from? Where they from the Author iProperty? If yes, you should change the iProperty value and everything will update accordingly.

"FCE", "MPO", "RMO", "BAR", "DGO", "HJD"

Many thanks!

Re: iLogic Insert Text Parameter into a Text Field

fce — Sat, 05 Sep 2020 17:45:26 GMT

The values "FCE", "MPO", "RMO", "BAR", "DGO", "HJD" were manually written.
I would like to eliminate this old method.

Re: iLogic Insert Text Parameter into a Text Field

fce — Sun, 20 Sep 2020 15:11:20 GMT

Do you have any idea how to achieve it?

Re: iLogic Insert Text Parameter into a Text Field

JhoelForshav — Mon, 21 Sep 2020 12:52:09 GMT

Hi @fce

How about this? 🙂

'---------------------
' Replace "FCE" , "MPO", "RMO", "BAR", "DGO", "HJD" with Author
'Is the active document a drawing document?
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then

	Dim objDoc As Document
	objDoc = ThisApplication.ActiveDocument
		  
	Dim objDrawDoc As DrawingDocument
	objDrawDoc = objDoc
	Dim colTitleBlkDefs As TitleBlockDefinitions
	colTitleBlkDefs = objDrawDoc.TitleBlockDefinitions
	Dim objTitleBlkDef As TitleBlockDefinition

		For Each objTitleBlkDef In colTitleBlkDefs
		' If we are here, we have the title block of interest.
		' Get the title block sketch and set it active
		Dim objDrwSketch As DrawingSketch
		Call objTitleBlkDef.Edit(objDrwSketch)
		Dim colTextBoxes As TextBoxes
		colTextBoxes = objDrwSketch.TextBoxes
		Dim objTextBox As TextBox
			For Each objTextBox In colTextBoxes
				
				Select Case objTextBox.Text
				Case "FCE", "MPO", "RMO", "BAR", "DGO", "HJD"
				If objTextBox.Text <> UserFullName								
                                ' I´M STRUGGLING WITH THIS NEXT LINE
				objTextBox.FormattedText = "<Property Document='drawing' PropertySet='Inventor Summary Information' Property='Author' FormatID='' PropertyID=''>AUTHOR</Property>"
	
'					Exit For
				Else
					done=1
					Exit For
				End If
				End Select
			
				If done = 1
					Exit For
				End If
			Next objTextBox
		Call objTitleBlkDef.ExitEdit(True)
		Next objTitleBlkDef
		
End If

Re: iLogic Insert Text Parameter into a Text Field

fce — Mon, 21 Sep 2020 13:03:28 GMT

Hello JhoelForshav,
thanks a lot, it works.
How would you add the style override like in the previous version of the rule?

objTextBox.FormattedText = "<StyleOverride FontSize='0,25'>" & UserFullName & "</StyleOverride>"

Greetings,
Francisco

Re: iLogic Insert Text Parameter into a Text Field

JhoelForshav — Mon, 21 Sep 2020 13:11:28 GMT

Glad it works @fce

Try this to include the style override 🙂

objTextBox.FormattedText = "<StyleOverride FontSize='0,25'> <Property Document='drawing' PropertySet='Inventor Summary Information' Property='Author' FormatID='' PropertyID=''>AUTHOR</Property> </StyleOverride>"

Re: iLogic Insert Text Parameter into a Text Field

fce — Mon, 21 Sep 2020 13:14:14 GMT

Nice! That´s awesome, Thanks.