DigiNG edición Scripting

Método Perímetro3D

Calcula el perímetro de una entidad lineal en 3D.

objeto.Perimetro3D

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"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

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

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.