10-参数设置

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,参数设置,参数设置,SW,二次开发,VB,讲座,一,.,自定义参数,*,自定义参数,（零件、装配与图纸）,参数设置,SW,二次开发,VB,讲座,*,自定义参数程序,Set,swApp,=,Application.SldWorks,Set Part =,swApp.ActiveDoc,Dim,CusPropMgr,As,SldWorks.CustomPropertyManager,Set,CusPropMgr,=,Part.Extension.CustomPropertyManager,(),Dim,addstatus,As Long,addstatus,= 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,讲座,一,.,自定义参数,*,自定义参数更改、获取与删除,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),Next i,参数设置,SW,二次开发,VB,讲座,一,.,自定义参数,二,.,配置特定参数,*,配置特定参数,参数设置,SW,二次开发,VB,讲座,*,配置特定参数,Set,swApp,=,Application.SldWorks,Set Part =,swApp.ActiveDoc,Dim,retval,As Variant,Dim,CusPropMgr,As,SldWorks.CustomPropertyManager,retval,=,Part.GetConfigurationNames,(),Set,CusPropMgr,=,Part.Extension.CustomPropertyManager(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),addstatus,= CusPropMgr.Add2(,日期,A,swCustomInfoDate,2011-08-15),参数设置,SW,二次开发,VB,讲座,二,.,配置特定参数,三,.,摘要参数,*,摘要参数,参数设置,SW,二次开发,VB,讲座,*,摘要参数,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“,该信息的编辑处理：,修改是在该项上重新输入 删除只能再次输入,=,获取则为,=,Part.SummaryInfo(SwConst.swSumInfoKeywords,),参数设置,SW,二次开发,VB,讲座,三,.,摘要参数,谢谢！,*,参数设置,SW,二次开发,VB,讲座,