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

ryouss · 发表于 2013-12-17 23:47:18

本帖最后由 ryouss 于 2013-12-18 08:51 编辑

398312203 发表于 2013-12-17 11:30 static/image/common/back.gif
& N- U* y( ?, D2 }9 t自己给自己顶一个……

試試如下:win7 64位元
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)
功能:應用宏抓出零件編碼的"代號"及"名稱",放置到屬性欄.
' 2013/12/17 2012-sp4版 test
' data
'宏 ---> 屬性
Dim swApp As Object
Sub main()
Dim retval                As Boolean
Dim name_front       As String
Dim swModel             As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName
name_ = swModel.GetTitle
L1 = InStrRev(name_, "_", , 0)
L2 = InStrRev(name_, ".", , 0)
name_front = Left(name_, L1 - 1)
name_back = Mid(name_, L1 + 1, L2 - L1 - 1)
retval = swModel.DeleteCustomInfo("代號")
retval = swModel.AddCustomInfo3("", "代號", swCustomInfoText, name_front)
retval = swModel.DeleteCustomInfo("名稱")
retval = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, name_back)
End Sub

test121217.rar (6.95 KB, 下载次数: 113)

398312203 · 发表于 2013-12-19 09:50:04

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif
! V* W3 G/ [8 ~) o5 V. o) {% S試試如下:win7 64位元; _- r& N- }, J2 J4 {9 v8 ^; o' k4 c
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)
6 O" M% J9 m# o2 G$ N' x2 C功能:應用宏抓 ...

嗯，谢谢大神。已解决，赞一个

zqkzqk2008 · 发表于 2013-12-19 16:32:47

本帖最后由 zqkzqk2008 于 2013-12-19 16:34 编辑

闷大，我在更改以前的零件属性时，插入方程式的步骤比较多，想一键完成，遇到如下问题，要怎么解决哦
Dim swEquationMgr As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swEquationMgr = Part.GetEquationMgr()
swEquationMgr.Add -1, "执行宏" & Chr(34) & "=" & """嵌合宏""" '这里出了问题，“嵌合宏”这位置只能是数字，字母汉字都无法插入，求解
End Sub

Francis · 发表于 2013-12-19 17:07:24

zqkzqk2008 发表于 2013-12-19 16:32 static/image/common/back.gif1 q. X2 B3 d9 z2 y2 p# w. z
闷大，我在更改以前的零件属性时，插入方程式的步骤比较多，想一键完成，遇到如下问题，要怎么解决哦
& B0 O. \" Q9 E- |* y) p7 a/ MDim ...

建議使用“回复”及“添加代码文字”。

試下改為：

swEquationMgr.Add2 -1, """执行宏""" & "=" & """嵌合宏""", False

复制代码

zqkzqk2008 · 发表于 2013-12-20 09:40:40

Francis 发表于 2013-12-19 17:07 static/image/common/back.gif
9 S7 {# h x; l, G建議使用“回复”及“添加代码文字”。1 K/ g8 V# }) b# I2 b

+ t: @3 E, R- A* ]試下改為：

多谢闷大，成功了！用方程式关联后，不用担心改名后代号和名称失去关联了，一键重写完美实现

1597062617 · 发表于 2014-1-9 11:48:02

闷大大师，我能在论坛了看到将solidworks的图号、名称分离并与零件属性关链的技法很是荣幸，感谢大师。我现在用的是2010版的，32位XP系统，非常想实现这一功能，希望能得到您的指导。我的qq：1494515986。

dhtz100 · 发表于 2014-1-12 23:33:55

试了一下 2012可以可是升级了一下2014 怎么不行了呢？

NC@jiang@nan · 发表于 2014-2-25 21:06:19

本帖最后由 NC@jiang@nan 于 2014-2-25 21:13 编辑

gt.adan 发表于 2013-12-12 11:10 http://www.3dportal.cn/discuz/static/image/common/back.gif! o, Y! S: F9 W! ~2 C* f$ g6 X4 ^
阿版，昨天測試了一下，發現您少了一步，就是悶大說的方程執行。7 N$ m6 c2 E, }: X
以我自身為例，全域變數是"result"，屬 ...

