AnsweredAssumed Answered

Export Cell's DXF

Question asked by ashkolnik on Jan 13, 2016
Latest reply on Jan 14, 2016 by juergen.dickler

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 .

 

Attachments

Outcomes