Export Element command not working in microstation using vba

Question

I need to call "Export Element" command using vba code in microstation. But modalHandler has not trigger the "Export Element" command. Please guide me how to call "Export Element" command using vba. 
 Here I copied my code: 
 
 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 = "Create Export File" Then 
 CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.txt" 
 CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd D:\" 
 CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd 81.txt" 
 ' Remove the following line to let the user close the dialog box. DialogResult = msdDialogBoxResultOK 
 End If ' Create Export File 
 If DialogBoxName = "Alert" Then 
 ' Remove the following line to let the user close the dialog box. DialogResult = msdDialogBoxResultOK 
 End If ' Alert 
 End Sub 
 
 Sub Macro1() Dim startPoint As Point3d Dim point As Point3d, point2 As Point3d Dim lngTemp As Long 
 ' The following statement opens modal dialog "Alert" 
 Dim modalHandler As New Macro16ModalHandler AddModalDialogEventsHandler modalHandler 
 ' The following statement opens modal dialog "Create Export File" 
 ' Start a command CadInputQueue.SendCommand "EXPORT ELEMENT " 
 RemoveModalDialogEventsHandler modalHandler CommandState.StartDefaultCommand End Sub

Jan Šlegr · Answer

Priyanka Ravi said: Please guide me how to call "Export Element" command using vba It depends what do you want to achieve. XYZ tool is quite standard MicroStation application, so to use key-ins is preferred way. Why do you want to use VBA? How to use XYZ tool has been discussed many times (did you search existing discussions?), there is also Wiki page about XYZ key-ins . At a basic level to control the tool using key-ins is very simple, because it seems (based on very quick testing using MicroStation CONNECT Edition Update 11) a standard set item toolsettings = is well supported by this tool. General workflow is: Activate tool / open XYZ dialog using export element key-in. Define all parameters using set item toolsettings = key-in. Start the tool again, but with mode specification, e.g. export element all . All in one it's for example export element;set item toolsettings outputfile=d: emp\myfile.txt;export element all . If you want to use it in a batch mod, confirmation dialog box can be a problem. I do not know whether a key-in that works without opening the dialog exists, but a workaround can be implemented using VBA: Module code: Sub UseXyzExportTool() Dim modalHandler As New XyzModalHandler AddModalDialogEventsHandler modalHandler CadInputQueue.SendKeyin "export element;set item toolsettings outputfile=d: emp\myfile4.txt;export element all" RemoveModalDialogEventsHandler modalHandler CommandState.StartDefaultCommand End Sub Class code (handler): 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 = "Alert" Then ' Remove the following line to let the user close the dialog box. DialogResult = msdDialogBoxResultOK End If ' Alert End Sub With regards, Jan

Export Element command not working in microstation using vba

Top Replies