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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
! j& S- ^$ Q4 X% A0 @( i) |% ~+ M现请教大家，谢谢参与~~
' k! F& o1 J* b; B; `6 y
0 m3 d& l% J, {9 b7 U
下面原贴标题和地址
SolidWorks中方程式的应用技巧
- O9 s$ V% {, n% k0 }' M0 lhttp://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913


3 w% Z! I$ @2 J1 L+ H原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

方程式目的是从文件名中从左到右取9个字符
$ f) b% `* ]) x3 b) k

ryouss

+ c7 x. n8 w; v! I2 l. e
如下VBA宏的編程[2012版測試]
4 J! t2 o9 o( z
+ a4 x& l' C. F) r- ^# b/ t0 @' **************************************************
7 N* S$ K' f) `'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
8 l3 Z9 r: ]; _- |1 g+ [5 N. VDim Part As Object
: v9 f4 F7 X7 r3 M7 x# @Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
5 J$ p2 v7 |6 G# ename_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
6 E& ?7 a/ _* [: z; M; a2 h* @$ IEnd Sub

杀苏

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

qiminger

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
7 B$ ]5 c, A& S" u* y6 ~4 c如下VBA宏的編程[2012版測試]

( [7 [- _; n* O& [% c' **************************************************

7 Q) `/ F: s. R1 k
十分感谢梁老师提供代码学习~~

提示进来学习的坛友！
6 N+ O2 E! f9 U2 Q通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
+ ]; P& G% X! N* R  y3 [  c$ C
15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。
) t9 x0 M2 k  O1 u' d+ u
. ~( p' A+ p* C) m下面这段代码，可以取第一个下划线前面的字符。
; L6 A! d: [* v$ S+ X* v5 x/ r1
6 `6 o" S! Y1 q# Y1 C5 h/ pdim yfd
; w1 G6 k0 }; H4 `  L7 t* Cyfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

qiminger

杀苏 发表于 2013-6-24 20:19 static/image/common/back.gif
+ R& g4 Q  `( x' o: ~下面是我在其它论坛 得到的 某位前辈的宏，你看看

感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
5 I# w5 o) h3 }% p- ihttp://fans.solidworks.com.cn/thread-33730-1-1.html
1 a7 E8 O4 t# F& N蛋大的教程可能有幫助

非常感谢大师指引

ps122hb

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
4 n. W5 r& `( n, C- w楼主添加成功了吗？为何显示无效语句？

没有成功

Francis

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

qiminger

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

. L! q) d4 N! N: |2 Q6 F看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

2 J) z8 C6 Y/ H! g1 F# J

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

# T$ j* i4 p+ L, b, x不好意思，再麻烦闷大老师，我的是2011版本。
5 ?4 o: A6 t1 \8 M- J+ D我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？

Francis

試下這個
* O) b, A; }& p  @ 123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件

qiminger

* I8 S6 J. H+ C: ~, U

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

. o0 H3 }/ c- Q0 Q
# l. j  [; ?! w& a; t谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
" `1 P( x4 z6 u' E9 l/ N我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题

2011版本
' p) L/ `% o6 } 987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

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

- K7 N/ P- E2 d- b+ Z% f* m謝謝qiminger兄回帖討論。

' o" v! G! r" k方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
% e' X( z9 ?5 Y; ^$ z2 X  n4 M問題在內碼嵌合到“數值/文字表達”不對。

- N, C/ t6 S, l3 l9 {+ f把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
dim dummy
dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。

# z/ J) G) m( ?3 ]# r方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大，请教一下。我这样格式的文件名如何提取
: A  T5 C# b7 c( y9 x! t- u* s例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。

5 E: b1 h7 f2 ]# c方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

9 z3 v" ~: Q+ P9 }& @  u" D. e成功了~~
" S' B2 j0 v9 w2 o6 H直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
4 y' `5 s9 z% s- n0 U試下這個

重新命名后，好像就不更新了啊
8 k* A2 g* F3 Z$ V6 l
7 G" r/ K# Y9 `; r弄个批量的宏
; m8 d: s- i. V
( C6 K7 n, {0 B$ _; \

Francis

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
$ A9 |/ X1 x! Q  O* |闷大，请教一下。我这样格式的文件名如何提取
例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
Dim Txt
% l. _  D6 _& k; ]3 E7 UTxt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
" ]# X/ ~- B6 hTxt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
: I* Q/ R  ^( |! _% i

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊

弄个批量的宏

# g" i1 V8 p0 s估計又是『脖子掛餅終餓死』的慘案一宗。

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
估計又是『脖子掛餅終餓死』的慘案一宗。

我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了
7 |$ Y+ a) O1 n: k8 n5 i  L
老兄搞下吧

阿帕奇

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
注意！必定要使用複製粘貼的方法，才可嵌合內 ...

对不起闷大，宏我看明白了
( ?( v! t1 W/ r7 X2 ^" a想起我未说清楚，最后一个“_”前的字符也不固定
+ |3 O% J% M$ T有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
5 E2 y1 N: |. d6 d& v对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

! q4 |0 p; k. z1 O+ r我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
% G. Q; O. H+ C+ d* e1 E" D再请出手相助

Francis

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

# j' Q7 b& y% K0 R" o在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。

) u0 ]! F6 C2 l) T0 }partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。