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
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP