Export Sketch as DXF using iLogic

[Anonymous]

Hello,

I have a Sketch (Skizze) at Assembly level and I would like to export the sketch as .dxf file using iLogic. 

The iLogic snippet,"Export DXF from IDW" which has an DXFAddIn.SaveCopyAs can not be used because I do not have any drawing sheets.

(Please excuse me as the picture is in German)

Any ideas or suggestions are much appreciated.

Thank you,

Yatish.

[mcgyvr · Accepted solution]

How about this.. Simply exports the first sketch to the C:\Temp folder

     AssyDoc = ThisApplication.ActiveDocument

     ' Get the first sketch in the assembly.

     Dim sketch As PlanarSketch

     sketch = AssyDoc.ComponentDefinition.Sketches.Item(1)

     ' Write the sketch out as DXF.

     Call sketch.DataIO.WriteDataToFile("DXF", "C:\Temp\Sketch1.dxf")
	 MessageBox.Show("Sketch Created", "Sketch Creation Notification")

[JelteDeJong · Accepted solution]

You can try this.

Dim fileName As String = "c:\temp\Skizze.dxf"
Dim doc As AssemblyDocument = ThisDoc.Document
Dim sketch As PlanarSketch = doc.ComponentDefinition.Sketches.Item("Skizze")

Dim sOut As String = "DXF"
sketch.DataIO.WriteDataToFile(sOut, fileName)

Edit:

i didnt see the solution by @mcgyvr when i replyed but it is the same as mine

[Anonymous]

@mcgyvr Thank you. The Solution has worked.