Flat Pattern DXF Export, Sketch Point

[infoQ5MEB]

Hello Reader,

For some reason any (tried) setting, as in construction, sketchonly, seems to keep exporting the (origin) point that is includes in the sketch.

Is there a way to avoid the base point from exporting to the dxf, or allow me to put this on a different color (of layer from Inventor)?

For info: Another solution would be to create a drawing and export this, but here I do not have the flexibility to use the settings below.

Tried to create a new sketch and place this on the desired location, but this will also include the origin point, e.g. 

oSketch.TextBoxes.Item(1).Origin = oTG.CreatePoint2d(0,0)

    sOut = sOut & "&FeatureProfilesUpLayerColor=" & sRed
    sOut = sOut & "&FeatureProfilesDownLayerColor=" & sRed
    sOut = sOut & "&UnconsumedSketchesLayerColor=" & sYellow

 Is there an option to change the color of points inside the "UnconsumedSketches"?
The goal is to add text for engraving (and avoiding points from being added), preferably not by using text to geometry to avoid equidistance and other issues on the laser machine.

[daltonNYAW9]

You can disable the origin auto-projecting on sketches.

Application options > Sketch > Autoproject part origion on sketch

Try this. It finds the model sketch and finds the origin 'sketch entity' and deletes it.

Dim oPDoc As PartDocument = ThisDoc.Document

Dim oSMCD As SheetMetalComponentDefinition = oPDoc.ComponentDefinition

Dim oFlatPatternSketch As PlanarSketch = oSMCD.FlatPattern.Sketches(1)

Dim oModelSketch As PlanarSketch = oFlatPatternSketch.ReferencedEntity

For Each oSketchPoint As SketchPoint In oModelSketch.SketchPoints
	If oSketchPoint.Geometry.X = 0 And oSketchPoint.Geometry.Y = 0
		oSketchPoint.Delete
	End If
Next

[infoQ5MEB]

Thanks for the reply, I have noticed that there is still a point in the center of the TextBox.

When I try to delete it, it shows an error. WARN|The parameter is incorrect. (0x80070057 (E_INVALIDARG))

oSketch.TextBoxes.Item(1).Origin = oTG.CreatePoint2d(0,0)

Dim oTextBox = oSketch.TextBoxes.Item(1)
	Try		
		oTextBox.OriginSketchPoint.Delete
		Logger.Info("oTextBox.OriginSketchPoint.Delete")
	Catch ex As Exception
		Logger.Warn(ex.Message)
	End Try

For info: Changed the code a bit because I use the Copy to Flat Pattern option in this case.

[infoQ5MEB]

Thinking it through I have choosen a different route and used the Mark feature and set font type to stick (to simulate the dxf reader from the production machine)

Solved: MARK FEATURE - Autodesk Community