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

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

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

398312203 发表于 2013-12-17 11:30 static/image/common/back.gif4 n H1 q4 [8 p- s
自己给自己顶一个……

試試如下: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# e' L! h) n" t: E$ F/ n
試試如下:win7 64位元# E* q/ d2 L- R+ s; N1 e8 L
編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)1 A F6 B! W3 J3 ~9 k
功能:應用宏抓 ...

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

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.gif
. a& f# k+ H9 f, A: g* t闷大，我在更改以前的零件属性时，插入方程式的步骤比较多，想一键完成，遇到如下问题，要怎么解决哦
2 I7 c- C1 m5 a* z, M4 QDim ...

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

試下改為：

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

复制代码

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

Francis 发表于 2013-12-19 17:07 static/image/common/back.gif
0 l0 O; Y2 y- }# h建議使用“回复”及“添加代码文字”。) N& ?8 @3 [, i. @1 ]# p X/ r: }5 G

. b! H1 Y' P/ O. G) E2 J$ q試下改為：

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

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
+ `. t8 i% R: z. M2 l阿版，昨天測試了一下，發現您少了一步，就是悶大說的方程執行。* E0 K) v' @; k: f
以我自身為例，全域變數是"result"，屬 ...

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

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

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif1 \& @* E# s: U7 t/ @, c
試試如下:win7 64位元
( a2 X" T- @( K4 e3 V: E" P) F g編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)9 }8 A' b8 X7 m% R, o2 G
功能:應用宏抓 ...

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

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

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

blindman 发表于 2014-3-26 22:33 static/image/common/back.gif, A; [5 w( M S2 ^! ?9 M
在零件中可实现提取，但是在装配体中不行，是否语法上有不同？

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

參考 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
; G: T+ f& J% A c9 O6 M0 R+ i4 @麻煩多了 ,最主要是要抓取組件上全部的零件名稱.+ m: J1 F4 `+ U
另執行組件有組件的通關密語.
) B O) I M. m5 _. C0 O參考 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
4 v% W0 h5 T( P8 U7 o: {, { m不好意思，可能我回复的意思有误，我意思是用嵌入宏的方式在零件中可以提取名称和零件号，但是同样的方法 ...

一样的.也是提取文件名后再解析你需要的特定字符
-------------------------------------------------------------------------------------------
不过这贴子.我看了半天,也没看懂巨集的概念..更没搞清楚怎么内嵌的..
事实上感觉很繁琐.很久以前就见过这个东东.就是没清晰点的描述,导致没继续看下去.
今天又来,还好有人提到这里了...
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
* _. A4 k( R$ }9 D謝謝qiminger兄回帖討論。- `1 B/ T! Z# p3 P& Y

9 }% X& b0 X( T: q方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

我用的下面的代码
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. L8 P. C- |/ Z- B8 z- q
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% J1 O, H9 P; g6 ^3 Q
試試如下:win7 64位元
* P4 E5 h2 T1 ? U6 _編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)
$ q$ E, |& C9 V7 V& D" x功能:應用宏抓 ...

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

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

ryouss 发表于 2013-12-17 23:47 static/image/common/back.gif
! ]% U3 }* z" N試試如下:win7 64位元
: s" l' u, o! _編碼原則為代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)7 } y' u* a* O0 c# N
功能:應用宏抓 ...

不好意思，请教高手，授人以鱼不如授人以渔，因为对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# v# ?! [1 O6 ^3 x1 ^0 ]
不好意思，请教高手，授人以鱼不如授人以渔，因为对SW二次开发连门都没入，只能简单的改变一些语句做些应 ...

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

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

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

你们真是太牛了

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

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

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

通知

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

评分

点评

浏览过的版块