Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

following the workflow that @MechMachineMan described I made a pice of code that will create the automated centerlines and move the circles to an other layer.

what you have to do, and maybe write code for it if you didnot do that already:

1 open the sheet metal part

2 create a new drawing of it

3 delete evreything from it like bordes, this is to get the right dxf output (better create an empty template and use that)

4 place one view of the flatpattern

5 Run my code, you can alter the layer, and the values for the radius

6 save as DXF, (mind you, don't use "model geometry only" this will remove the centerlines)

 

see my screencast:

 

 

 

 

the code:

Dim oDrawDoc As Inventor.DrawingDocument = ThisApplication.ActiveDocument
        Dim oActiveSheet As Inventor.Sheet = oDrawDoc.ActiveSheet

        Dim oDrawView As DrawingView = Nothing

        Dim hiddenLayer As Layer = oDrawDoc.StylesManager.Layers("Hidden")


        For Each oDrawView In oActiveSheet.DrawingViews

            Dim autoCenterSet As AutomatedCenterlineSettings
            oDrawView.GetAutomatedCenterlineSettings(autoCenterSet)

            autoCenterSet.CircularEdgeMaximumThreshold = 1.2 '12 mm

            'create automated centerlines:
            oDrawView.SetAutomatedCenterlineSettings(autoCenterSet)

            Dim oDrawCurve As DrawingCurve = Nothing
            For Each oDrawCurve In oDrawView.DrawingCurves
                Dim drawCurveSeg As DrawingCurveSegment
                For Each drawCurveSeg In oDrawCurve.Segments
                    If drawCurveSeg.GeometryType = Curve2dTypeEnum.kCircleCurve2d Then
                        If drawCurveSeg.Geometry.Radius < 0.6 Then  '6 mm
                            'change layer
                            drawCurveSeg.Layer = hiddenLayer
                        End If
                    End If
                Next

            Next

        Next

        hiddenLayer.Visible = False

 

If this answers your question then please select "Accept as Solution"
Kudo's are also appreciated Smiley Wink

Succes on your project, and have a nice day

Herm Jan