参数设置实用

会计学1参数设置实用一.自定义参数02:15:27自定义参数（零件、装配与图纸）参数设置SW二次开发VB讲座第1页/共9页02:15:27自定义参数程序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讲座一.自定义参数第2页/共9页02:15:27自定义参数更改、获取与删除addstatus=CusPropMgr.Set("图号","AB-150-007")addstr=CusPropMgr.Get(“Material”)CusPropMgr.Delete("日期")自定义参数遍历DimNamesAsVariantDimNamelongasLongDimNonameAsStringNamelong=CusPropMgr.CountNames=CusPropMgr.GetNamesFori=0toNamelongNoname=Names(i)Nexti参数设置SW二次开发VB讲座一.自定义参数第3页/共9页二.配置特定参数02:15:27配置特定参数参数设置SW二次开发VB讲座第4页/共9页02:15:27配置特定参数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讲座二.配置特定参数第5页/共9页三.摘要参数02:15:27摘要参数参数设置SW二次开发VB讲座第6页/共9页02:15:27摘要参数SetswApp=Application.SldWorksSetPart=swApp.ActiveDocPart.SummaryInfo(SwConst.swSumInfoAuthor)="AAAA"Part.SummaryInfo(SwConst.swSumInfoKeywords)="BBBB"Part.SummaryInfo(SwConst.swSumInfoComment)="CCCC"Part.SummaryInfo(SwConst.swSumInfoTitle)="DDDD"Part.SummaryInfo(SwConst.swSumInfoSubject)="EEEE“该信息的编辑处理：修改是在该项上重新输入删除只能再次输入=""获取则为=

Part.SummaryInfo(SwConst.swSumInfoKeywords)参数设置