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

huanglijie168 · 发表于 2022-6-29 17:26:58

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

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

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、有一键写入方程式自动代号名称分离的宏程序，一次写入永久使用

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

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

看不见的妳 · 发表于 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

很不错，顶一下！

淡淡的雲 · 发表于 2022-6-30 10:45:46

感谢楼主分享，很不错！

fan03488 · 发表于 2022-6-30 19:49:40

经典案例图书

感谢楼主分享，很不错！

yun6yun7 · 发表于 2022-6-30 22:24:30

感谢楼主分享，很不错！

Alex_Wang · 发表于 2022-7-1 09:00:26

经典案例图书

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

Alex_Wang · 发表于 2022-7-1 09:09:32

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

caption_cn · 发表于 2022-7-1 09:23:45

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

824751842 · 发表于 2022-7-1 10:05:27

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

824751842 · 发表于 2022-7-1 10:44:59

楼主链接在哪里呢？

824751842 · 发表于 2022-7-1 10:45:05

楼主链接在哪里呢？

huanglijie168 · 发表于 2022-7-3 08:40:45

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

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

824751842 · 发表于 2022-7-3 16:15:35

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

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

汤姆饿死了 · 发表于 2022-12-6 23:02:09

加入QQ群
参与讨论和学习

或扫描二维码加入

大佬NB 感谢！

geliang112055 · 发表于 2023-2-15 11:01:36

经典案例图书

楼主辛苦了！

宏峰1981 · 发表于 2023-5-6 12:07:41

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

wjbg2019 · 发表于 2023-5-6 15:47:25

经典案例图书

感谢楼主分享，很不错！

wjbg2019 · 发表于 2023-5-6 15:53:48

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

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

看不见的妳 · 发表于 2023-5-8 08:32:55

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

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

		自动登录	找回密码
密码			立即注册

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

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

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

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

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