Í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 

Pegar un texto en varios archivos

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



Registrado: 16 Abr 2013
Mensajes: 2

MensajePublicado: Mie Sep 26, 2018 9:35 am    Título del mensaje: Pegar un texto en varios archivos Responder citando

Hola a todos.
Actualmente trabajo con la versión V8i (SELECT series 2).
He creado una célula que contiene un texto con unas propiedades que tengo que pegar en cientos de planos.
He intentado grabar una macro solo con 5 archivos para hacer la prueba, pero no sé por qué no pega el texto.

-------------------------------------
Implements IModalDialogEvents
Private Sub IModalDialogEvents_OnDialogClosed(ByVal DialogBoxName As String, ByVal DialogResult As MsdDialogBoxResult)

End Sub

Private Sub IModalDialogEvents_OnDialogOpened(ByVal DialogBoxName As String, DialogResult As MsdDialogBoxResult)

If DialogBoxName = "Abrir" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\P_MACRO\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd PRUEBA_2.dgn"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Abrir

If DialogBoxName = "Vincular biblioteca de células" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\Projects\Untitled\cell\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd REV012.cel"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Vincular biblioteca de células

If DialogBoxName = "Abrir archivo" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\P_MACRO\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd PRUEBA_3.dgn"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Abrir archivo

If DialogBoxName = "Vincular biblioteca de células" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\Projects\Untitled\cell\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd REV012.cel"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Vincular biblioteca de células

If DialogBoxName = "Abrir archivo" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\P_MACRO\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd PRUEBA_4.dgn"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Abrir archivo

If DialogBoxName = "Vincular biblioteca de células" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\Projects\Untitled\cell\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd REV012.cel"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Vincular biblioteca de células

If DialogBoxName = "Abrir archivo" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\P_MACRO\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd PRUEBA_5.dgn"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Abrir archivo

If DialogBoxName = "Vincular biblioteca de células" Then

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\ProgramData\Bentley\MicroStation V8i (SELECTseries)\WorkSpace\Projects\Untitled\cell\"

CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd REV012.cel"

' Elimina la siguiente línea para que el usuario pueda cerrar el cuadro de diálogo.
DialogResult = msdDialogBoxResultOK

End If ' Vincular biblioteca de células

End Sub
-------------------------------

Alguien me puede decir, qué me falta???
Gracias..
Volver arriba
Ver perfil del usuario Enviar mensaje privado
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