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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
6 ~, Y7 W! W5 V3 R3 S+ r$ V现请教大家，谢谢参与~~

1 J0 w9 E% ?' f2 S, ~/ u
下面原贴标题和地址
SolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913


) Z( i0 J& p) N, Q原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

. I) P. g% D' y  r  }$ j方程式目的是从文件名中从左到右取9个字符
; g1 J/ T0 I# e1 k$ Y

ryouss

如下VBA宏的編程[2012版測試]
0 K* F' S- i) r/ G9 b
/ J0 I0 M0 c" N# Y0 O3 Y# b% M' **************************************************
3 }) Q+ d# W4 i! {# @# O'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
4 v0 w( j& W& o2 Q( F1 FDim Part As Object
* ~2 Q, p. x7 Q7 [Sub main()
$ c% R9 x" p- S% x3 gSet swApp = Application.SldWorks
- t+ d: t/ [# d% t8 q( QSet Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
* k+ p. o+ I* i0 O2 Q" C- oname_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
- Y9 v# e, b% o3 X. cEnd Sub

杀苏

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

qiminger

7 C* Z( N3 D# w3 P4 C7 F* J4 \! I8 _

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

- L4 @  u+ y; G7 R1 o( v0 ~7 c' **************************************************

十分感谢梁老师提供代码学习~~
: q; ]. a% P" {2 q/ z7 h
! s! E" u$ {4 V, a, U; j提示进来学习的坛友！
9 [4 }. p! s6 `通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
1 A/ ^5 T' \  O9 q! S  z% X: N; e" t
15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。

下面这段代码，可以取第一个下划线前面的字符。
1
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
下面是我在其它论坛 得到的 某位前辈的宏，你看看

9 g% j$ v9 N" W/ V7 i3 k感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
蛋大的教程可能有幫助

qiminger

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
http://fans.solidworks.com.cn/thread-33730-1-1.html
" X& R1 D9 f: M( I9 }3 L$ @蛋大的教程可能有幫助

4 y8 @! S8 l9 v+ @8 ~非常感谢大师指引

ps122hb

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

qiminger

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

没有成功

Francis

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
5 R. Y# t2 v7 p7 O! [+ E/ g# R楼主添加成功了吗？为何显示无效语句？

) V$ ]) ]6 T3 p4 H* ]3 [5 G& j; N3 e$ r看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

' o8 `2 Y' o# ?# V% e4 M$ Q

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

$ e$ x; N- E7 h8 y5 O" v9 w$ G
不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？

Francis

試下這個
: Y$ j4 D5 B  o5 c 123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件
+ b2 B0 U9 ~& c% y2 r7 C7 k& _$ J4 Z- s

qiminger

# N- H+ W+ {' [; `8 F" u  M

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
試下這個

( H  ^. I2 g1 o$ Q; i1 q
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
1 m$ a! O3 E& c) s我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
1 q& o4 ]. I* h& Z也许是学习版本的问题
  t$ M$ c" n8 H, P9 `
! @9 ~2 G; ]9 w( ~2011版本
! a) @" x9 w% R8 }# ^  a 987654321-qiminger.rar (17.86 KB, 下载次数: 60)

2013-6-28 08:37 上传

点击文件名下载附件

Francis

qiminger 发表于 2013-6-28 08:38 static/image/common/back.gif
$ U/ o' }& h0 j/ a谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
) S: v: N) v- d' Z( x( Z! c' a我新建之后做出的，做很多次，还是不好 ...

謝謝qiminger兄回帖討論。

+ T2 Y0 q# O$ Z# `方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
/ W/ |3 P) V, ?) o' P; ?問題在內碼嵌合到“數值/文字表達”不對。

) S% Y2 \# a- _& j; ?把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
6 t* }! h2 T* ]4 v9 |! s! q3 adim dummy
7 {# k7 E6 Y7 ]& W' h$ Odummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

' ?0 v3 E7 S; D, T! C) u

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
7 P; @) x7 P% q9 b/ Y謝謝qiminger兄回帖討論。

0 v* j' F$ E! c7 Z. n: W- C方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大，请教一下。我这样格式的文件名如何提取
/ ~1 {) j- q$ x. T. b例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
, h! }' C% U# ^1 d* Z3 b1 g7 h謝謝qiminger兄回帖討論。

0 I! ?% _6 K" m: P: j方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
" }; H8 b$ s, P) N4 M* t直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
3 L4 m; S, G! r, c4 t宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
5 h6 \; G# g4 r4 @試下這個

" W$ y+ f0 {- Z重新命名后，好像就不更新了啊
; C+ H. D8 r9 @4 B" g, l. [
弄个批量的宏
( y' ~* w, k8 P6 P; I

Francis

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

1
( l! g( ~/ E0 F/ ADim Txt
- x- ~7 I0 ?# d) I0 n0 n$ `Txt = Part.GetPathName
+ ?4 c; t& t' X' R( o2 y8 C& L$ U2 fTxt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。

+ T8 o( m7 \$ B

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊
7 g* M2 |$ `0 a
弄个批量的宏

0 `0 }1 ~# g# T( U! h1 y3 X估計又是『脖子掛餅終餓死』的慘案一宗。

hongwei_1987jp

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

4 Q4 s7 o! H( B- h! d我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

老兄搞下吧

阿帕奇

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

对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的，到“_”停止的

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
  \2 m4 f( s& @/ Z4 f" n5 A$ Q% H对不起闷大，宏我看明白了
想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

4 v) v1 [0 `) K2 }
" ^$ f  I7 N; |, ]! d  q4 j1 o我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
% E" |7 l( M) x2 m4 j# }再请出手相助

Francis

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

  A) X2 W  [5 s+ {在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。

: X  H/ a* I/ _) [partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。