digi.CoordenadasUltimoPideEntidad

DigiNG edición Scripting

Método digi.CoordenadasUltimoPideEntidad

Devuelve un Objeto Point con las coordenadas en las que se tentativó con la última llamada al Método PideEntidad.

Ejemplo

Const vbLineas = 1

Dim entidad

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

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

Dim ptCoordenadas

Set ptCoordenadas = digi.CoordenadasUltimoPideEntidad

digi.MuestraGlobo "Ejemplo de tentativo", "Las coordenadas de la última selección fueron : " & vbCrLf & ptCoordenadas.x/digi.Precision & "," & ptCoordenadas.y/digi.Precision & "," & ptCoordenadas.z/digi.Precision, 1, 3000

Set entidad = Nothing

Set ptCoordenadas = Nothing

Mirar también

Método ImprimeMensaje | Método PideEntidad | Método MuestraGlobo | Propiedad Precision | Objeto Entidad

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