Export Sketch As AutoCAD Dwg file Question

[isocam]

Can  anybody help?

I have the following VBA code to export a "Sketch" as a AutoCAD Dwg file.....

   Dim DWGAddIn As TranslatorAddIn

       Set DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")

       Set Doc = ThisApplication.ActiveDocument

       Dim transObjs As TransientObjects

       Set transObjs = ThisApplication.TransientObjects

       Dim context As TranslationContext

       Set context = transObjs.CreateTranslationContext

       context.Type = kFileBrowseIOMechanism

       Dim options As NameValueMap

       Set options = transObjs.CreateNameValueMap

       If DWGAddIn.HasSaveCopyAsOptions(Doc, context, options) Then
          options.Value("Sketch") = True

          options.Value("DwgVersion") = 25
       End If

       Dim oDataMedium As DataMedium

       Set oDataMedium = transObjs.CreateDataMedium

       oDataMedium.FileName = DwgFileName

       Call DWGAddIn.SaveCopyAs(Doc, context, options, oDataMedium)
    End If

The AutoCAD Dwg file is exported as a 3d solid!

How can I export the "Sketch" so that it exports a AutoCAD 2d (Lines/Arcs/Circles) ready for laser cutting?

Any help would be great!!!!

Many thanks in advance.

Darren

[salariua]

Have spoken too soon. Shoud have beeter read your question.