Export Sketch As AutoCAD Dwg file Question

isocam — Mon, 26 Jan 2015 20:29:42 GMT

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

Re: Export Sketch As AutoCAD Dwg file Question

salariua — Tue, 27 Jan 2015 07:52:39 GMT

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