SolidWorks内嵌VB代码实现文档属性关联技巧

   一，考虑很多朋友在没有PDM的环境下，出现文档名称，与名称和代码不关联，三步可以解决此问题。

    二，模板文件混合嵌入VB代码，实现SolidWorks文档名称中代号和名称分离，属性名称和代号与文档名称自动关联

     三，免去手动填写属性卡的，节省时间，提升效率，减少错误。

第1步：自定义属性中增加

名称代码=0;

代号代码=0;

第2步：方程式中增加

P1="名称代码";

P2="图号代码";

第3步：自定义属性中改写代码

代号代码=

Part.Extension.CustomPropertyManager("").Set("代号",Left(Part.GetTitle,InStr(Part.GetTitle," ")))

名称代码=

Part.Extension.CustomPropertyManager("").Set("名称", Left( Right(Part.GetTitle,Len(Part.GetTitle)-InStr(Part.GetTitle," ") ) ,Len( Right(Part.GetTitle,Len(Part.GetTitle)-InStr(Part.GetTitle," ") ) ) -7 ) )

第1步：自定义属性中增加

名称代码=0;

代号代码=0;

第2步 ：方程式中增加

P1="名称代码";

P2="图号代码";

第3步，自定义改写代码

代号代码= Assembly.Extension.CustomPropertyManager("").Set("代号",Left(Assembly.GetTitle,InStr(Assembly.GetTitle," ")))

名称代码=Assembly.Extension.CustomPropertyManager("").Set("名称", Left( Right(Assembly.GetTitle,Len(Assembly.GetTitle)-InStr(Assembly.GetTitle," ") ) ,Len( Right(Assembly.GetTitle,Len(Assembly.GetTitle)-InStr(Assembly.GetTitle," ") ) ) -7 ) )

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删

武汉格发信息技术有限公司，格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求，再低成本合规性管理软件许可,帮助贵司提高软件投资回报率，为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...