今天我试了下，我是在2010版时把这些宏什么的东西都添加到了模板文件里了，今天升级到了2013，用2010版的已经添加了宏和方程表达式的模板新建了文件，最终试验结果是这些代码还是能用的，只不过在“方程式”的列表里的表达式，总面会一直显示一个X号，就像26楼的第二张图片一样。

blindman · 发表于 2014-3-26 22:33:21

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif
3 O$ p$ {" S, V3 b. Z試試如下:win7 64位元0 X8 Y7 x* h6 L/ ]
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)- r$ |, H3 X2 L% Z
功能:應用宏抓 ...

在零件中可实现提取，但是在装配体中不行，是否语法上有不同？

ryouss · 发表于 2014-3-27 21:50:52

本帖最后由 ryouss 于 2014-3-27 22:04 编辑

blindman 发表于 2014-3-26 22:33 static/image/common/back.gif
# \! V" {% ^, `$ [$ d) x3 @0 k" O在零件中可实现提取，但是在装配体中不行，是否语法上有不同？

麻煩多了 ,最主要是要抓取組件上全部的零件名稱.
另執行組件有組件的通關密語.

參考 http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1434418
有悶大及吉大精彩文章

' ******************************************************************************
' macro recorded on 03/27/14 by lsc
'
' 組合件之零件自訂屬性 [ 編號_名稱 ],編號名稱是以" _ "符號分隔.
'
' ******************************************************************************
Dim TopDocPathOnly As String
Dim swModel As SldWorks.ModelDoc2
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Set TopDoc = swApp.ActiveDoc '總裝對象

If TopDoc.GetType <> 2 Then Exit Sub '不是裝配=退出
TopDocPathSplit = Split(TopDoc.GetPathName, "\"

'分割
TopDocName = TopDocPathSplit(UBound(TopDocPathSplit)) '總裝文件名稱
TopDocName = Left(TopDocName, Len(TopDocName) - 7) '總裝文件名稱（排除.SLDASM）
TopDocPathOnly = TopDocPathSplit(UBound(TopDocPathSplit) - 1) '總裝目錄名稱
TopConfString = TopDoc.GetActiveConfiguration.Name '總裝配置名稱
SubAsm TopDoc, TopConfString '遍歷
End Sub

Function SubAsm(AsmDoc, ConfString)
Set swModel = swApp.ActiveDoc
Set Configuration = AsmDoc.GetConfigurationByName(ConfString)
Set RootComponent = Configuration.GetRootComponent
Components = RootComponent.GetChildren
For Each Child In Components '總裝抓全部零件名稱
Set ChildModel = Child.GetModelDoc
ChildPathSplit = Split(Child.GetPathName, "\") '分割
ChildName = ChildPathSplit(UBound(ChildPathSplit)) '零件文件名稱
L1 = InStrRev(ChildName, "_", , 0)
L2 = InStrRev(ChildName, ".", , 0)
code_ = Left(ChildName, L1 - 1) ' 編號
name_ = Mid(ChildName, L1 + 1, L2 - L1 - 1) '名稱
swModel.DeleteCustomInfo2 "", code_
swModel.AddCustomInfo2 code_, swCustomInfoText, name_
Next
End Function

組件零件之編號名稱屬性.rar (120.59 KB, 下载次数: 75)

blindman · 发表于 2014-3-30 14:22:01

ryouss 发表于 2014-3-27 21:50 static/image/common/back.gif' p2 w B( }# L* J, U
麻煩多了 ,最主要是要抓取組件上全部的零件名稱.
s2 s& [8 h. ?# q" G另執行組件有組件的通關密語.8 t+ ^; j3 x8 q7 t( G5 h& d
參考 http://www.3 ...

不好意思，可能我回复的意思有误，我意思是用嵌入宏的方式在零件中可以提取名称和零件号，但是同样的方法用在装配体中却提取不到装配体的名称和图号。（例如：123-123-123_装配.slldasm，要提取“_”前的图号和“_”后的名称。请指教。

Zhouyiren · 发表于 2014-4-1 19:57:09

感谢....................................

votasee · 发表于 2014-4-4 00:09:56

blindman 发表于 2014-3-30 14:22 static/image/common/back.gif( W% M: M& ~: w8 v. E3 u
不好意思，可能我回复的意思有误，我意思是用嵌入宏的方式在零件中可以提取名称和零件号，但是同样的方法 ...

一样的.也是提取文件名后再解析你需要的特定字符
-------------------------------------------------------------------------------------------
不过这贴子.我看了半天,也没看懂巨集的概念..更没搞清楚怎么内嵌的..
事实上感觉很繁琐.很久以前就见过这个东东.就是没清晰点的描述,导致没继续看下去.
今天又来,还好有人提到这里了...
http://fans.solidworks.com.cn/thread-33730-1-1.html
还是这里讲的比较清楚,至于VBA代码,略懂一些.想必有用的着的时候,呵呵.

l88i · 发表于 2014-6-14 17:34:45

这个必须顶，完全有效果，已经弄到模板里，正在试用，看还有没其他的不良反应

dytsam · 发表于 2014-6-25 16:07:13

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif% |0 j8 |6 ]' Y- `1 n: `( \
謝謝qiminger兄回帖討論。6 A- m* d# C2 r; J$ c

h1 |# t! T" ]6 ]方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大~按照你的方法在零件模板中完全实现可用，但是在装配体模板中失效。求大师帮帮忙~谢谢

我用的下面的代码
1
Dim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "mingcheng", Txt

版本是2010

zaq1212 · 发表于 2014-6-30 14:11:05

Francis 发表于 2013-6-27 12:17 static/image/common/back.gif$ q8 A3 Z( ], @: p
2009版本以後，宏的嵌合方法已經改變，具體請參附件（2012版本）。

他全家的妹附件无法提取

liuzhanping9605 · 发表于 2014-8-27 17:00:02

终于有些明白，谢谢楼上各位高人

NC@jiang@nan · 发表于 2014-9-10 21:43:04

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif: m+ ]' z1 B' D% M# C7 r. f
試試如下:win7 64位元! V8 I) t# |# Q1 |( W8 g
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)
" W1 _4 M9 o$ q0 e. C. Y0 Q功能:應用宏抓 ...

