|
不用跪,喜歡拿去~~DimswAppAsSldWorks.SldWorksDimswModelAsModelDoc2DimswCustPropAsCustomPropertyManagerDimvalAsStringDimvaloutAsStringDimboolAsBooleanSubmain()SetswApp=Application.SldWorksSetswModel=swApp.ActiveDocSetswCustProp=swModel.Extension.CustomPropertyManager("")bool=swCustProp.Get4("材質",True,val,valout)'獲取"材質"的數值mat=Left(valout,InStr(valout,"/")-1)fin=Right(valout,Len(valout)-Len(mat)-1)'寫入材質和表面處理的屬性retval=swApp.ActiveDoc.DeleteCustomInfo2("","Material")retval=swApp.ActiveDoc.AddCustomInfo3("","Material",swCustomInfoText,mat)retval=swApp.ActiveDoc.DeleteCustomInfo2("","Finishing")retval=swApp.ActiveDoc.AddCustomInfo3("","Finishing",swCustomInfoText,fin)MsgBox"Done!"EndSub
复制代码 |
|