08-29-2019
01:43 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-29-2019
01:43 AM
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
Succes on your project, and have a nice day
Herm Jan
Kudo's are also appreciated
Succes on your project, and have a nice day
Herm Jan