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

看不见的妳

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

' ******************************************************************************
' 利用方程式实现图号分离.swp - By Allate, 2022-12-30
' ******************************************************************************
' 说明：
' 1. 本宏自动添加自定义属性代码以及方程式，再利用方程式进行图号分离；
' 2. 图号分离利用的符号是【空格】。


宏文件：
利用方程式实现图号分离_2022-12-30.zip (8.48 KB, 下载次数: 198, 售价: 20 金币)

2022-12-30 14:58 上传

点击文件名下载附件
售价: 20 金币  [记录]
下载积分: 金币 -1

pp6913

顶一下，坐等高手！

Alex_Wang

Allate 发表于 2022-12-30 14:59
' ******************************************************************************
' 利用方程式实现图 ...

早就想找这样的的东西了，感谢大神分享！！！！！！！！！！！

看不见的妳

   经典案例图书

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

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

Allate

看不见的妳 发表于 2023-1-3 10:56
版主大大，能否加个遍历的功能？现在的这个宏需要打开每个装配体跟零件再运行，加上遍历功能，这个宏就更 ...

' ******************************************************************************
' 利用方程式实现图号分离.swp - By Allate, 2023-01-03
' ******************************************************************************
' 说明：
' 1. 本宏自动添加配置特定代码以及方程式，再利用方程式进行图号分离；
' 2. 增加遍历装配体功能；
' 3. 图号分离利用的符号是【空格】。


宏文件：
利用方程式实现图号分离_2023-01-03.zip (11.58 KB, 下载次数: 192, 售价: 20 金币)

2023-1-3 16:25 上传

点击文件名下载附件
售价: 20 金币  [记录]
下载积分: 金币 -1

看不见的妳

   经典案例图书

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

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

yunzhonghun

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

功能完美，感谢分享，向你学习！

7457hhghhg

pp6913 发表于 2022-12-23 10:22
顶一下，坐等高手！

顶一下，坐等高手！

UDF998

下载下来看看，应该会有用！

UDF998

SolidWorks机械工程师网，顶一下。

懒懒的高贵

很不错，顶一下！

皮卡超人

刚来，没金币买不起

fan03488

感谢楼主分享，很不错！

sip1068

加入QQ群
参与讨论和学习

或扫描二维码加入

楼主辛苦了！

qq5921

   经典案例图书

这个挺好的

my511725147

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

z460515477

   经典案例图书

这个遍历好，我也找了好久，才发现还有悬赏区

z460515477

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

A大这个遍历宏，是不是零件或装配体名称中不含空格，方程式中name写不进去

Allate

z460515477 发表于 2023-5-19 16:05
A大这个遍历宏，是不是零件或装配体名称中不含空格，方程式中name写不进去

是的，你或者可以更改分割符