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
Solved! Go to Solution.
Solved by WCrihfield. Go to Solution.
¿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?
Wesley Crihfield
(Not an Autodesk Employee)
¿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?
¿Qué datos deben almacenarse (solo la altura o la altura más algunos otros datos)?
¿Para qué se utilizarán estos datos?
¿Cómo necesita o tiene la intención de especificar qué cuadro de texto o nota inspeccionar?
Espero haber sido lo más explícito posible.
Gracias por anticipado
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) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
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.
Wesley Crihfield
(Not an Autodesk Employee)
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
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.
Can't find what you're looking for? Ask the community or share your knowledge.