《参数设置》PPT课件.ppt

参数设置,参数设置SW二次开发VB讲座,一.自定义参数,04:48:35,自定义参数（零件、装配与图纸）,参数设置SW二次开发VB讲座,04:48:35,自定义参数程序SetswApp=Application.SldWorksSetPart=swApp.ActiveDocDimCusPropMgrAsSldWorks.CustomPropertyManagerSetCusPropMgr=Part.Extension.CustomPropertyManager()DimaddstatusAsLongaddstatus=CusPropMgr.Add2(图号,swCustomInfoText,AB-150-008)addstatus=CusPropMgr.Add2(Material,swCustomInfoText,Chr(34)+SW-Material零件1.SLDPRT+Chr(34)addstatus=CusPropMgr.Add2(Weight,swCustomInfoText,Chr(34)+SW-Mass零件1.SLDPRT+Chr(34)addstatus=CusPropMgr.Add2(日期,swCustomInfoDate,2011-08-15),参数设置SW二次开发VB讲座,一.自定义参数,04:48:35,自定义参数更改、获取与删除addstatus=CusPropMgr.Set(图号,AB-150-007)addstr=CusPropMgr.Get(“Material”)CusPropMgr.Delete(日期)自定义参数遍历DimNamesAsVariantDimNamelongasLongDimNonameAsStringNamelong=CusPropMgr.CountNames=CusPropMgr.GetNamesFori=0toNamelongNoname=Names(i)Nexti,参数设置SW二次开发VB讲座,一.自定义参数,二.配置特定参数,04:48:35,配置特定参数,参数设置SW二次开发VB讲座,04:48:35,配置特定参数SetswApp=Application.SldWorksSetPart=swApp.ActiveDocDimretvalAsVariantDimCusPropMgrAsSldWorks.CustomPropertyManagerretval=Part.GetConfigurationNames()SetCusPropMgr=Part.Extension.CustomPropertyManager(retval(UBound(retval)DimaddstatusAsLongaddstatus=CusPropMgr.Add2(图号A,swCustomInfoText,AB-150-008)addstatus=CusPropMgr.Add2(MaterialA,swCustomInfoText,Chr(34)+SW-Material零件1.SLDPRT+Chr(34)addstatus=CusPropMgr.Add2(WeightA,swCustomInfoText,Chr(34)+SW-Mass零件1.SLDPRT+Chr(34)addstatus=CusPropMgr.Add2(日期A,swCustomInfoDate,2011-08-15),参数设置SW二次开发VB讲座,二.配置特定参数,三.摘要参数,04:48:35,摘要参数,参数设置SW二次开发VB讲座,04:48:35,摘要参数SetswApp=Application.SldWorksSetPart=swApp.ActiveDocPart.SummaryInfo(SwConst.swSumInfoAuthor)=AAAAPart.SummaryInfo(SwConst.swSumInfoKeywords)=BBBBPart.SummaryInfo(SwConst.swSumInfoComment)=CCCCPart.SummaryInfo(SwConst.swSumInfoTitle)=DDDDPart.SummaryInfo(SwConst.swSumInfoSubject)=EEEE“该信息的编辑处理：修改是在该项上重新输入删除只能再次输入=获取则为