Set swApp = Application.SldWorks
Set Part = swApp.OpenDoc6("C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2019\samples\tutorial\api\block20.sldprt", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "block20.sldprt", False, longstatus
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByRay(-0.044420257315096, 3.96239999998329E-02, -3.92581286577638E-02, -0.400036026779312, -0.515038074910024, -0.758094294050284, 1.1224765174324E-03, 2, False, 0, 0)
Set myFeature = Part.FeatureManager.SimpleHole2(0.0054, True, False, False, 1, 0, 0.0254, 0.0254, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, True, False)
Part.SelectionManager.EnableContourSelection = False
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2("Hole1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByRay(1.06119575008097E-03, 0.039624, 4.93456023787655E-02, -0.400036026779312, -0.515038074910024, -0.758094294050284, 1.1224765174324E-03, 1, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(6.36836165047043E-02, 3.96239999998329E-02, -6.33171793538168E-04, -0.400036026779312, -0.515038074910024, -0.758094294050284, 1.1224765174324E-03, 2, True, 16384, 0)
Set swFeatMgr = Part.FeatureManager
Set swFeatData = swFeatMgr.CreateDefinition(swFmFillPattern)
swFeatData.CreateSeedCutPolygonSides = 0
swFeatData.CreateSeedCutType = 0
swFeatData.Diagonal = 0.008
swFeatData.Diameter = 0.008
swFeatData.Dimension = 5.65685424949238E-03
swFeatData.FeaturesToPatternType = 0
swFeatData.GeometryPattern = False
swFeatData.InnerRadius = 3.80422606518061E-03
swFeatData.InstanceSpacing = 1.70240490494193E-02
swFeatData.LayoutSpacingType = 1
swFeatData.LoopSpacing = 1.70240490494193E-02
swFeatData.Margins = 0
swFeatData.NoOfInstances = 10
swFeatData.OuterRadius = 0.004
swFeatData.PatternLayoutPolygonSides = 0
swFeatData.PatternLayoutType = 0
swFeatData.Rotation = 0
swFeatData.SeedCutFlipShapeDirection = False
swFeatData.StaggerAngle = 1.0471975511966
Set swFeat = swFeatMgr.CreateFeature(swFeatData)