Consulta de rayos
Dibujo con precisión
Cálculo de áreas
Los métodos que proporciona el objeto Utility permiten resolver rápidamente un problema matemático o localizar puntos en el dibujo. Con los métodos del objeto Utility puede realizar lo siguiente:
- calcular el ángulo que forma una línea con el eje X, mediante el método AngleFromXAxis
- convertir un ángulo en forma de cadena en un valor real (doble), mediante el método AngleToReal
- convertir un ángulo en forma de valor real (doble) en una cadena, mediante el método AngleToString
- convertir una distancia en forma de cadena en un valor real (doble), mediante el método DistanceToReal
- crear un variante que contiene una matriz de enteros, números flotantes, dobles, etc. con el método CreateTypedArray
- calcular el punto situado en un ángulo y a una distancia concretos de un punto determinado, con el método PolarPoint
- convertir un punto de un sistema de coordenadas a otro, mediante el método TranslateCoordinates
- calcular la distancia entre dos puntos especificados por el usuario, con el método GetDistance
Cálculo de la distancia entre dos puntos con el método GetDistance
En este ejemplo se utiliza el método GetDistance para obtener las coordenadas del punto y la función MsgBox para mostrar la distancia calculada.
Sub Ch3_GetDistanceBetweenTwoPoints()
Dim returnDist As Double
' Return the value entered by user. A prompt is provided.
returnDist = ThisDrawing.Utility.GetDistance _
(, "Pick two points.")
MsgBox "The distance between the two points is: " & returnDist
End Sub