Erika
Registrado: 16 Abr 2013 Mensajes: 2
|
Publicado: Mie Sep 26, 2018 9:35 am Título del mensaje: Pegar un texto en varios archivos |
|
|
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.. |
|