DigiNG edición Scripting

Método Superficie2D

Calcula la superficie en el plano del Objeto Entidad (lineal).

objeto.Superficie2D

Ejemplo

' Este ejemplo solicita al usuario que seleccione una línea cerrada y muestra su superficie en el plano

Option Explicit

Const vbLineas = 1

Dim entidad

digi.ImprimeMensaje "Seleccione una línea cerrada"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

MsgBox "La superficie en el plano de la línea seleccionada es " &entidad.Superficie2D

Set entidad = Nothing

Mirar también

Objeto Entidad | Método ImprimeMensaje | Método PideEntidad | Propiedad PRECISION

Fecha de última modificación: 27 de Mayo, 2008

© 2008 Dreaming With Objects. Todos los derechos reservados.