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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
6 _* ~% V5 W/ [, {9 f* s现请教大家，谢谢参与~~
, q+ `3 V" g9 ^6 |. n6 c

下面原贴标题和地址
, Z2 n0 M" W* sSolidWorks中方程式的应用技巧
: V9 d' o. {- y/ o. _% Thttp://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913


1 u8 ~' B$ H, J' p3 Y/ l: q原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

方程式目的是从文件名中从左到右取9个字符

ryouss

7 U; Q" a9 z3 S4 B/ {: A% b7 t# {如下VBA宏的編程[2012版測試]

, X7 H6 b: r7 z3 H, T( \' **************************************************
'  macro recorded on 06/24/13 by lsc
. a  I( B5 P* Z' **************************************************
Dim swApp As Object
. g% W; L5 H# k9 I( w( O+ U: WDim Part As Object
# ?6 Z" a; u' Y/ mSub main()
+ t7 j0 _3 r- \: w, b  s+ NSet swApp = Application.SldWorks
' L# P- o& M* V$ \8 Q; z: V$ k3 SSet Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
% {/ ]' A/ t9 G/ h2 d+ Ppath_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub

杀苏

下面是我在其它论坛 得到的 某位前辈的宏，你看看

qiminger

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
如下VBA宏的編程[2012版測試]

' **************************************************

) `: J! p+ Z; Z  F0 O! w十分感谢梁老师提供代码学习~~
2 Z0 u- q2 f* C( l. z; I
" ?+ [0 ]0 ~! ?! e提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
) T! f- C; j: c; \& _下面代码在2011版本中均已测试成功。
+ }% \. Y% f4 k7 O; F
4 o3 b8 ^) j. ?" h& Q15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。

% A( K4 L& ]$ E, w6 b下面这段代码，可以取第一个下划线前面的字符。
1
dim yfd
yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

qiminger

杀苏 发表于 2013-6-24 20:19 static/image/common/back.gif
! l, M& J. E6 q( N下面是我在其它论坛 得到的 某位前辈的宏，你看看

  g  m: U" N) l6 J6 i. n感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
# w  y0 q. r) T! _, F6 Z, `蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
http://fans.solidworks.com.cn/thread-33730-1-1.html
) D$ j1 {5 Y3 j8 T( I8 Q蛋大的教程可能有幫助

/ b6 R8 i! Y' w- Z2 X9 n% ^0 p6 v非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
楼主添加成功了吗？为何显示无效语句？

没有成功

Francis

2009版本以後，宏的嵌合方法已經改變，具體請參附件（2012版本）。

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
: U* e: Y- @  X; V  u$ u2 N楼主添加成功了吗？为何显示无效语句？

2 Z# Z( ]; ~" p5 s6 q7 |看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

Francis 发表于 2013-6-27 12:17 http://www.3dportal.cn/discuz/static/image/common/back.gif
2009版本以後，宏的嵌合方法已經改變，具體請參附件（2012版本）。

: s% p- Q* ]1 k4 o0 X- x& U不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
2 F5 s) o2 `# K% h9 l1 |8 A& y  A是不是还要添加方程式呢？

Francis

試下這個
123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件

qiminger

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
試下這個

# t  Q* V8 B3 i/ F
% q/ _: q) e5 N# R4 D谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
# F4 \# }6 [5 r& H# M我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题

0 n/ \# ^1 K2 c& `9 n' S- J/ S% u. l: n2011版本
987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

qiminger 发表于 2013-6-28 08:38 static/image/common/back.gif
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
6 z1 A4 v2 N. i5 H% A1 m7 Y我新建之后做出的，做很多次，还是不好 ...

# }. `6 P" k+ |& Z3 J8 q  H- [- [$ [謝謝qiminger兄回帖討論。

方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。

把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
% \# D: H9 N  z' Q7 s# ~  Rdim dummy
" x3 p3 S# ?0 M* B" D% d6 K7 _. }dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

2 L6 h8 s* q5 o( H" m9 Z

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
6 h) j0 P- J( M- z$ j) Z5 B# N謝謝qiminger兄回帖討論。

7 Z# a: _4 w) b% X方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

2 L' C& ]- C2 _' }: c% S6 P闷大，请教一下。我这样格式的文件名如何提取
# R9 T. X( K1 e5 V9 I例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
( I5 T0 |  c$ f* P* m1 `2 C
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

5 s: h9 H5 ?  y成功了~~
7 l7 O$ r; |9 F4 ~直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
試下這個

重新命名后，好像就不更新了啊
- m) ~4 w) V) R3 h
6 u3 K, F% r9 h2 g弄个批量的宏

Francis

) l2 b1 q% K/ e1 G* q6 n

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
( I, N4 ~& l; m* ~% [闷大，请教一下。我这样格式的文件名如何提取
. E1 z5 d% F# }, R例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
. ^  \2 ]0 N8 A; c! F9 TDim Txt
% \: C/ t* g0 l  bTxt = Part.GetPathName
0 \9 G7 {5 E9 JTxt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
# G6 F* P& ^$ J: V9 ~; I注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
; @- ~4 v7 c1 t5 j0 n重新命名后，好像就不更新了啊

  T. \& t8 B" P3 [. n/ }弄个批量的宏

* d) C' a0 e% P: f7 _! l; _' G估計又是『脖子掛餅終餓死』的慘案一宗。

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
6 A8 T8 G, K/ ^$ K8 _+ [' d3 Z估計又是『脖子掛餅終餓死』的慘案一宗。

: ?3 F: s2 k# Z$ h9 Q我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

老兄搞下吧

阿帕奇

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
4 d, R' Y" g' ^2 @4 }) p" K0 s把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
9 F, q% N' o! t6 P! B1 \. C  j6 K8 r注意！必定要使用複製粘貼的方法，才可嵌合內 ...

对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
  M/ p2 f  f4 E7 k有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
+ `! d& B$ v% ?对不起闷大，宏我看明白了
5 d8 v' b6 u2 q9 D$ W# W% o# B$ q想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
那段宏就是奇哥的要求

! j* r0 X/ {5 [0 P! C/ U8 Y5 E9 _
6 L8 y% I) ?5 V; N+ u我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
- b3 |$ U2 @, G' V再请出手相助

Francis

阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
% X7 n% F# `7 [9 S6 U我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字 ...

在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。

partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。