SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 利用方程式实现图号名称自动分离（不弹出保存对话框） ...

利用方程式实现图号名称自动分离（不弹出保存对话框）宏程序写入方程式

查看数: 16636 | 评论数: 27 | 收藏 7

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

huanglijie168

发布时间: 2022-6-29 17:26

正文摘要:

利用方程式实现图号名称自动分离（不弹出保存对话框）方程式实现图号名称分离的功能A、写入方程式图号名称分离后可以实现自动图号和名称分离到属性中，省去了手动填写属性的麻烦或是省去了点击图号名称分离宏（改名 ...

看不见的妳 发表于 2022-12-22 15:34:12

分离到配置
零件
1）在“代号代码”属性 “数值/文本表达“Copy 如下代码：
Part.Extension.CustomPropertyManager(Part.GetActiveConfiguration.name).Set("代号",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
2）在“名称代码”属性 “数值/文本表达“Copy 如下代码：
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))
装配体
1）在“代号代码”属性 “数值/文本表达“Copy 如下代码：
Assembly.Extension.CustomPropertyManager(Assembly.GetActiveConfiguration.name).Set("代号",Left(Assembly.GetTitle,InStr(Assembly.GetTitle," ")))
2）在“名称代码”属性 “数值/文本表达“Copy 如下代码：
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))
分离到自定义
零件
1）在“代号代码”属性 “数值/文本表达“Copy 如下代码：
Part.Extension.CustomPropertyManager("").Set("代号",Left(Part.GetTitle,InStr(Part.GetTitle," ")))
2）在“名称代码”属性 “数值/文本表达“Copy 如下代码：
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）在“代号代码”属性 “数值/文本表达“Copy 如下代码：
Assembly.Extension.CustomPropertyManager("").Set("代号",Left(Assembly.GetTitle,InStr(Assembly.GetTitle," ")))
2）在“名称代码”属性 “数值/文本表达“Copy 如下代码：
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))
b站是个打广告的，淘宝里卖

xzking18 发表于 2022-6-30 10:18:53