求批量插入属性及方程式的宏，用于插入代号名称分离方程式及属性代码

看不见的妳

1，能够在零件及装配体中插入属性及方程式
2，可以选择插入到自定义或配置（插入到配置时要对所有配置都添加，否则切换到另一个配置时，方程式里的代号名称分离方程式报错）
举例1：
在配置中添加：代号、名称、代号代码、名称代码
代号代码中写入（模型为零件时）
Part.Extension.CustomPropertyManager(Part.GetActiveConfiguration.name).Set("代号",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
名称代码中写入（模型为零件时）
Part.Extension.CustomPropertyManager(Part.GetActiveConfiguration.name).Set("名称",Left(Right(Part.GetTitle,Len(Part.GetTitle)-InStr(Part.GetTitle," ")),Len(Right(Part.GetTitle,Len(Part.GetTitle)-InStr(Part.GetTitle," ")))-7))
代号代码中写入（模型为装配体时）
Assembly.Extension.CustomPropertyManager(Assembly.GetActiveConfiguration.name).Set("代号",Left(Assembly.GetTitle,InStr(Assembly.GetTitle," ")))
名称代码中写入（模型为装配体时）
Assembly.Extension.CustomPropertyManager(Assembly.GetActiveConfiguration.name).Set("名称",Left(Right(Assembly.GetTitle,Len(Assembly.GetTitle)-InStr(Assembly.GetTitle," ")),Len(Right(Assembly.GetTitle,Len(Assembly.GetTitle)-InStr(Assembly.GetTitle," ")))-7))
方程式中添加
code  ="代号代码"
name  ="名称代码"
举例2：
在自定义中添加：代号、名称、代号代码、名称代码
代号代码中写入（模型为零件时）
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))
代号代码中写入（模型为装配体时）
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))
方程式中添加
code  ="代号代码"
name  ="名称代码"

可以根据自己的选择是写入自定义还是写入配置，默认写入配置

看不见的妳

Allate 发表于 2022-12-22 16:24
' ******************************************************************************
' 利用方程式实现图 ...

版主大大，能否加个遍历的功能？现在的这个宏需要打开每个装配体跟零件再运行，加上遍历功能，这个宏就更完美了，另外添加代码到当前配置，该怎么修改？平时基本上用的都是配置，几乎用不到自定义。

看不见的妳

   经典图书

Allate 发表于 2023-1-3 16:25
' ******************************************************************************
' 利用方程式实现 ...

非常感谢，功能非常完美，