topic Re: Conditional text formatting in Inventor Programming Forum

Conditional text formatting

vvvxxvvv333 — Mon, 17 Apr 2023 14:58:32 GMT

There is a custom iProrety "Db" which has two values "Painted" or "Furner" In the drawing, I add a text that displays this value. With this expression

FormattedText= "<Property Document='model' PropertySet='User Defined Properties' Property='Db' FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='28'>Db</Property>"

If you change the value in the part, the text in the drawing changes automatically. And it's convenient.

But I need the text to be formatted according to the condition, if the value = “Painted” the text should be italic and if = “Furner” bold

What should I change to make this happen automatically?

Re: Conditional text formatting

Curtis_W — Mon, 17 Apr 2023 16:47:32 GMT

Hi @vvvxxvvv333

Thanks for providing the example files!

See examples below.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

See this rule for the conditional formatting:

oSheet = ThisDoc.Document.Sheets(1)

Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim oProperty = ThisDoc.ModelDocument.PropertySets.Item(4).Item("Db").Value

If UCase(oProperty) = "PAINTED" Then
	sText = "<StyleOverride Italic='True'><Property Document='model' " & _
	"PropertySet='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
Else
	sText = "<StyleOverride Bold='True'><Property Document='model' " & _
	"PropertySet ='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
End If

Dim oNote As GeneralNote
Dim oGenNotes = oSheet.DrawingNotes.GeneralNotes
For Each oNote In oSheet.DrawingNotes.GeneralNotes
	If UCase(oNote.Text) = "PAINTED" Or UCase(oNote.Text) = ("FURNER") Then oNote.Delete
Next

oGenNotes.AddFitted(oTG.CreatePoint2d(30, 5), sText)

And you can use this simple 'helper' rule to get the formatting:

Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document
Dim oSheet As Sheet = oDoc.ActiveSheet
Dim oNotes As GeneralNotes = oSheet.DrawingNotes.GeneralNotes

For Each oNote In oNotes
	'get formatted text
	InputBox("This is the formatted text for Textbox" & i, "ilogic", oNote.FormattedText)
	i = i + 1
Next

Re: Conditional text formatting

vvvxxvvv333 — Mon, 17 Apr 2023 18:06:10 GMT

Thanks a lot for your reply and trying to help. But your rule defines what the font should be when placed, depending on the condition, but it does not change automatically if you change the parameter in the part

Re: Conditional text formatting

robertast — Mon, 17 Apr 2023 18:44:19 GMT

The idea is very good. @johnsonshiue @CGBenner Could you ask the team if this can be done in Inventor?

Re: Conditional text formatting

CGBenner — Mon, 17 Apr 2023 18:47:30 GMT

@robertast

You can share your idea HERE, and ask the Community to vote for it if they agree. Thanks!

Re: Conditional text formatting

robertast — Mon, 17 Apr 2023 18:53:20 GMT

the question was to ask the team if this can be done in 2023.3 or if there is no such possibility at all

Re: Conditional text formatting

Curtis_W — Mon, 17 Apr 2023 20:14:35 GMT

Hi @robertast

There is no update in this behavior in Inventor Inventor 2023 compared to Inventor 2022 or previous.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Re: Conditional text formatting

Curtis_W — Mon, 17 Apr 2023 20:17:23 GMT

Hi @vvvxxvvv333

To get the drawing to update automatically when the model property is updated you could do something like what is shown below.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

1. Update the rule in the part model:

iProperties.Value("Custom", "Db") = Ds
iLogicVb.UpdateWhenDone = True

oDrawDoc = ThisApplication.Documents.Open(ThisDoc.ChangeExtension(".idw"), True)

Dim DrawingUserParams As UserParameters
DrawingUserParams = oDrawDoc.Parameters.UserParameters
DrawingUserParams.Item("Parmeter_Db").Value = Ds

Thisdoc.Document.Activate

2. add a parameter to the drawing:

3. Update the drawing rule:

oTrigger = Parmeter_Db
oSheet = ThisDoc.Document.Sheets(1)

Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim oProperty = ThisDoc.ModelDocument.PropertySets.Item(4).Item("Db").Value

