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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
现请教大家，谢谢参与~~
: \7 v' I( f( l$ B( C
, M, j/ R. c$ w2 f
1 R' t6 Z, q3 V, F) u' R) z8 h$ e下面原贴标题和地址
, _9 e# e: H1 \% ^3 [; i1 xSolidWorks中方程式的应用技巧
$ C: R3 Y+ V' J/ \http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913

) @2 [* X" S) u: O5 H2 x
原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
8 m0 N+ A, x$ U& d" X
方程式目的是从文件名中从左到右取9个字符
; H; t4 @5 q) \. y" _3 ?9 M

ryouss

, N2 j: d, l/ M7 Z5 p# T
如下VBA宏的編程[2012版測試]
) d- f# a( V6 }+ n' m
' **************************************************
'  macro recorded on 06/24/13 by lsc
+ M+ D4 t/ R7 J: ^$ T* y' **************************************************
Dim swApp As Object
- `$ ]/ N- U8 D8 Z6 HDim Part As Object
Sub main()
& _1 l2 M! E2 I) K  S+ B, `# O* I7 TSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
% g5 I4 V7 E( W5 I+ x4 TSet swModel = swApp.GetFirstDocument
1 G) z0 M& k- n+ ?: k  X' rpath_name = swModel.GetPathName '取出目前檔案的路徑及名稱
- C2 _. ~. P2 v& S- qname_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
$ n1 f2 f8 C& u' tEnd Sub
+ Q) r$ e" g5 k- D' ]

杀苏

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

qiminger

3 W4 i* R& @$ V- q/ ~+ |+ F

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
- y# x7 G/ N5 `* J  H! k- X7 ~如下VBA宏的編程[2012版測試]
  g# C. f. i" g: I; h
: m# A/ X! G/ z7 h* Y5 ~7 `4 H' **************************************************

1 [# i7 t" S0 M9 D十分感谢梁老师提供代码学习~~

# u5 y7 v* y! ]  H( Z提示进来学习的坛友！
+ w' K9 J4 w5 u5 q通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
! m- |6 z$ s% z& G
  F+ @" V# x& j( ~9 }: i15楼代码，可以取左边字符
. i8 ?! r/ |+ Z4 ^$ G* F19楼代码，可以取最后一个下划线后面的字符。
, V4 G: m; \# y# G* D7 ?4 V
下面这段代码，可以取第一个下划线前面的字符。
1
; N5 F. L$ F& E7 ]; F0 [1 Vdim 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
8 W, Q1 y7 h/ G下面是我在其它论坛 得到的 某位前辈的宏，你看看

3 x- ?) D' t/ Y# L感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
2 I# x9 x6 [' g5 _) J7 c蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
7 l$ J: ?' V# k9 C5 y5 ~- i& A, [http://fans.solidworks.com.cn/thread-33730-1-1.html
蛋大的教程可能有幫助

非常感谢大师指引

ps122hb

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

qiminger

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

% ?' b3 d$ _2 B5 R没有成功

Francis

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

qiminger

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

: Y8 K, f4 \% V) |+ s0 h看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

  x% k3 @+ E+ G$ [, X: i1 Q
% Q; M* r6 e' y# H. Y不好意思，再麻烦闷大老师，我的是2011版本。
2 c" Y9 |  U9 N3 Z# V, y+ p我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
9 u  W) `, U$ g/ n: d# t) ~是不是还要添加方程式呢？

Francis

試下這個
! u5 Q' j' V, T  k2 A8 I 123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件
- U; S' `) A$ v2 u

qiminger

8 ]6 n, o6 W/ V; C& C

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
! {# Z7 J! b0 M' ?  J  ~試下這個

- A+ ^7 c! v; |7 D( r% c
3 S9 h4 M& a4 @: Q谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
- |( U5 t7 ?5 h( |7 T也许是学习版本的问题

2011版本
; I/ C  B& M$ `( O) r 987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

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

謝謝qiminger兄回帖討論。
: v+ ]5 C4 B6 ]; f! g. k
1 H8 c6 H* s9 W方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。
. N7 e3 _2 `" |* U
6 i+ h" Z, i1 j8 f  y3 a8 N0 [把以下內碼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兄回帖討論。
( Y1 o' J2 ^) s
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
# c+ E# c2 V, f/ B' D4 t
! b1 \% X8 q9 y方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

2 \; w$ Z4 U- j6 h) a% t成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
2 n- E; ?3 ?: K- z% X宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
! _9 g3 Q1 I# ^試下這個

5 P) {4 L) T& Z重新命名后，好像就不更新了啊
- w# O. f4 A; d+ t7 X- p5 G! e
/ |3 Q0 V1 S2 w9 h/ t弄个批量的宏
: v6 k3 G4 h0 f7 r( @
" O7 ~3 ~; a4 h& j; {7 M9 \* l

Francis

9 p! G7 C' A: w3 U: [

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
6 b* U* e% `; W' \闷大，请教一下。我这样格式的文件名如何提取
例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
5 c2 G$ Y9 Q( Q: D! b( {1 f- MDim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

2 B% I7 E" t, P/ S  V7 E' R( M9 ]把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
/ a% C: I, y; T4 a. ]注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。

7 ^1 R! f3 X$ R# t

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊
9 r" m# q# g0 a$ H/ a
9 ~" D0 k& J8 O8 q# D: e弄个批量的宏

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

hongwei_1987jp

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

- S6 u, \, |4 H/ o我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了
0 |, X" x; p. ~! _
老兄搞下吧

阿帕奇

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

对不起闷大，宏我看明白了
0 A. x+ I) w) Q7 w7 r) Q2 |想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
2 q( k+ a8 ~+ N/ S) K% M  t* K对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
, }1 q7 ^8 M5 V  r  h那段宏就是奇哥的要求

- m5 j- B+ k' P  Y3 g+ p2 i! P5 e我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
6 m5 X4 g, g, S( J再请出手相助

Francis

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

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

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