3 Replies Latest reply on Jan 14, 2016 2:50 AM by juergen.dickler

    Export Cell's DXF

    ashkolnik

      Hi all ,

      See code below :

       

      Option Explicit

      Dim CellAppObj

      Set CellAppObj = Application

      Dim CellDocObj

      Set CellDocObj = CellAppObj.ActiveDocument

      ValidateServer(CellDocObj)

               Dim oDXFExport : Set oDXFExport = CreateObject("MGCPCBEngines.DXFExport")

               If oDXFExport is Nothing Then

                      MsgBox "Failed to create DXF Export object"

              End If

              Scripting.AddTypeLibrary("MGCPCBEngines.DXFExport")

              oDXFExport.DesignFileName = CellDocObj.FullName

              oDXFExport.Scheme(0) = "Default"

              oDXFExport.OutputFileName = "Output/" + CellDocObj.Cells.Item(1).Name + ".dxf"

             oDXFExport.Go()

       

      Script not export , after small debug the problem is in RedLine. Please suggest .

      Thanks .