AnsweredAssumed Answered

circle pattern axis-z

Question asked by Shin Oba on Mar 5, 2018
Latest reply on Mar 6, 2018 by Shin Oba

Hi Everyone

 

I usually use Japanese, so please allow my mistakes in words.

So, this time is  first contact

 

Sample program( a part of all)

 

Private Sub Rorat (Nz, Nd)

    Dim Part As Object

    Dim boolstatus As Boolean

    Dim swSketchManager As Object

    Dim myFeature As Object

    Dim skSegment As Object

    Dim swModelDocExt As Object

    Dim swFeatureManager As Object

    Dim SelMgr As Object

   

    Set Part = swApp.ActiveDoc

    Set swSketchManager = swModel.SketchManager

   

'Select right Plane

    swModel.ActivateSelectedFeature

    swModel.ClearSelection2 True

    swSketchManager.InsertSketch True

   

    swModel.SketchManager.InsertSketch True

    boolstatus = Part.Extension.SelectByID2 ("Right Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

    Part.SketchManager.InsertSketch True

    Part.ClearSelection2 True

 

'Line depiction of rotation center

    Set skSegment = Part.SketchManager.CreateCenterLine (0.2, 0, 0, - 0.2, 0, 0)

    Part.ClearSelection2 True

    Part.SketchManager.InsertSketch True

   

'Selection of body for circular pattern, selection of axis

    boolstatus = Part.Extension.SelectByID 2 ("Knit Surface 1", "SOLIDBODY", 0, 0, 0, False, 256, Nothing, 0)

    boolstatus = Part.Extension.SelectByID 2 ("Line 1@Sketch 1", "EXTSKETCHSEGMENT", 0, 0, 0, True, 1, Nothing, 1)

   

'Circular pattern

    Set myFeature = Part.FeatureManager.FeatureCircularPattern5 (Nz, 2 * 3.14159265358979, True, "NULL", False, True, False, False, False, False, 1, 0, "NULL", False)

End Sub

 

Outcomes