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

arter · 发表于 2014-6-9 16:00:05

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

以前有两个方法自动提取文件名中的部分内容做代号、名称，如下：

A、用方程式自动提取“****_####.sldprt”前9位做代号，后续内容做名称并填入属性栏的做法见“http://www.3dportal.cn/discuz/fo ... n=newthread&fid=131”。该方法不知道在Solidwork 2014版本里如何实现（方程式编辑方式不太一样），

B、用宏自动提取“****_####.sldprt”部分内容做代号，名称并填入属性栏的做法见“http://www.3dportal.cn/discuz/fo ... wthread&tid=1250784”。具体见附件。

感谢研究并分享A、B方法心得的各位坛友，非常感谢。

个人认为，以上A、B各有改进空间：

1、对于A方法，如果文件代号位数不定，则操作困难或复杂；
2、如果文件名更改，则需刷新宏文件，不能自动更新（也许个人知识有限）。

如果将A、B方法结合起来，做成零件模板、部件模板，达到“用方程式自动提取“****_####.sldprt”中“_”前后内容做代号及名称".则完美了。不知有谁知道如何解决？请不吝指教。

arter · 发表于 2014-6-16 10:11:16

这个问题我谈下我的感受，”图号名称分离.rar“我感觉使用效果很不错，感谢作者及辗转提供该附件的坛友，

。在sw2014 sp3里能很好使用，其它版本应该更没有问题，但有个前提文件名称必须按照 “****_####.sldprt”来编制，及代号部分与零件名称部门之间必须有个下划线"_",否则不能实现提取功能。

arter · 发表于 2014-6-16 10:18:39

上图是我自己以前使用的文件模板，是将文件名做代号用，自动提取文件名转为代号，完全关联，文件名更改、代号即自动更新，不需特意刷新，不会产生忘记刷新导致图号错误的问题。

如果能将$PRP:"SW-file name"改为
$PRP:"提取"SW-file name"中_前部分"
（上面为不正确的表达方式，个人水平有限，仅仅用来表达我之意思。）
实现自动提取文件名中"_"之前部分做代号、之后部分做名称，实现自动更新，则美矣！

l88i · 发表于 2014-6-16 13:28:18

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

arter · 发表于 2014-6-16 13:39:49

感谢回复

宏提取文件名字符为何不成功

http://www.3dportal.cn/discuz/fo ... &fromuid=401891

上面帖子里，除了“图号名称分离.rar”用的顺利外，其它的都不行（我的是Solidworks2014 SP3),不过没关系，我对 “图号名称分离.rar”已经很满意了。但是美中不足的是，如果文件名改了，忘记了刷新宏命令按钮的话，会导致图号错误。

Francis · 发表于 2014-6-16 21:46:44

arter 发表于 2014-6-16 13:39 static/image/common/back.gif
) w: n6 A. B' u" n# y感谢回复
- f4 q6 O* a5 X8 N4 g0 t9 H
0 x- L! y' \ S/ x5 n宏提取文件名字符为何不成功

寫多一個宏, 讓SW在每次切換文件時都自動執行指定的宏, 那就可以避免忘記按動按鈕.

1.
在C:盤建立"Macros"的文件夾, 並複制宏"partitionTM.swp"於其中.

2.
新建一個宏, 儲存到"C:\Macros\AutoRun.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:\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
End Function
儲存宏及關閉SW.

3.
執行SW並一起載入宏的方法
"安裝位置\SLDWORKS.exe" /m "C:\Macros\AutoRun.swp"

arter · 发表于 2014-6-17 09:34:26

本帖最后由 arter 于 2014-6-17 09:57 编辑

非常荣幸能得到闷人老师的指点，让闷人老师费心了，

，终于完美了。

gt.adan · 发表于 2014-6-17 11:22:31

按悶大教程設置，成功了~~

l88i · 发表于 2014-6-17 16:00:48

本帖最后由 l88i 于 2014-6-17 16:04 编辑

零件
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版，那时候不支持中文的自定义名称，只好用这代替，一直沿用到现在

l88i · 发表于 2014-6-17 16:05:31

如果有人感兴趣我就发我的模板

gt.adan · 发表于 2014-6-17 16:57:59

本帖最后由 gt.adan 于 2014-6-17 17:29 编辑

l88i 发表于 2014-6-17 16:05 static/image/common/back.gif
4 }2 U6 m: l8 k% }; D6 a5 r如果有人感兴趣我就发我的模板

自己按語句嵌入一次，得到錯誤的回應…

能傳上來研究一下嗎？謝謝。

l88i · 发表于 2014-6-18 13:42:18

内嵌式宏命令，自动分割文件名生成图号名称，分享模板
http://www.3dportal.cn/discuz/fo ... &fromuid=302658

SWSWSWsw · 发表于 2014-6-24 14:01:22

我一直代号，名字放一列里。不能自动改新。看来落伍了。

Mr、、、_Dior、 · 发表于 2014-6-25 15:20:27

8错啊。路过

qwslayer1 · 发表于 2014-6-27 09:56:14

附件无法打开啊

api163 · 发表于 2014-12-27 12:58:41

这个很好，应该有。

machine134 · 发表于 2014-12-27 21:20:25

本帖最后由 machine134 于 2014-12-27 21:25 编辑

arter 发表于 2014-6-16 10:18 static/image/common/back.gif
5 J" t8 V) s) L7 s3 {上图是我自己以前使用的文件模板，是将文件名做代号用，自动提取文件名转为代号，完全关联，文件名更改、代 ...

不是属性链接设置也可以把文件名跟图代号关联吗，呵呵，软件只是为了工作设计提供方便，能方便快捷就好没必要走弯路显花招,把时间精神多花在针对专业中去吧

zaq1212 · 发表于 2014-12-28 13:23:49

有顶起，有回复，有下载

zaq1212 · 发表于 2014-12-28 13:46:39

不科学，这嵌入宏要是能提取文件夹你名字就好了

shurufa111 · 发表于 2014-12-29 19:24:43

厉害，总结归纳也很重要，能人多出力，普惠大众。。。谢谢

liuyc1213 · 发表于 2015-5-20 10:16:58

l88i 发表于 2014-6-17 16:00 static/image/common/back.gif
) u& |+ S" ^+ }6 F0 [% a3 @零件6 h ]4 Z( ~6 N
1- g3 @0 z" ^- H9 C! ?
Dim Txt

你好，用了你的模板，图号可以更新为空格键前面的字符，但是空格后面的名称不会更新，望指点

杨成武 · 发表于 2016-1-29 10:51:25

l88i 发表于 2014-6-17 16:05
7 v4 n/ ?6 v8 A, g( ]& v如果有人感兴趣我就发我的模板

你能把你模板发给我看看吗谢谢你啦。

mls · 发表于 2016-2-2 15:48:40

谢谢分享，来学习。

arter · 发表于 2017-7-6 19:28:41

有没有WIN 10 ，solIdworks 2014能用的图号名称自动分离模板？以前的都不能用了

发生地方萨芬 · 发表于 2017-7-7 08:25:39

学习

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

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块