www.mediocad.com

[Erika]

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..