solidworks api ch04

用默认模板新建零件，并修改用户偏爱：

let newPart (swApp: ISldWorks) =
    // Get the file path of the default part template
    let partTemplate = swApp.GetUserPreferenceStringValue(int swUserPreferenceStringValue_e.swDefaultTemplatePart)
    let swModel = 
        swApp.NewDocument(partTemplate, 0, 0.0, 0.0)
        |> unbox<ModelDoc2>

    swModel.Extension.SetUserPreferenceInteger(
        int swUserPreferenceIntegerValue_e.swUnitsLinear, 
        int swUserPreferenceOption_e.swDetailingNoOptionSpecified,
        int swLengthUnit_e.swMM)
    |> ignore
    swApp.SetUserPreferenceToggle(int swUserPreferenceToggle_e.swInputDimValOnCreate, false)
    swModel