Auto export DXF

I didn't find anything on this topic so the question is can a dxf be automatically exported?

Parents

good day,

you can call the export command with a script.
Unfortunately the dxf export dialog comes up too, and it seems you can only remotely control this dialog with complicated windows api commands.

' Dim something ---------------------------
  Dim App As Object
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim retVal As Boolean

' Do ---------------------------
  retVal = Part.Export("C:\Users\QS\Desktop\Test123.dxf")
  If retVal Then
    App.StatusBar = "DXF: ok"
  Else
    App.StatusBar = "DXF: fail"
  End If
 
' unDim something ---------------------------
  Set Part = Nothing
  Set App = Nothing

therefore rather difficult to implement

Reply

Henniger123 over 2 years ago

' Dim something ---------------------------
  Dim App As Object
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
  Dim retVal As Boolean

' Do ---------------------------
  retVal = Part.Export("C:\Users\QS\Desktop\Test123.dxf")
  If retVal Then
    App.StatusBar = "DXF: ok"
  Else
    App.StatusBar = "DXF: fail"
  End If
 
' unDim something ---------------------------
  Set Part = Nothing
  Set App = Nothing

therefore rather difficult to implement

Children

No Data