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

huanglijie168

   经典图书

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

方程式实现图号名称分离的功能

A、 写入方程式图号名称分离后可以实现自动图号和名称分离到属性中，省去了手动填写属性的麻烦或是省去了点击图号名称分离宏（改名后容易忘记点）

利用方程式实现图号名称分离的步骤

1、 点击文件-属性，在属性栏增加这4项

1）、零件代码

零件图号代码：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 )  )

2）、装配体代码

装配体图号代码：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 )  )

2、 点击工具-方程式，按照图片内容增加2条方程式（引号为英文状态双引号””）

利用以上代码实现图号名称分离，非常方便和使用，再也不用害怕忘记点击图号名称分离宏了。

但是上面的代码有几个缺点：

A、 图号名称不能写入到配置属性中

B、 属性中必须有图号和名称属性，否则就无法分离出图号和名称

C、 文件扩展名需要显示出来，否则名称会分离错误

D、最致命的缺点是：文件保存关闭后，每次打开，不管你改没改文件，都会弹出保存对话框，打印图纸也提示保存。

E、 步骤对于初学者来说有点复杂

F、 对于已经画好的半成品或是外来图，加上利用方程式代号名称分离比较繁琐

针对以上问题，我重新整理了一下这套模板，实现了一下的功能：

A、 代号名称可以写入到配置属性中

B、 属性中可以没有代号和名称属性，可正常分离出代号和名称

C、 文件扩展名显示不显示都可以正常代号名称分离

D、解决了最致命的问题，文件保存关闭后，再次打开，不修改的话不会提示保存。

E、 有教学视频、也有一键导入宏、还有做好的模板拿过来直接用

F、 有一键写入方程式自动代号名称分离的宏程序，一次写入永久使用

有需要的朋友可以点击链接查看

附件为网络流传的普通代码  只能分离到自定义 不能隐藏扩展名 每次打开都会会弹出保存对话框

看不见的妳

分离到配置
零件
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

   经典图书

很不错，顶一下！

淡淡的雲

感谢楼主分享，很不错！

fan03488

   经典案例图书

感谢楼主分享，很不错！

yun6yun7

感谢楼主分享，很不错！

Alex_Wang

   经典案例图书

楼主解决我心中想了很久的问题，楼主实现的方式和公式和我用的都一样，感谢

Alex_Wang

大哥你得宏能分享一下么，有偿的都行

caption_cn

应该是只适用于2022及以后版本吧，最好说明一下

824751842

   经典图书

这个改成在配置里面能用的在哪里？

824751842

楼主  链接在哪里呢？

824751842

楼主  链接在哪里呢？

huanglijie168

caption_cn 发表于 2022-7-1 09:23
应该是只适用于2022及以后版本吧，最好说明一下

2016后的版本都可以，2016之前的没有测试

824751842

huanglijie168 发表于 2022-7-3 08:40
2016后的版本都可以，2016之前的没有测试

代号名称可以写入到配置属性中的方程式在哪呢？

汤姆饿死了

加入QQ群
参与讨论和学习

或扫描二维码加入

大佬NB  感谢！

geliang112055

   经典案例图书

楼主辛苦了！

宏峰1981

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

wjbg2019

   经典案例图书

感谢楼主分享，很不错！

wjbg2019

看不见的妳 发表于 2022-12-22 15:34
分离到配置
零件
1）在“代号代码”属性 “数值/文本表达“Copy 如下代码：

大佬，能不能分享一下模版！好人一生平安

看不见的妳

wjbg2019 发表于 2023-5-6 15:53
大佬，能不能分享一下模版！好人一生平安

代码给出来了，照着教程copy进去就是的