How to get titleblock details from drawing

[shivam7C2Q8]

Hii I am wondering if we can fetch the title block details like scale, title, Dwg number, Revision  from drawing like here via apis.

I found out this values are set from field text but don't know how to get these values ?

[bradeneuropeArthur]

Can you share the drawing template to help you programming this!

[FINET_Laurent]

Hi @shivam7C2Q8,

It is a bit tricky but achievable. Here is an example of mine :

Dim actDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
Dim s As Sheet = actDoc.ActiveSheet

Dim t As TitleBlock = s.TitleBlock
Dim tDef As TitleBlockDefinition = t.Definition

For Each txtBox As TextBox In tDef.Sketch.TextBoxes
	If txtBox.Text = "<AUTEUR>" Then  MsgBox(t.GetResultText(txtBox))
		
Next

Basicly prompt entries are created when adding a text box in the title block, and formating as folowing : <PropertyName>
So basicly I just search in the text boxes collection and fine the one that I'm looking for, then see it's value.

You could use then a small function like this :

Sub main
	Dim val As String = find_value("AUTEUR")
	MsgBox(val)
	
End Sub

Function find_value(propertyName As String) As String
	Dim actDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
	Dim s As Sheet = actDoc.ActiveSheet

	Dim t As TitleBlock = s.TitleBlock
	Dim tDef As TitleBlockDefinition = t.Definition

	For Each txtBox As TextBox In tDef.Sketch.TextBoxes
		If txtBox.Text = "<" & propertyName & ">" Then  Return t.GetResultText(txtBox)
			
	Next
	
	Return "Property doesn't exist"
End Function

Kind regards,

FINET L.

[shivam7C2Q8]

Hii I have downloaded these sample drawings I will attach one below

[shivam7C2Q8]

Hi @FINET_Laurent

above code I tried I am getting the properties but not its values for ex. in orignal post the scale is 1/2 in titleblock but I am not getting that value using t.GetResultText(txtBox). It is returning empty string.

thanks,
Shivam

[FINET_Laurent · Accepted solution]

Hi @shivam7C2Q8,

My code is working flawless on my end :

Sub main
	Dim val As String = find_value("Echelle de la vue d'origine")
	MsgBox(val)
	
End Sub

Function find_value(propertyName As String) As String
	Dim actDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
	Dim s As Sheet = actDoc.ActiveSheet

	Dim t As TitleBlock = s.TitleBlock
	Dim tDef As TitleBlockDefinition = t.Definition

	For Each txtBox As TextBox In tDef.Sketch.TextBoxes
		If txtBox.Text = "<" & propertyName & ">" Then  Return t.GetResultText(txtBox)
			
	Next
	
	Return "Property doesn't exist"
End Function

Note that the text specified in the string (line 2) has to match perfectly (capital letters, spaces, ..).
Also check the prompt itself has a value and is not empty.

Kind regards,

FINET L.