Índice del Foro www.mediocad.com www.mediocad.com
TODO SOBRE MICROSTATION. MDL, MVBA, MACROS.
 
 F.A.Q.F.A.Q.   BuscarBuscar   Lista de MiembrosLista de Miembros   Grupos de UsuariosGrupos de Usuarios   RegístreseRegístrese 
 PerfilPerfil   Conéctese para revisar sus mensajesConéctese para revisar sus mensajes   ConectarseConectarse 

Cómo Crear un NIVEL (II)

 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro www.mediocad.com -> Código MBVA
Ver tema anterior :: Ver siguiente tema  
Autor Mensaje
mediocad
Gran Maestro
Gran Maestro


Registrado: 09 Jun 2005
Mensajes: 1226
Ubicación: Madrid
MensajePublicado: Lun Mar 30, 2009 4:13 pm    Título del mensaje: Cómo Crear un NIVEL (II) Responder citando
Corneta adjunta el siguiente código:

Código:
Dim myLevel As Level
Dim MCV8 As microstationdgn.Application
Set MCV8 = New microstationdgn.Application
Set myMStationC = GetObject(, "MicroStationDGN.ApplicationObjectConnector")
Dim doc As microstationdgn.DesignFile
Set doc = MCV8.OpenDesignFile("\\srv\fichero.dgn")

MCV8.Visible = True

Set MCV8 = myMStationC.Application
Set myLevel = MCV8.ActiveDesignFile.AddNewLevel("PEPITO")
MCV8.ActiveDesignFile.Levels.Rewrite
Set myLevel = MCV8.ActiveDesignFile.AddNewLevel("PEPITA")
MCV8.ActiveDesignFile.Levels.Rewrite
MCV8.Quit
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro www.mediocad.com -> Código MBVA Todas las horas están en GMT + 1 Hora
Página 1 de 1

 
Saltar a:  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas


Powered by phpBB © 2001, 2005 phpBB Group