请教高人，这里抓取出来来的几个属性值，能否写入到"配置特定”选项卡上而不是自动写入到“自定义”选项卡上？

NC@jiang@nan · 发表于 2014-9-10 22:05:40

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif
. r6 ^$ g: d6 q試試如下:win7 64位元3 R9 C9 W8 Y/ V; L& ~7 ~
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)& u7 X _5 w5 i* R4 n& G8 f
功能:應用宏抓 ...

不好意思，请教高手，授人以鱼不如授人以渔，因为对SW二次开发连门都没入，只能简单的改变一些语句做些应用，以您这个宏文件为例，请问下，想把宏运行结果写入到文件属性的“自定义”栏和“配置特定”栏时，应该改变哪句语句？写入到“自定义栏”和写入到“配置特定”栏时各自应该用什么语句？求解答。谢谢。

beingsolver · 发表于 2014-10-27 17:07:49

这些天一直在找这个图号文件名的分离功能，终于成功了！

dason8369307 · 发表于 2015-1-1 12:02:03

非常感谢大师指引

zhlq518 · 发表于 2015-5-21 22:05:35

认真学习一下

ryouss · 发表于 2015-5-21 23:14:06

NC@jiang@nan 发表于 2014-9-10 22:05 static/image/common/back.gif
4 Y. l% J% E7 r# Z不好意思，请教高手，授人以鱼不如授人以渔，因为对SW二次开发连门都没入，只能简单的改变一些语句做些应 ...

有關 “配置特定” 參看如下

http://www.3dportal.cn/discuz/fo ... ead&tid=1451365

ep2708605440 · 发表于 2015-7-28 08:54:10

你们真是太牛了

huyaomeng · 发表于 2015-10-3 10:14:11

请问调入工程图后方程式似乎不管用？如何关联？

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

通知

[求助] 宏提取文件名字符为何不成功

评分

点评

浏览过的版块