Export Macro für DXF / MicroStation/PowerDraft (J, V8, XM, V8i)
Parachilla 11. Mrz. 2018, 11:15

Moin Moin,

ich will eine .dgn in .DXF exportierne,dafür muss ich immer von 2 auf eine Ansicht umschalten, die einstellung speichern und dann exportieren.

' öffnet DGN, ändertauf eine Ansicht und exportiert zu DXF

Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'  Start a command
    MbeSendCommand "VIEW OFF 5 "

    MbeSendCommand "FIT VIEW EXTENDED 1"

    MbeSendCommand "FILEDESIGN "

    MbeSendCommand "DIALOG EXPORT "

'  When a command brings up a modal dialog,
'  a later statement must close the dialog,
'  or the MbeState.modalDialogByUser property
'  should be set to 1 so that the user must close
'  the dialog when the macro is executed.
'  Also, you may not use the debugger "Step"
'  commands while a modal dialog is displayed.

'  Opened modal dialog "Export File"

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd E:\Grund\fach\"

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd XXX.dxf"

'  Closed modal dialog "Export File"

'  Following comment is the command to close a modal dialog
'  MbeSendCommand "MBE1 CLOSEMODAL OK"

    MbeSendCommand "DMSG UPDATEDIALOG -400"

    MbeSendCommand "DMSG UPDATEDIALOG -400"

    MbeSendCommand "DMSG UPDATEDIALOG -400"

    MbeSendCommand "DMSG UPDATEDIALOG -400"
End Sub


so weit, kein problem ..aber ich will das er automatisch eine .DXF erzeugt mit dem namen der geöffneten .DGN

also YYY.dgn = YYY.dxf, und nicht immer wie jetz XXX.dxf

wie kann ich das automatisieren?

vieleicht ne echt dumme Frage aber ich hoffe ihr könnt mir trotzdem helfen. Danke 

 

LAG-FK 16. Mrz. 2018, 06:02

Hallo,

Sieh mal unter nachfolgenden Link könnte dein Problem lösen

https://communities.bentley.com/products/microstation/w/microstation__wiki/8830/batch-convert-utility

Beste Grüße
Franz