DigiNG edición Scripting

Método digi.VerticeUltimoPideEntidad

Devuelve el número de vértice/segmento con el cuál se tentativó con la última llamada al Método PideEntidad.

digi.VerticeUltimoPideEntidad

Ejemplo

Const vbLineas = 1

Dim entidad

digi.ImprimeMensaje "Seleccione una línea..."

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

If digi.FueVerticeUltimoPideEntidad Then

        MsgBox "La selección de la entidad se realizó en el vértice: " & digi.VerticeUltimoPideEntidad

Else

        MsgBox "La selección de la entidad se realizó en el segmento: " & digi.VerticeUltimoPideEntidad

End If

Set entidad = Nothing

Mirar también

Método ImprimeMensaje | Método PideEntidad | Método FueVerticeUltimoPideEntidad | Objeto Entidad

Fecha de última modificación: domingo, 9 de diciembre de 2001

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.