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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
现请教大家，谢谢参与~~
! }. y  D; B5 G" H. n( |

( T* e: f( P( T- }下面原贴标题和地址
6 E0 Z/ i; R6 E' R( J4 {SolidWorks中方程式的应用技巧
, b9 M8 ]2 |9 ]http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913


# V* ]. P* U# `. D. t原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
! z# W* |, J/ O) j0 d
) B* r: }! y; t7 l3 N7 |方程式目的是从文件名中从左到右取9个字符

ryouss

/ E5 D4 Z: r1 M. F如下VBA宏的編程[2012版測試]
1 L. l+ h/ g' x# N" c8 Q' ^2 j
' O. D, S* m8 h& U9 Z' **************************************************
'  macro recorded on 06/24/13 by lsc
! T5 q3 Q& I7 Q$ M. @- t0 T3 Z' **************************************************
% Y7 p" N2 I1 V$ d( @& dDim swApp As Object
% X0 x$ b8 [. l3 L8 W/ a  L2 QDim Part As Object
! m$ w$ \2 O! q1 H& V( vSub main()
- N; G$ d' f, l1 xSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
2 E6 e: C. b6 `# s  }1 F. }Set swModel = swApp.GetFirstDocument
/ F  x' c. _6 |path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
$ x' B) F6 i- Cname_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
" {' ?1 A) j$ I2 w7 t( k$ O8 z& gEnd Sub

杀苏

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

qiminger

, m. z. ?6 R+ M" t5 [$ f% A

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

2 W& V0 v+ m5 e6 \/ D0 X( P$ ~' **************************************************

1 B) x8 n: {2 T十分感谢梁老师提供代码学习~~
- G+ o9 c' e+ V5 S  u
提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
' b4 t# g: a: g3 _* s2 d
15楼代码，可以取左边字符
" V. V9 r6 Z8 p19楼代码，可以取最后一个下划线后面的字符。

% |; j9 X- F( o; }5 J下面这段代码，可以取第一个下划线前面的字符。
1
  V) r+ G( W: W6 Q' @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
7 g4 J9 ~5 a* p. j2 Q2 i( |下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
0 c" z/ P: G. }( a* t& E' m蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
http://fans.solidworks.com.cn/thread-33730-1-1.html
2 D2 t- e7 d. j+ c蛋大的教程可能有幫助

8 N# _! A( q" ]8 y/ k9 h' W非常感谢大师指引

ps122hb

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

qiminger

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

* B8 n: E, K- o" S: Y" k5 u' o- A没有成功

Francis

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
; Y% ^, K/ A2 Y. O& j楼主添加成功了吗？为何显示无效语句？

. f0 F! w- W5 u/ ~9 K看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

8 Y& c6 \! }3 a9 D/ A
不好意思，再麻烦闷大老师，我的是2011版本。
5 ~7 s1 z% q( R, w9 G% W我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
6 ~0 h. T9 u2 w# Q: y# c5 [" y是不是还要添加方程式呢？

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件
4 a% V/ a  n! V/ ?# {* k

qiminger

3 @) T, x! [" V8 w) a2 Y+ s9 C# p2 i" ^

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
0 r& L  F, S7 M' X; E試下這個

) `& b5 t5 A5 d0 P- Z5 c
# ^7 W# m, N+ O3 y+ H/ J谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题

2011版本
- K( @0 W/ W5 N8 h1 ? 987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

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

謝謝qiminger兄回帖討論。
# J) \, Z6 B/ r0 B5 v% i
/ R& z' c) \7 u9 z方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。
* W7 j% E0 _- \. r8 d
把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

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

& r7 S6 x- E! C% y' E& J8 o# M0 i: B

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
8 X' P# }( Y: ?5 C
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大，请教一下。我这样格式的文件名如何提取
例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
- {- G: G% [# d2 f* u7 k謝謝qiminger兄回帖討論。

方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
: x9 e2 M5 {' h. ~直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
  G, ~/ U5 k0 a3 E, G* Q1 k" M3 ?宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
3 F0 F" d# _$ E" @試下這個

+ L, S" r# m7 D1 p2 C$ P( m重新命名后，好像就不更新了啊

6 q/ G* ~( a, r& F( Q4 C弄个批量的宏
# Y* V! E' U6 Y+ g- S

Francis

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
3 }3 w) O8 |1 S. u# D闷大，请教一下。我这样格式的文件名如何提取
例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
Dim Txt
9 V6 u; Q4 d; y1 ~Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

* w. [. h3 Z& C8 R+ V把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
0 I& @  A0 Q9 _+ ?! u8 E注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
! G9 z2 I( u7 w
  g6 `3 {: T4 q

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
* a: q& X9 H7 X3 J重新命名后，好像就不更新了啊

弄个批量的宏

估計又是『脖子掛餅終餓死』的慘案一宗。

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
& U3 N! {# j9 x) M估計又是『脖子掛餅終餓死』的慘案一宗。

我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

老兄搞下吧

阿帕奇

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
; [  J/ Z7 N) V0 K' q0 ~把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
8 h* U0 D5 U. p; ^2 B7 w注意！必定要使用複製粘貼的方法，才可嵌合內 ...

/ O; _* G! c% w5 z' q对不起闷大，宏我看明白了
) R8 ?3 q6 ]7 S想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
对不起闷大，宏我看明白了
9 z9 @' _* B7 _" G, [0 L想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
) _5 D2 t2 K0 _- `; }, {请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis

阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
! k+ b. t: K9 B% _我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
8 u) j) |( H; a0 w! e" y, B/ H请问partno是不是可以改成任意名字 ...

$ t' S$ Q5 z( A在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。
' `1 P* Y" G2 p! ^: u' z9 L) q
partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。