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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
2 O# m0 q* J% B现请教大家，谢谢参与~~

) X: B2 V% T# F, k& `+ @* x0 V) E+ i
下面原贴标题和地址
/ Q- p/ `% _2 a6 U' F4 j) n+ ySolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913


6 a' e6 d( P% C5 V. Z* T  K  v原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
7 n1 j+ `( b* m$ w7 u
方程式目的是从文件名中从左到右取9个字符

ryouss

如下VBA宏的編程[2012版測試]
3 Y6 N0 E# Q0 D8 {0 J1 e, Z
' **************************************************
'  macro recorded on 06/24/13 by lsc
& B1 m7 s+ j# e$ ~0 d' **************************************************
& a( v  V2 T4 r% \2 ODim swApp As Object
" j- p9 [) u( K% o# V* t6 M$ X* h/ sDim Part As Object
; |  ~5 }6 V! G2 Z7 V2 I# OSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub

杀苏

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

qiminger

8 K7 E3 z* S1 d0 }- N5 r% ?" J

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
如下VBA宏的編程[2012版測試]
9 n/ O; e: g/ O! z
4 B, \# k$ D/ _# d0 t1 _' **************************************************

: s" @0 t* n" w( [十分感谢梁老师提供代码学习~~

提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
8 t2 f$ O% C% z+ c下面代码在2011版本中均已测试成功。

3 s4 L% l+ n4 _! ?  d3 Y; M; u15楼代码，可以取左边字符
. A6 D* `% Z) e. @19楼代码，可以取最后一个下划线后面的字符。
3 d, }' ?7 X6 L+ C7 A
下面这段代码，可以取第一个下划线前面的字符。
. A  b# ^$ L4 C9 q2 [. U- F1
: W8 v/ q& O# f) f. ?2 L# k1 Edim yfd
5 T8 g. L5 |  o, qyfd=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 n; Y4 ]1 O7 Q* U# ^下面是我在其它论坛 得到的 某位前辈的宏，你看看

5 ?  O9 m1 F+ Z. p感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
8 F$ Q1 v8 W4 O; T* c' I4 H) l蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
) a+ k& p  \0 P8 B; |http://fans.solidworks.com.cn/thread-33730-1-1.html
蛋大的教程可能有幫助

8 `$ s1 |$ l3 O7 s非常感谢大师指引

ps122hb

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

qiminger

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

+ y" e( }3 a$ [7 h$ `1 R' Y# h" m  J没有成功

Francis

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
/ G  Q, Q4 {( u# I) F& @$ r2 P楼主添加成功了吗？为何显示无效语句？

$ Z) i% ~: Z. q! N( F1 s) r看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

不好意思，再麻烦闷大老师，我的是2011版本。
' ]" U0 ^/ u6 V% J: G8 e我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件
$ @( Q" s2 f% C  M4 K7 y$ ]% i

qiminger

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
( a0 e* v& D6 ^* C/ D試下這個

/ K. I" C, \! |* n4 ]3 ?$ S谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题
( K, j& f1 p) e' F0 J5 t! e8 D
2011版本
987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

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

謝謝qiminger兄回帖討論。
) m. g! b' s  y8 y4 J7 K- P
. P- g  f; u! O4 _0 i# ]方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。
9 @$ r# m. r+ r/ \7 R
把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
7 W+ Y2 q8 f  X$ L* i6 j( Edim dummy
dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
$ B9 _7 G2 t" G謝謝qiminger兄回帖討論。

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

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

qiminger

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

* Q& @+ e+ E: l4 P/ {方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
9 Y  H- {9 R  v2 g( i9 a直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
1 W1 Z- l0 m+ \( c宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

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

# I6 J; J. a9 g+ s% [重新命名后，好像就不更新了啊

# \1 `  i- t6 _( x' p0 N弄个批量的宏

Francis

阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
闷大，请教一下。我这样格式的文件名如何提取
$ W; \0 W9 b0 @2 s7 l( s例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
2 ^9 J  Z' U8 }- Q% K$ A3 pDim Txt
( z0 U: ^3 z0 ]% rTxt = Part.GetPathName
$ z' {4 F8 |* X- P/ pTxt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
+ }) v2 G: m2 w: vTxt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

0 B* `1 e$ P4 J# [' {0 ^2 |把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
! Q; H" Z# E* ^) c$ B. ^

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊
+ P# b- `3 h: G- @  c5 I1 F
弄个批量的宏

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

hongwei_1987jp

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

% Q2 n) N% @+ Q+ G1 S我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了
  R% D  ]# ?" c! i6 x4 s
3 d4 m$ c% V! c6 [" e0 ]. q老兄搞下吧

阿帕奇

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

对不起闷大，宏我看明白了
, T3 I  w$ a  y4 Y% c6 s+ e+ Q想起我未说清楚，最后一个“_”前的字符也不固定
; N3 o6 J! k( M' K, g" j1 A有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
% x4 [5 C* A; |% I! E0 F' t: s5 n* `对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

+ ?: _1 n7 Q6 O2 W3 t( ?) {  z. h那段宏就是奇哥的要求

阿帕奇

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
6 m) ]% Z5 s# ]* a那段宏就是奇哥的要求

" ?+ m- D/ l3 L( w: f0 g
$ U7 Q; b8 O- ^& }% z) |; V我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
$ E  _4 {9 x( j; m$ `! K请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis

阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
# T- f' O  b( c我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
- u4 M/ `: f6 O- R- ^( y( [- z请问partno是不是可以改成任意名字 ...

在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。
4 I: L. ]1 C5 `
0 u- X. f9 C2 v) jpartno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。