用默认模板新建零件，并修改用户偏爱：
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