用方程式自动提取“****_####.sldprt”中“_”前后内容做代号及名称

coexawacat · 发表于 2014-6-9 16:00:00

用方程式自动提取“****_####.sldprt”中“_”前后内容做代号及名称
以前有两个方法自动提取文件名中的部分内容做代号、名称，如下：
A、用方程式自动提取“****_####.sldprt”前9位做代号，后续内容做名称并填入属性栏的做法见“SolidWorks机械工程师论坛”。该方法不知道在Solidwork 2014版本里如何实现（方程式编辑方式不太一样），
B、用宏自动提取“****_####.sldprt”部分内容做代号，名称并填入属性栏的做法见“SolidWorks机械工程师论坛”。具体见附件。
感谢研究并分享A、B方法心得的各位坛友，非常感谢。
个人认为，以上A、B各有改进空间：
1、对于A方法，如果文件代号位数不定，则操作困难或复杂；
2、如果文件名更改，则需刷新宏文件，不能自动更新（也许个人知识有限）。
如果将A、B方法结合起来，做成零件模板、部件模板，达到“用方程式自动提取“****_####.sldprt”中“_”前后内容做代号及名称".则完美了。不知有谁知道如何解决？请不吝指教。

图号名称分离.rar (9.83 KB, 下载次数: 84)

maoyl · 发表于 2014-6-9 16:00:11

这个问题我谈下我的感受，”

图号名称分离.rar (9.83 KB, 下载次数: 50) “我感觉使用效果很不错，感谢作者及辗转提供该附件的坛友，。在sw2014 sp3里能很好使用，其它版本应该更没有问题，但有个前提文件名称必须按照 “****_####.sldprt”来编制，及代号部分与零件名称部门之间必须有个下划线"_",否则不能实现提取功能。

lohaisu · 发表于 2014-6-9 16:02:15

上图是我自己以前使用的文件模板，是将文件名做代号用，自动提取文件名转为代号，完全关联，文件名更改、代号即自动更新，不需特意刷新，不会产生忘记刷新导致图号错误的问题。
如果能将$PRP:"SW-file name"改为
$PRP:"提取"SW-file name"中_前部分"
（上面为不正确的表达方式，个人水平有限，仅仅用来表达我之意思。）
实现自动提取文件名中"_"之前部分做代号、之后部分做名称，实现自动更新，则美矣！

nszqf · 发表于 2014-6-9 16:05:07

可以实现了，我在模板里做了嵌入式宏命令，保存后刷新一次，就可以自动将文件名里的图号，名称提取出来做自定义的图号名称了

fyf990237 · 发表于 2014-6-9 16:11:44

经典案例图书

感谢回复
宏提取文件名字符为何不成功
SolidWorks机械工程师论坛
上面帖子里，除了“图号名称分离.rar”用的顺利外，其它的都不行（我的是Solidworks2014 SP3),不过没关系，我对 “图号名称分离.rar”已经很满意了。但是美中不足的是，如果文件名改了，忘记了刷新宏命令按钮的话，会导致图号错误。

丘星 · 发表于 2014-6-9 16:14:49

寫多一個宏, 讓SW在每次切換文件時都自動執行指定的宏, 那就可以避免忘記按動按鈕.
1.
在C:盤建立"Macros"的文件夾, 並複制宏"partitionTM.swp"於其中.
2.
新建一個宏, 儲存到"C:MacrosAutoRun.swp"
把以下代碼完全取代模塊的內容:
Public AutoRun As 类1
Sub main()
Set AutoRun = New 类1
End Sub
再插入"類模塊", 名稱為"类1", 內容如下:
Private WithEvents SwApp As SldWorks.SldWorks
Private Sub Class_Initialize()
Set SwApp = Application.SldWorks
End Sub
Private Function SwApp_ActiveModelDocChangeNotify() As Long
Dim runMacroError As Long
SwApp.RunMacro2 "C:MacrospartitionTM.swp", "partitionTM1", "main", 0, runMacroError
End Function
儲存宏及關閉SW.
3.
執行SW並一起載入宏的方法
"安裝位置SLDWORKS.exe" /m "C:MacrosAutoRun.swp"

校友淘 · 发表于 2014-6-9 16:15:05

经典案例图书

非常荣幸能得到大王兄老师的指点，让大王兄老师费心了，，终于完美了。

yy326 · 发表于 2014-6-9 16:16:26

按工程师教程設置，成功了~~

lgl713 · 发表于 2014-6-9 16:18:46

零件
1
Dim Txt
Txt = part.GetTitle()
Txt = Left(Txt,InStr(Txt," ")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("NO.",Txt)
装配体
1
Dim Txt
Txt = Assembly.GetTitle()
Txt = Left(Txt,InStr(Txt," ")-1)
Txt = Assembly.Extension.CustomPropertyManager("").Set("NO.",Txt)
零件
2
Dim Txt
Txt = part.GetTitle()
Txt = Right(Txt,Len（Txt）-InStr(Txt," "))
Txt = Left(Txt,InStr(Txt,".")-1)
Txt = Part.Extension.CustomPropertyManager("").Set("Name",Txt)
装配体
2
Dim Txt
Txt = Assembly.GetTitle()
Txt = Right(Txt,Len（Txt）-InStr(Txt," "))
Txt = Left(Txt,InStr(Txt,".")-1)
Txt = Assembly.Extension.CustomPropertyManager("").Set("Name",Txt)
这是我调试好的内嵌式宏
我定的规则是图号名称间加个空格，以空格为来设定的
然后我设定的Name为名称，，NO.为图号，因为在06年的时候只有06版，那时候不支持中文的自定义名称，只好用这代替，一直沿用到现在