Microstation - Longitud de cadena

 
Vista:

Longitud de cadena

Publicado por MaxZ (11 intervenciones) el 25/06/2002 19:38:10
Si alguien me pudiese ayudar, ¿como saber la longitud de una cadena de texto en unidades usando MBE?.

Ya probe de mulitiplicar la cantidad de caracteres por el ancho pero no coincide.

Dim elem as New MbeElement
Dim cadena as string
Dim largo as double
stat=elem.getString(cadena)
largo=len(cadena)*elem.charWidht

Muchas Gracias


Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Obtener la longitud de una cadena de texto en unidades MBE

Publicado por Alejandro (129 intervenciones) el 22/12/2023 22:51:35
Para obtener la longitud de una cadena de texto en unidades utilizando MBE en MicroStation, debes considerar el ancho de cada carácter y tener en cuenta la escala y la altura del texto. Aquí hay un ejemplo de cómo podrías hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim elem As New MbeElement
Dim cadena As String
Dim largo As Double
Dim escala As Double
Dim altura As Double
 
' Obtener la cadena de texto
stat = elem.getString(cadena)
' Obtener la escala y la altura del texto
escala = elem.scale
altura = elem.textHeight
 
' Calcular la longitud ajustada por la escala y altura del texto
largo = Len(cadena) * elem.charWidth * escala * altura
' Imprimir la longitud
Print "La longitud de la cadena es: " & largo & " unidades"

Este ejemplo toma en cuenta la escala y la altura del texto para ajustar la longitud calculada. Asegúrate de que estás utilizando las propiedades correctas para obtener la escala y la altura del texto según tus necesidades específicas.

Espero que esto te sea útil, MaxZ.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar