Vb.Net - Get Part Material Name & Export as a Dwg or Dxf file Using A Add-In

[isocam]

Can anybody help?

Please see the attached Add-In file (I have changed the file name extension to txt from vb)

The attached Add-In works great when I have an "idw" (drawing) document open.

Now for the part that I need help with...

If I open an "ipt" (part) document and press "SAVE" I need to get the parts material iProperty and display it in a message box for testing purposes.

Also,

The opened "ipt" file will always only contain one extrusion only using "Sketch1". Is it possible to also export the sketch to a "DXF" or "DWG" file???

Can anybody update the attached code to allow me to do this?

Many thanks in advance!

Darren

[JelteDeJong]

Have a look at this iLogic code. I expect that it's what you are looking for.

Dim DocumentObject As _Document = ThisDoc.Document

Dim def As PartComponentDefinition = DocumentObject.ComponentDefinition

' Get material name
MsgBox(def.Material.Name)

' Export to dxf
Dim extrusion = def.Features.ExtrudeFeatures.Item(1)
Dim sketch = extrusion.Definition.Profile.Parent
sketch.DataIO.WriteDataToFile("DXF", "C:\Temp\dxfout.dxf")