digi.SiguienteEntidadSolapaCon

DigiNG edición Scripting

Método digi.SiguienteEntidadSolapaCon

Devuelve el siguiente Objeto Entidad constante del archivo DigiNG cuyo rango de coordenadas máximas y mínimas solapen con un Objeto MaxMin pasado por parámetros.

¿Qué significa que el objeto devuelto es de sólo lectura? Significa que no podemos llamar a ningún método del Objeto Entidad que modifique cualquier propiedad de éste. No podemos cambiar su código, no podemos añadirle un punto, ni cambiar su tipo...

Para realizar cualquiera de estas tareas tendremos que realizar los siguientes pasos:

Indicarle a DigiNG que nos Clone la entidad, devolviéndonos un objeto nuevo que ya no será de sólo lectura y al que podremos modificar a nuestro antojo. Método ClonaEntidad.
Ocultar la entidad original Método OcultaEntidad.
Borrar del archivo DigiNG la entidad original Método BorraEntidad.
Almacenar en el archivo DigiNG la nueva entidad clonada Método AnadeEntidad.

digi.SiguienteEntidadSolapaCon (MaxMin)

Argumentos

MaxMin

Objeto MaxMin con el rango de coordenadas con el que se comparará para seleccionar una entidad.

Ejemplo

Dim punto

digi.ImprimeMensaje "Digitalice un punto. Se oscurecerán todas las entidades que solapen con dicho punto en una ventana de 100x100"

Set punto = digi.PidePunto

digi.ImprimeMensaje ""

Dim maxmin

Set maxmin = CreateObject("Digi3D.MaxMin")

maxmin.xmin = punto.x - 50 * digi.Precision

maxmin.ymin = punto.y - 50 * digi.Precision

maxmin.xmax = punto.x + 50 * digi.Precision

maxmin.ymax = punto.y + 50 * digi.Precision

Dim entidad

Set entidad = digi.PrimeraEntidadSolapaCon(maxmin, True)

While Not entidad Is Nothing

digi.OcultaEntidad entidad

Set entidad = digi.SiguienteEntidadSolapaCon(maxmin)

Wend

Set punto = Nothing

Set maxmin = Nothing

Mirar también

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