10-参数设置ppt课件.ppt

1、参数设置,参数设置 SW 二次开发VB讲座,1,一.自定义参数,23:43:04,自定义参数 （零件、装配与图纸）,参数设置 SW 二次开发VB讲座,2,23:43:04,自定义参数程序 Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim CusPropMgr As SldWorks.CustomPropertyManager Set CusPropMgr = Part.Extension.CustomPropertyManager() Dim addstatus As Long addstatus = CusProp

2、Mgr.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讲座,一

3、.自定义参数,3,23:43:04,自定义参数更改、获取与删除 addstatus = CusPropMgr.Set(图号,AB-150-007) addstr = CusPropMgr.Get(“Material”) CusPropMgr.Delete(日期) 自定义参数遍历 Dim Names As Variant Dim Namelong as Long Dim Noname As String Namelong = CusPropMgr.Count Names = CusPropMgr.GetNames For i=0 to Namelong Noname = Names(i) Nex

4、t i,参数设置 SW 二次开发VB讲座,一.自定义参数,4,二.配置特定参数,23:43:04,配置特定参数,参数设置 SW 二次开发VB讲座,5,23:43:04,配置特定参数 Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim retval As Variant Dim CusPropMgr As SldWorks.CustomPropertyManager retval = Part.GetConfigurationNames() Set CusPropMgr = Part.Extension.CustomPr

5、opertyManager(retval(UBound(retval) Dim addstatus As Long addstatus = 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

6、) addstatus = CusPropMgr.Add2(日期A,swCustomInfoDate,2011-08-15),参数设置 SW 二次开发VB讲座,二.配置特定参数,6,三.摘要参数,23:43:04,摘要参数,参数设置 SW 二次开发VB讲座,7,23:43:04,摘要参数 Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Part.SummaryInfo(SwConst.swSumInfoAuthor) = AAAA Part.SummaryInfo(SwConst.swSumInfoKeywords) = BBBB Part.SummaryInfo(SwConst.swSumInfoComment) = CCCC Part.SummaryInfo(SwConst.swSumInfoTitle) = DDDD Part.SummaryInfo(SwConst.swSumInfoSubject) = EEEE“ 该信息的编辑处理： 修改是在该项上重新输入 删除只能再次输入 = 获取则为