If UCase(oProperty) = "PAINTED" Then
	sText = "<StyleOverride Italic='True'><Property Document='model' " & _
	"PropertySet='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
Else
	sText = "<StyleOverride Bold='True'><Property Document='model' " & _
	"PropertySet ='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
End If

Dim oNote As GeneralNote
Dim oGenNotes = oSheet.DrawingNotes.GeneralNotes
For Each oNote In oSheet.DrawingNotes.GeneralNotes
	If UCase(oNote.Text) = "PAINTED" Or UCase(oNote.Text) = ("FURNER") Then oNote.Delete
Next

oGenNotes.AddFitted(oTG.CreatePoint2d(30, 5), sText)

Re: Conditional text formatting

Curtis_W — Mon, 17 Apr 2023 20:39:08 GMT

@vvvxxvvv333

Another approach would be to delete the drawing rule and just have all of the code in the part model rule:

iProperties.Value("Custom", "Db") = Ds
iLogicVb.UpdateWhenDone = True

Dim oDrawDoc As DrawingDocument = ThisApplication.Documents.Open(ThisDoc.ChangeExtension(".idw"), True)

oSheet = oDrawDoc.Sheets.Item(1)

Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim oProperty = ThisDoc.Document.PropertySets.Item(4).Item("Db").Value

If UCase(oProperty) = "PAINTED" Then
	sText = "<StyleOverride Italic='True'><Property Document='model' " & _
	"PropertySet='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
Else
	sText = "<StyleOverride Bold='True'><Property Document='model' " & _
	"PropertySet ='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
End If

Dim oNote As GeneralNote
Dim oGenNotes = oSheet.DrawingNotes.GeneralNotes
For Each oNote In oSheet.DrawingNotes.GeneralNotes
	If UCase(oNote.Text) = "PAINTED" Or UCase(oNote.Text) = ("FURNER") Then oNote.Delete
Next

oGenNotes.AddFitted(oTG.CreatePoint2d(30, 5), sText)


Thisdoc.Document.Activate

Re: Conditional text formatting

vvvxxvvv333 — Mon, 17 Apr 2023 22:18:03 GMT

You are a wizard 👍👍👍
Maybe ShowTextBorder can also be applied this way?

I also thought about putting all the formatting text into one more parameter. But I didn't figure out how to use it.

iProperties.Value("Custom", "Db") = Ds


If Ds= Painted  Then
  iProperties.Value("Custom", "Dg") ="<StyleOverride Italic='True'><Property Document='model' " & _
	"PropertySet ='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"
Else

  iProperties.Value("Custom", "Dg") ="<StyleOverride Bold='True'><Property Document='model' " & _
	"PropertySet ='User Defined Properties' Property='Db' " & _
	"FormatID='{D5CDD505-2E9C-101B-9397-08002B2CF9AE}' PropertyID='3'>Db</Property></StyleOverride>"

End If

iLogicVb.UpdateWhenDone = True

Re: Conditional text formatting

robertast — Tue, 18 Apr 2023 06:16:32 GMT

There is another option through the trigger.

Re: Conditional text formatting

robertast — Tue, 18 Apr 2023 10:38:43 GMT

You can also try with "Rule Format"

Dim invApp As Inventor.Application
    invApp = ThisApplication
    Dim oDrawDoc As Document
    oDrawDoc = invApp.ActiveEditDocument
    oSheet = ActiveSheet.Sheet 
	Dim oGeneralNote As GeneralNote
        For Each oGeneralNote In oSheet.DrawingNotes.GeneralNotes
           oGeneralNote.ToString 
		   
	Dim oText As String
    	oText = oGeneralNote.Text
		 
		 If oText = "Furner" Then		 
			 
			 	Dim oFormattedText As String
    			oFormattedText = "<StyleOverride Bold='True'>" & oText & "</StyleOverride>"
	 			oGeneralNote.FormattedText = oFormattedText
				
				Else
					
				Dim oFormattedText As String
    			oFormattedText = "<StyleOverride Italic='True'>" & oText & "</StyleOverride>"
	 			oGeneralNote.FormattedText = oFormattedText
			End If
			

    	oGeneralNote .HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter
        Next