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 ) )

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