DigiNG edición Scripting
Método digi.AnadeEntidad
Añade al archivo de DigiNG activo un Objeto Entidad.
Todas las coordenadas del objeto deben estar multiplicadas por el valor de la Propiedad Precision.
digi.AnadeEntidad (entidad)
Argumentos
entidad
Objeto a añadir.
Ejemplo
|
Dim entidad Dim ptTerreno Set entidad = CreateObject("Digi3D.Entidad") digi.ImprimeMensaje "Digitaliza el centro del cuadrado de 200 unidades..." Set ptTerreno = digi.PidePunto digi.ImprimeMensaje "" Dim semiancho semiancho = 100 * digi.Precision entidad.Codigo = "020123" entidad.AnadePuntoXYZ ptTerreno.x - semiancho, ptTerreno.y + semiancho, ptTerreno.z entidad.AnadePuntoXYZ ptTerreno.x + semiancho, ptTerreno.y + semiancho, ptTerreno.z entidad.AnadePuntoXYZ ptTerreno.x + semiancho, ptTerreno.y - semiancho, ptTerreno.z entidad.AnadePuntoXYZ ptTerreno.x - semiancho, ptTerreno.y - semiancho, ptTerreno.z entidad.Cerrar digi.DibujaEntidad entidad digi.AnadeEntidad entidad Set ptTerreno = Nothing Set entidad = Nothing |
Mirar también
Método ImprimeMensaje | Método PidePunto | Método DibujaEntidad | Método AnadeEntidad | Propiedad Precision | Objeto Entidad
Fecha de última modificación: domingo, 9 de diciembre de 2001
© 2001-2002 Dreaming With Objects. Todos los derechos reservados.