Replacing added custom text to dimension (drawing)

[Rob987654]

Hi all,

Is it possible with ilogic to iterate through all dimensions on a drawing sheet and replace the added custom text? See example below. All dimensions that don't have 'TextAA' may not change. Thank you in advance.

Current situation:       <--   Ø20 (TextAA) -->>

Desired situation:       <-- Ø20 (TextBB) -->>

[dutt.thakar · Accepted solution]

@Rob987654 

See below rule, It will remove TextAA from all the dimensions that has it and replace it with TextBB

You can replace "TextAA" with something else as well if you desire as well.

	Dim oDoc As DrawingDocument
  	oDoc = ThisApplication.ActiveDocument
        Dim oSheet As Sheet = oDoc.ActiveSheet
	For Each oGD As DrawingDimension In oSheet.DrawingDimensions
		If oGD.Text.FormattedText.Contains("TextAA")
			oGD.Text.FormattedText = "" ' This will remove "TextAA" from all the dimensions that has it previously
		        oGD.Text.FormattedText = "TextBB" 'This line will replace "TextAA" with "TextBB"
                End If
	Next

 Hope this is useful.

[WCrihfield]

oops, wrong post.