生成用于指定的宏
你好我是宏新手，需要帮助编写宏以添加零件号（自定义属性名称：“Poz”）装配中的每个零件
根据一些规则。
在第一张图中，您可以看到组件的未排序BOM表（没有零件号的所有零件的列表）
在第二张图中，有一个已排序的BOM表。（我为本例手动添加了零件号（红色）
零件号添加规则：
1.从1号开始的零件号应分配给具有可见“MaterialJAL”列（橙色）的零件。这部分的编号顺序并不重要。
2.当没有更多具有“MaterialJAL”列的零件时，应将下一个零件号分配给具有以“FESTO”开头的“Norma/Oznaka crteža”列（自定义配置属性）的零件。（粉红色）
3.接下来是具有相同自定义属性的零件，以“SMC”（蓝色）开头
4.接下来是具有相同自定义属性的零件，以“HYPEX”（灰色）开头
5.接下来是具有相同自定义属性的零件，从所有其他零件开始（棕色）
6.零件号不应分配给自定义属性以“HRN”（绿色）开头的零件，因为这些编号已经
在工具箱中分配。
谢谢 根据我的经验，（我自己刚刚开始宏写作）
人们更愿意帮助您修复代码，而不是为您编写代码。
我在Solidworks论坛上有很多帖子被忽略了，因为我没有
表明我至少是在尝试自己编写代码。
你所追求的是一项重大成就。
你可以考虑花钱请人为你编写代码
（在Solidworks论坛上）
https://forum.solidworks.com/community/api
祝你好运 对于初学者来说，这是一项相当复杂的任务。你以前做过编码吗？
要做到这一点，你需要知道几件重要的事情。我没有任何接近的宏，但我可以给你一些代码，让你开始。您需要了解如何在装配中抓取每个零件。您需要了解每个零件的配置。下面的一小段代码将获取我为一个零件制作的活动文档，但也将更改程序集的自定义属性。对于部件，您实际上必须打开每个零件，重建并保存/关闭它，然后返回部件。
无论如何，我下面的代码为激活的部件或零件文件添加了一个自定义特性。
选项显式
Dim交换为SldWorks。SldWorks公司
作为SldWorks的Dim swModel。ModelDoc2
Dim配置为SldWorks。配置
Dim cusPropMgr As SldWorks。CustomPropertyManager
Dim lRetVal等长
Sub main（）
设置swap=应用程序。SldWorks公司
设置swModel=交换。活动文档
设置配置=swModel。GetActiveConfiguration
设置cusPropMgr=config。CustomPropertyManager
lRetVal=cusPropMgr。Add3（“NewConfig”，swCustomInfoDate，“12-10-15”，swCustomPropertyDeleteAndAdd）
末端接头
页:
[1]