Forum:MicroStation/PowerDraft (J, V8, XM, V8i)
Thema:Export Macro für DXF
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
Parachilla

Beiträge: 1 / 0

Microstation, Geograf

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

Beiträge: 315 / 0

MS-V8i-SS4 Vers. 08.11.09.833, PowerDraft-V8i-SS4 Vers. 08.11.09.833, MS-XM Vers. 08.09.02.82, FME-2013, Corel-X5, ACAD 2016, GeoMedia Plus

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