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
Have spoken too soon. Shoud have beeter read your question.