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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
* C8 ~( |5 @' w  R; V( ~现请教大家，谢谢参与~~


下面原贴标题和地址
SolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913
& {5 }$ H8 i: E" Y$ z$ {

原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

3 D/ H8 n, s0 t8 r6 y方程式目的是从文件名中从左到右取9个字符
6 ^; S1 _- B2 }- ~. |. d6 Q

ryouss

0 \% H8 j# P4 S
如下VBA宏的編程[2012版測試]
* A2 D! Z3 A" x* L1 F
' **************************************************
3 E; _) D* t3 @# @' m/ g7 ['  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
" j& m8 u5 @7 ~+ s# FDim Part As Object
. ^" E2 v% K0 U* X: R& _) TSub main()
( P0 O6 y5 h, y! k  w1 ]Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
( g+ d+ Y! _) j! ]. bname_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
9 m, ]1 k  U1 V) e+ a; A% K$ UEnd Sub

杀苏

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

qiminger

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
7 ?0 y, I+ S; D8 G, t1 o如下VBA宏的編程[2012版測試]

, f7 K1 C  y8 ?; p9 S' **************************************************

& W1 ]0 |5 e7 i! u% e1 i# i
十分感谢梁老师提供代码学习~~

1 U& L# `& O8 M1 |; Q提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
1 \9 }2 m) C. {下面代码在2011版本中均已测试成功。

15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。

9 i3 C5 s) `! p7 \" V! P, R6 A: A下面这段代码，可以取第一个下划线前面的字符。
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
6 S7 Q! S% u% V6 V/ _, f' e# i, Q: F下面是我在其它论坛 得到的 某位前辈的宏，你看看

  ]9 p4 L6 W6 W; j# I. z感谢杀苏提供宏文件分享，学习

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
6 R! S9 h6 F% k% O% y! \, |蛋大的教程可能有幫助

qiminger

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

非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
! K0 k6 F+ i7 G. R& ~/ _8 C$ X1 t

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
楼主添加成功了吗？为何显示无效语句？

1 a6 l' _2 h$ @' U' o8 |7 A看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

$ G' e9 P$ V/ @# H  w/ _' z/ g# r不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？
9 @& i/ h6 x( H. D4 t9 U

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件
: m9 f5 t& J8 E9 \

qiminger

: R" V# k1 b) T! b7 a

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

: ?8 t+ q  F; d. }
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题
* w: I4 B7 E* l; I$ v, X# \! j
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
3 X  ^! Q; \: K2 S! I+ P' A谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好 ...

+ [2 |! J+ q0 d  h% b謝謝qiminger兄回帖討論。

方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
% c# B* Z" m7 I& n問題在內碼嵌合到“數值/文字表達”不對。

! H  J* M: c8 z# a4 u4 ?/ ^$ a8 r$ u把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
0 [( U. {% O4 g' h6 t/ v+ jdim dummy
dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

阿帕奇

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

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

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

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
: }2 k" r/ l' l2 H/ s謝謝qiminger兄回帖討論。

) b9 w: H3 h: ^; f方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
- k" M# Z% y; v( Y' m. Q$ F% R" {宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
6 ~6 Z4 F& H& Y, \, u7 d% p試下這個

% v& A; F6 `) |% R( p: h重新命名后，好像就不更新了啊
+ N3 i: _5 r/ r- {
" ]. X7 w. ~2 u8 V7 V弄个批量的宏

9 |' V. ^  n4 R. I# U5 y

Francis

8 E- M: g( ~3 [7 M: y4 }, q4 g- J8 V

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

1
Dim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
% f; _- i4 j. R  P# t% NTxt = Left(Txt, Len(Txt) - 7)
! a5 d3 E/ u) n8 o" S, Q) GPart.Extension.CustomPropertyManager("").Set "partno", Txt

9 }  b! e4 c# @) F/ G* p) I/ `把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
' t/ l) M" T, w, j* A注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。

: C5 l/ B" O4 `* c

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
: k. L0 p6 S6 w重新命名后，好像就不更新了啊
  s" ]) @3 o) h
弄个批量的宏

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

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
$ u! a5 @  {. Y% x8 @% A) Y估計又是『脖子掛餅終餓死』的慘案一宗。

9 b- E& D  p8 `5 `$ N2 Y我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

老兄搞下吧

阿帕奇

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

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

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
对不起闷大，宏我看明白了
9 X2 B% _4 L# B, A4 c7 W, m, f想起我未说清楚，最后一个“_”前的字符也不固定
- [: \' C8 w7 o# z$ d2 v0 ~+ B有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
7 a* M6 E7 F/ [( J7 [9 Z那段宏就是奇哥的要求

我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
# }+ Q& `# w) S1 t- W) C再请出手相助

Francis

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

在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。
, B1 Z, w3 B% P+ }" X- e3 w
' `. V' K8 k' k% D0 |  H9 a8 Cpartno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。