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

qiminger

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

, n: I9 J0 a' R! ^- Y6 n
下面原贴标题和地址
SolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913
5 c  d/ B7 o/ y% p4 a8 i

原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
6 \# O3 _/ q' v1 S5 A* ?  e
方程式目的是从文件名中从左到右取9个字符

ryouss

如下VBA宏的編程[2012版測試]

' w9 S2 z+ t  }' **************************************************
'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
7 x* V; {/ v/ o0 p% h, k6 ]: UDim Part As Object
Sub main()
5 }; d9 U3 O2 n: s0 J2 {6 N% DSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
  P5 U# i7 s: `1 M/ \Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
6 b& `, N, E4 q5 t9 rname_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub

杀苏

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

qiminger

( p; I+ v+ S$ ^8 [

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
. o9 ~- V. f; I5 m如下VBA宏的編程[2012版測試]
) ^8 j8 c( J  L" t
' **************************************************

6 m/ D, D2 O' S7 I+ g十分感谢梁老师提供代码学习~~

提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。
0 V4 Y  F& r1 R' \" x9 L: B" X
15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。

下面这段代码，可以取第一个下划线前面的字符。
3 o2 X* ~5 u; }) Z8 c1
" B, `( L  z8 x3 ~5 |; |dim yfd
0 J3 i. B: m4 b7 K* R: syfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

qiminger

杀苏 发表于 2013-6-24 20:19 static/image/common/back.gif
# }' i  }! P+ @4 |. Z! _! B4 P下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

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
2 D# p8 n" [; C) h* U5 ~蛋大的教程可能有幫助

  [" ]( I/ D) o非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
! ^0 `; g6 a0 Q7 V& l6 i

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

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

qiminger

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

不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
: b4 {* U7 f+ Q  D是不是还要添加方程式呢？
  B5 w5 F( D0 j9 b. }

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件

qiminger

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
; T  J* Z* A. S: H& x! ?' p試下這個

谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题
; p: X' B. o+ w/ Q
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
. K3 t& m) g3 W& W& F谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好 ...

6 U$ V1 \0 `+ S. k$ O9 v/ h謝謝qiminger兄回帖討論。
! c* k) j% ~( ]5 Q
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。

把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
& [5 v, `5 |/ ?# A. g& W7 Vdim dummy
0 z% A; I3 P; B- H9 Y* Tdummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

  q4 w# h( N& A/ c3 i
, |2 V% n/ S# `; Z- S. |$ r, |  M1 x

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
3 q( v$ a' }" M3 y+ A: T$ K! U2 S謝謝qiminger兄回帖討論。
; P& K4 [: ?/ v$ C, L; ?
& u5 F  n+ ~! E+ b+ \方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

, n9 `/ f5 \# |. j) \( V: g& `闷大，请教一下。我这样格式的文件名如何提取
/ V. i# r3 r+ {( I& ~# M! n" D/ U例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
2 `/ }% y" k& c謝謝qiminger兄回帖討論。
) j8 O2 c/ j  N# v
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

+ m" j7 M- T7 l成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
8 F/ A# i+ I* @# R" V宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
6 t1 r8 u  {! y$ l7 R, w9 H/ ^9 N4 l試下這個

# ~8 M/ }/ G' W- B( ]. k6 O4 U重新命名后，好像就不更新了啊

弄个批量的宏
3 [0 f" L$ O- \% [

Francis

8 D- H/ c, W7 {- w, x& ^+ y

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

1
) G: }9 Q8 W! Q" r7 P+ cDim Txt
8 J% x. G4 h' _3 n' m) C1 A2 zTxt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
$ }0 z2 G" G/ o, GTxt = Left(Txt, Len(Txt) - 7)
Part.Extension.CustomPropertyManager("").Set "partno", Txt

把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
) v% W/ J, T( l5 Q) e$ a注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
  Q' @3 c4 P# l! ~
0 F  \; L: y, n

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
重新命名后，好像就不更新了啊

弄个批量的宏

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

hongwei_1987jp

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

6 i5 x4 }* n& ~2 l我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

* n" A- D6 C/ J4 ?老兄搞下吧

阿帕奇

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
/ E+ r' [" v7 \把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
9 m$ L0 L  j* F% B% `/ }* Y注意！必定要使用複製粘貼的方法，才可嵌合內 ...

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

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
, V. w" ^# j; q' U9 b: ]对不起闷大，宏我看明白了
+ \, g/ ]" o  S, e) S; c4 H想起我未说清楚，最后一个“_”前的字符也不固定
/ R$ C! ^2 g2 U4 n有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

0 B( Z/ A7 J! H' G# p
2 }) c' x) J; X) W  ]/ Z2 R1 n$ j8 D7 ]我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis

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

& A! p9 h9 Z- [/ j) M: D$ _& S* ?在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。

partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。