Almacenar la altura de un texto

[paco.barona4XR6D]

Necesito saber que altura tiene un texto determinado, que tengo escrito y almacenarla en una variable.

He estado mirando la Api de Autodesk Inventor, pero la ayuda hace referencia siempre a un código VBA y no de Ilogic.

Alguien me puede ayudar con esto?

Gracias

[WCrihfield]

¿Podría ser más específico? ¿Qué tipo de documento estará activo cuando se ejecute el código (pieza, ensamblaje o dibujo)? ¿Es este texto un objeto TextBox dentro de un boceto de algún tipo? ¿O es una nota principal o tal vez una nota general en una hoja de dibujo (no en un boceto)? ¿Qué datos deben almacenarse (solo la altura o la altura más algunos otros datos)? ¿Para qué se utilizarán estos datos? ¿Cómo se utilizará? ¿Cómo necesita o tiene la intención de especificar qué cuadro de texto o nota inspeccionar?

[paco.barona4XR6D]

¿Podría ser más específico? ¿Qué tipo de documento estará activo cuando se ejecute el código (pieza, ensamblaje o dibujo)?

• El tipo de documento debe ser una dibujo.

¿Es este texto un objeto TextBox dentro de un boceto de algún tipo?

• El tipo de texto está incluido en un cajetín. Dentro de una propiedad estándar, llamada <TITULO>

¿Qué datos deben almacenarse (solo la altura o la altura más algunos otros datos)?

• En principio sólo la altura

¿Para qué se utilizarán estos datos?

• Ese dato se usará para informar que altura es la actual y posteriormente se cambiará a demanda.

 ¿Cómo necesita o tiene la intención de especificar qué cuadro de texto o nota inspeccionar?

• Lo más lógico debería ser a través del nombre del estilo de texto.

Espero haber sido lo más explícito posible.

Gracias por anticipado

[WCrihfield · Accepted solution]

Pruebe esto.

Sub Main
	Dim oDDoc As DrawingDocument = TryCast(ThisDoc.Document, Inventor.DrawingDocument)
	If oDDoc Is Nothing Then Return
	Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
	If oSheet.TitleBlock Is Nothing Then Return
	Dim oTBoxes As Inventor.TextBoxes = oSheet.TitleBlock.Definition.Sketch.TextBoxes
	If oTBoxes.Count = 0 Then Return
	Dim dHeight As Double = 0.0
	For Each oTBox As Inventor.TextBox In oTBoxes
		If oTBox.Text = "<TITULO>" OrElse _
			oTBox.FormattedText.Contains("TITULO") Then
			If oTBox.Fitted = True Then
				dHeight = oTBox.FittedTextHeight
			Else
				dHeight = oTBox.Height
			End If
			Exit For
		End If
	Next 'oTBox
	Logger.Info("TextBox Height = " & dHeight.ToString & " cm")
End Sub

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

[paco.barona4XR6D]

Lamento comentar, que no encuentro respuesta alguna con este código 😞

[WCrihfield]

Al final de la regla hay una línea de código que escribe el valor en la ventana de registro de iLogic. ¿Ha mirado en la ventana de iLogic Log después de ejecutar esa regla para comprobar ese valor?

Si no está familiarizado con él, debería aparecer junto a la pestaña iLogic. Si no se muestra, deberá ir a la pestaña Ver (en la cinta principal), luego hacer clic en la herramienta Interfaz de usuario, luego marcar la casilla de verificación junto a iLogic Log. A continuación, ejecute la regla. A continuación, vaya a la pestaña Registro de iLogic para ver los resultados.

[paco.barona4XR6D]

Efectivamente, el valor estaba en el Registro, pero he sustituido esa línea de código por esta otra :

MsgBox ("Altura de Texto Actual = " & dHeight.ToString & " Cm")

 Ahora salé perfecto y bien visible.

No lo no consigo entender es que si le doy al texto una altura de 1 cm mediante el Editor de estilos, me aparezca como 0.12756 cm

[vpeuvion]

Hi,

The value you get appears to be a multiple of an inch. 1/200 inch.
Check the units in your document or template. The 1/200 ratio may also be related to the scale used.

Vincent.

[paco.barona4XR6D]

Gracias por las respuestas obtenidas