solidworks 20230702-526互联

1.6.1节，18页，步骤16的代码：

open SolidWorks.Interop.sldworks

let main(swApp: ISldWorks) =
    let swModel = 
        swApp.ActiveDoc 
        |> unbox<ModelDoc2>
    let boolstatus = 
        swModel.Extension.SelectByID2("前视基准面", "PLANE", 0.0, 0.0, 0.0, false, 0, null, 0)
    swModel.SketchManager.InsertSketch true
    let skSegment = swModel.SketchManager.CreateCircleByRadius(0.0, 0.0, 0.0, 0.04)
    let myFeature = swModel.FeatureManager.FeatureExtrusion3(true, false, false, 0, 0, 0.01, 0.01, false, false, false, false, 1.74532925199433e-02, 1.74532925199433e-02, false, false, false, false, true, true, true, 0, 0, false)
    ()

solidworks

20230702