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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
5 n: s7 O% G9 n$ w6 m& Z现请教大家，谢谢参与~~


下面原贴标题和地址
9 A0 n# u! r2 T$ fSolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913
6 Y& G0 w# a0 u' ~/ V0 j
# j  @: G! d, S* ^
/ J. x' J0 C3 w5 w$ P原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
, J7 |7 V/ b+ R& x8 O( V7 T
: s1 J, o5 H% S" g. G8 O% |方程式目的是从文件名中从左到右取9个字符

ryouss

  [; t2 B* I6 c! w5 O2 ^
如下VBA宏的編程[2012版測試]

  o! z& g! I$ [  R. o7 R' **************************************************
'  macro recorded on 06/24/13 by lsc
. n; k9 [- a3 R' D" u% m- {' **************************************************
. U, M4 E1 j& ^% S3 E) jDim swApp As Object
& \& \. l! b7 v. O" p  @2 R( N; TDim Part As Object
Sub main()
+ d% i# @. O+ J! L0 u$ \: c8 ASet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
) y# N' C( r; U) }# g0 p2 epath_name = swModel.GetPathName '取出目前檔案的路徑及名稱
: l# g; c% _1 `7 J; [name_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub
1 m# o& v' m5 @8 b0 \$ ^

杀苏

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

qiminger

+ e8 m* i4 d- f4 H! k2 e

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
如下VBA宏的編程[2012版測試]
- Q# M: q: ?  _9 W8 \
' **************************************************

2 |! P  |5 N( `7 R7 E6 b5 Q十分感谢梁老师提供代码学习~~
' O6 `! j" L% I% D9 I4 D; P4 m6 }
/ L/ T) w$ C( l; L提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。

! u# W1 V( r3 |4 e15楼代码，可以取左边字符
2 O" M2 }9 @1 i. k( n0 L4 ^19楼代码，可以取最后一个下划线后面的字符。

下面这段代码，可以取第一个下划线前面的字符。
+ Y$ d8 p6 c, D3 {/ T1
dim yfd
3 a  b6 {0 L- Gyfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

qiminger

杀苏 发表于 2013-6-24 20:19 static/image/common/back.gif
. p9 X* C( o7 d+ M" {下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
! K$ o% s* c0 Z# l6 \" E+ K蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
! l4 ^; E, l% |2 X8 K1 yhttp://fans.solidworks.com.cn/thread-33730-1-1.html
蛋大的教程可能有幫助

非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
5 {: d8 K0 S: W

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
3 a" B" K0 R3 g4 v& p. u楼主添加成功了吗？为何显示无效语句？

没有成功

Francis

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

qiminger

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

看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

/ e) e, c0 N2 W3 _
不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？
; S1 N# Z& P  t7 ^

Francis

試下這個
5 Q$ S8 M4 k8 |0 r 123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件

qiminger

' A3 z9 A$ S- u3 y, V! R

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
; a# A* s* e% T! X/ f! ]試下這個

# n+ `6 N6 C8 D1 Y
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
5 {* E5 U" F  B- N* [我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
) \1 ]8 s- q1 ^# s. o2 y也许是学习版本的问题

& r" Y2 W% \' W2011版本
; m; d! B8 ~0 h+ w/ @, u" u 987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

qiminger 发表于 2013-6-28 08:38 static/image/common/back.gif
& L1 N0 k$ K. g* T. `* O3 X* H9 M谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
. B+ F$ w2 F9 e9 S% G  i) C7 r, q我新建之后做出的，做很多次，还是不好 ...

: @0 X- ], R3 o6 p5 L謝謝qiminger兄回帖討論。

2 z/ Y. B# C  U  x) `) n方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
1 g( x; ~% ]0 s: i問題在內碼嵌合到“數值/文字表達”不對。
0 s, u6 i! i! D
把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
% U  t: ]$ U. {" z% Idim dummy
dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

2 R' k9 o) ]4 ^7 t' n/ e
, H; U" [0 A! H3 {+ ^/ d" ^& C! F3 Y9 Y

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
; F- l# l' R2 L
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

qiminger

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

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

成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

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

重新命名后，好像就不更新了啊

2 Y. W' W) i3 y9 c弄个批量的宏
" c) X* Y/ ]+ J8 F8 F( C  q

Francis

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
- r- ?- C% M7 \. s) v' Q$ c. }6 g8 X闷大，请教一下。我这样格式的文件名如何提取
4 g/ h! r6 w+ U例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
+ q0 ^3 ~2 r; ?9 f2 p; s- I- [Dim Txt
2 s$ e* d' M  f6 }, ^: i# y; l1 XTxt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
7 e* w$ b% I. n: j4 t$ G8 ]. Y8 i3 kTxt = Left(Txt, Len(Txt) - 7)
) T; y; [% u: g7 i0 }Part.Extension.CustomPropertyManager("").Set "partno", Txt

( S! ]8 _* V  }3 f9 I把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
( H) S4 |" G" `( W$ }- }$ H

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊
( i) O/ t  j' Y- M" h$ g& o5 s
弄个批量的宏

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

hongwei_1987jp

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

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

! V8 j6 o- F( K老兄搞下吧

阿帕奇

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
7 A6 M& f6 o* g把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
& ?. |! D8 [7 |+ R7 ~5 @: u注意！必定要使用複製粘貼的方法，才可嵌合內 ...

- K! w: C, i. ^$ v8 [对不起闷大，宏我看明白了
9 H% n+ r3 G4 [8 z0 ~4 S想起我未说清楚，最后一个“_”前的字符也不固定
; V2 e0 b+ m8 x" ?4 t. f  J6 g有没有直接可以从末位数的，到“_”停止的

Francis

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

% K* R. Y& I5 v+ _( }( c那段宏就是奇哥的要求

阿帕奇

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
  q# G# ~- V/ |9 v  `& j那段宏就是奇哥的要求

  H7 C' ~( Q- H9 a, G我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
2 E- V3 c: n* d6 S2 X$ q/ l* r* z) V请问partno是不是可以改成任意名字，如“工程图名称”
7 u% J* v9 |- I2 F) g" x再请出手相助

Francis

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

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

9 A$ G& N& S/ i3 K$ @/ upartno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。