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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
现请教大家，谢谢参与~~

( p6 o# w$ m) s4 {
下面原贴标题和地址
SolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913

: b; C! O7 v0 Q
原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

+ j+ W5 F- n. L9 @2 O5 e" \方程式目的是从文件名中从左到右取9个字符
. i; F2 x( Q  j% j

ryouss

, ]' B3 l% O; @% d3 ]" W2 `+ m如下VBA宏的編程[2012版測試]
" l1 a( D# q; B7 x" r
' **************************************************
9 v& e% {1 B" f" p$ F, t( W'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
: `3 o/ H  _+ t' g, Y0 ~+ [5 FDim Part As Object
$ X) t1 E+ L* D: v' ^4 o, }& USub main()
Set swApp = Application.SldWorks
; N& M7 \* h8 ?& q) `Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
5 t6 J/ T- Y" ]) D( {. r# ?path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
  X3 y) w; ^* a2 m( `, Q+ iname_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
8 ^6 e3 ]. ~/ j) R, UEnd Sub

杀苏

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

qiminger

. T# p0 Y& N) {2 m

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
如下VBA宏的編程[2012版測試]
5 l8 h% [- h# a" z
' **************************************************

十分感谢梁老师提供代码学习~~

提示进来学习的坛友！
+ q% N! e0 ~3 _7 A9 y5 f通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
' u* n5 g" q& E: p
15楼代码，可以取左边字符
8 t: |$ Z5 w# \1 r" Q8 G. Y1 X19楼代码，可以取最后一个下划线后面的字符。

6 U) O$ P7 w" ]- }' @+ k下面这段代码，可以取第一个下划线前面的字符。
1
: o/ ?3 [& d8 s$ b, udim 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
下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
6 d6 o- N5 @0 d9 E$ K蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
http://fans.solidworks.com.cn/thread-33730-1-1.html
6 C5 s% O2 |9 `1 ^  {蛋大的教程可能有幫助

非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
( Y; Y2 f, {% R6 W9 e9 e! C

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
9 I8 J* h+ s4 I1 {楼主添加成功了吗？为何显示无效语句？

没有成功

Francis

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
, ?! P! }6 M. R0 S( t楼主添加成功了吗？为何显示无效语句？

  d, N+ t! \$ s& |3 Y; B# R5 }, H看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

Francis 发表于 2013-6-27 12:17 http://www.3dportal.cn/discuz/static/image/common/back.gif
7 b7 P8 ^* d0 E, _; N( b3 N2009版本以後，宏的嵌合方法已經改變，具體請參附件（2012版本）。

不好意思，再麻烦闷大老师，我的是2011版本。
$ A( s, P6 k* B3 P7 [; w, {我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
& L" y4 S# k& U) B# I  P9 L是不是还要添加方程式呢？
4 g2 [# g* g; _5 p

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件

qiminger

( N( V. i) f/ l$ F2 Q

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
" h# p: v% ], R試下這個

谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
0 L; F; O1 H! o- J" A( Z5 G我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题
2 V  h0 F) d2 t$ Q/ o+ ~- X
4 a9 s" t- o& ~$ x" T2011版本
987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

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

  v4 o5 ~. i+ E- F$ @% n8 \0 b$ ~謝謝qiminger兄回帖討論。

方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
; A( m7 f! Z$ A$ G( s問題在內碼嵌合到“數值/文字表達”不對。
( i2 t; T- [/ S5 _
把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
* T0 d" ?/ C# L; Y3 sdim dummy
; ~! \7 {2 T- q& U& L- P6 p) bdummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

# h: n% J. ^4 A; ]/ h- I

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
1 g' C' [( }# T謝謝qiminger兄回帖討論。
$ W, n  a0 d) m0 N
$ g6 D7 l% m( l: C方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大，请教一下。我这样格式的文件名如何提取
! C, C7 ]  T$ G: D5 ]5 y/ t+ u例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
4 v  e6 L6 {' d" Z7 D謝謝qiminger兄回帖討論。

$ C0 l- t+ r% y; z6 P9 A, ~+ @$ }方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
* G) @8 [  H1 h9 B; b4 Y* K宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

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

# M# M& t3 G5 I! }  |9 c$ Q, R  L! [重新命名后，好像就不更新了啊
/ I+ s- O+ k  u
弄个批量的宏

1 M! s1 J, m7 l( x  l

Francis

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
闷大，请教一下。我这样格式的文件名如何提取
- c/ ?8 D# ~$ S6 K3 y例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
  V8 T9 F0 l9 A9 q8 c* eDim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
- x5 L2 o2 x! q8 kTxt = Left(Txt, Len(Txt) - 7)
( N+ F: w4 C  u: o0 F# G8 zPart.Extension.CustomPropertyManager("").Set "partno", Txt

( H; R6 V7 M, [3 X  A把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
( n/ R# Q% @0 Q0 T. l注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
8 s* ]/ P: o/ h! E0 {, p  }7 h

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
% t- G0 L7 l% ]& c9 M' z重新命名后，好像就不更新了啊
. D/ Y5 E" o0 X. j9 `6 ^& I
2 z; |, {: Z: d  l& ~2 H" a; {( F弄个批量的宏

1 R4 R0 g! j3 A) j# p7 b( M估計又是『脖子掛餅終餓死』的慘案一宗。

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
' ?" ^0 q( h% I2 {估計又是『脖子掛餅終餓死』的慘案一宗。

我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了
) s# L. u9 E9 G' L8 k0 L) {5 Q
老兄搞下吧

阿帕奇

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

* x  U% A- A. c对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
) T1 U0 }& Z0 @% K& y有没有直接可以从末位数的，到“_”停止的

Francis

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

那段宏就是奇哥的要求

阿帕奇

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

4 q$ _2 Z8 p: c& s3 A
我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
; |; j8 l' d2 N" Q0 [2 _5 [% Z请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis

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

. E* w/ _" P% L) ]1 ^9 E在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。
/ D! `: h; p" [- m
  _% Y& ^0 z4 L; ?. p  lpartno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。