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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
现请教大家，谢谢参与~~
& j1 p+ ~1 U0 a2 ^& D1 f) F/ i

下面原贴标题和地址
SolidWorks中方程式的应用技巧
! n+ \: O5 k) a* X2 l" y$ o5 s2 L6 _http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913
  Y7 h8 ~  \* r4 `$ e
: j9 Y- [% s& E3 m, P& y/ ?
& E, u" d7 A3 ~0 Z$ U5 h3 X8 K原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

方程式目的是从文件名中从左到右取9个字符

ryouss

) B9 p0 s8 }) r1 u! ?7 u) J
如下VBA宏的編程[2012版測試]

8 a9 P9 \7 }6 U2 h' **************************************************
'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
& i" N# i, R2 _Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
( ~8 X4 \( L! c9 l  O# Fpath_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
2 {6 _" N( l# W' Q3 D- A, ?name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub

杀苏

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

qiminger

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

1 k6 h: v6 R4 D$ l# K: K4 n5 t' **************************************************

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

提示进来学习的坛友！
通过在自定义属性里嵌入宏代码，问题已解决。
5 V% a4 T& |6 D) r9 {下面代码在2011版本中均已测试成功。
, _) s. ~& J; O- O
7 X4 [; v# Q+ e& i/ z1 p# ?15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。
' H5 T3 d$ T) h2 M1 }7 @) t9 N0 H
下面这段代码，可以取第一个下划线前面的字符。
1
dim yfd
. h1 Q  _9 o) K* ^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
' C% D' G. a0 V# @* k" A* G下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

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
/ Q7 g/ o1 c* @! C# ~蛋大的教程可能有幫助

非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
  }3 Y# {6 H# x4 c* s/ i; ~

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
& v5 \, E2 ?. y3 S/ c. f+ J2 I' [楼主添加成功了吗？为何显示无效语句？

" E) Q! c  [+ v+ n& {& }: Y  h没有成功

Francis

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

qiminger

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
0 y* P8 D) U2 x8 g楼主添加成功了吗？为何显示无效语句？

$ e- s* i4 B! ^& b0 M看一下十楼方法，有源文件2012版本的，源文件我打不开。你如果研究明白了，说说方法再截两个图。

qiminger

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

; \: T% [# K$ D6 ~$ h( F不好意思，再麻烦闷大老师，我的是2011版本。
$ K2 U% L/ k5 }; A' f* L我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
6 ?: [$ H0 g9 f+ D是不是还要添加方程式呢？
/ F$ @. B! V4 j( I! k. w' n% _( q7 S

Francis

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

2013-6-27 21:29 上传

点击文件名下载附件
* \7 V% G& h( ?$ f. {; P6 c

qiminger

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

0 {5 z8 b, Z8 z( Q$ N谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
9 E( P; }+ g$ y5 D+ I* ^( p$ e我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题

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
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好 ...

6 K! D; _3 R) W/ j. C  @謝謝qiminger兄回帖討論。
  i& \9 N3 t: Y, i
9 y( ]7 p( O2 r; B1 @' {# `! O方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。

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

1
dim dummy
& s5 V+ Q* F% V3 c; _3 p  zdummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

4 }, Q9 E) V/ f2 R! q: g
2 E6 l. \, W2 k, s+ U

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
7 n3 v; K9 @% x& i, @& ?謝謝qiminger兄回帖討論。

5 R8 K# ^( Y2 H/ ~" F: O方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

闷大，请教一下。我这样格式的文件名如何提取
. y$ z  o. z5 G: [. J* r) N) r例如：300_222_33_固定销压板，我只想提取最后一个下划线“_”后面的字符，如本例的固定销压板，但是最后一个下划线的后面的字符个数还不固定。

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
3 q+ X6 t* E3 y9 c0 c2 s( `' @
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

/ i6 Z( m0 O2 J2 u6 y$ {成功了~~
直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
7 Y. [8 k0 x) t/ s! f2 G" \4 P試下這個

) X& m/ M2 z/ J9 o7 `2 s3 P重新命名后，好像就不更新了啊

- P- E) N2 V! m$ O" J弄个批量的宏
0 T) \/ h+ t& s* p2 }3 N1 y
" N; a' g  F( ~2 [& Y9 q

Francis

5 F/ {4 i7 F3 }6 Y; h1 v

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

1
1 G: d2 Q- M6 ~% ?3 yDim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)
0 t' a' R( W9 f# ^- m$ t0 b. v& j7 OPart.Extension.CustomPropertyManager("").Set "partno", Txt

* M, M, K, f, p% \3 B/ u4 H3 A把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
6 x0 w  T- ?7 r# J' |; V注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
# @; x( m9 O( e/ q
" I2 Y7 v) u6 ?( s8 d4 c

Francis

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
8 u4 c: h# K9 b6 {重新命名后，好像就不更新了啊
+ a4 [+ ~/ b+ P0 c
弄个批量的宏

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

hongwei_1987jp

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

我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了
, t! {+ m* p4 l7 i6 `
) t; A' a* h6 T% ]老兄搞下吧

阿帕奇

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

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

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
对不起闷大，宏我看明白了
6 N2 ?( H% i) n6 s3 {/ `' ?想起我未说清楚，最后一个“_”前的字符也不固定
# a$ s) N- y4 R有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

; N+ ?" u" ?; u9 N+ q3 d6 x8 I  s
我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
2 c0 E& m3 Y, d$ O0 V9 S请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis

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

6 k$ x6 Q( {! N, E5 C在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。

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