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

qiminger

按下面帖子学习做了一下，我的2011版本不成功，操作N变了，
现请教大家，谢谢参与~~
. i5 I7 e2 N% V2 f0 u" n
8 Q7 {# P; t7 s# ]/ Q  J) v  ^
: T0 d8 g* j3 M2 d7 L4 F; r! D( z下面原贴标题和地址
9 X2 Q; w& [4 \. K% Q: Y( N+ @SolidWorks中方程式的应用技巧
: c% W% v, S* Y$ Whttp://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913
& W7 b2 y" W( _4 q; }* Z: t

原贴方程式：dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))
' @+ K5 E* T, x% |
5 O1 g: i$ i! `, C$ w) u) ]方程式目的是从文件名中从左到右取9个字符

ryouss

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

' **************************************************
'  macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
Dim Part As Object
Sub main()
$ J5 v8 y. J# h2 g, DSet swApp = Application.SldWorks
2 {0 c" W% S# c/ P' RSet Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
  B5 }" E6 B0 A8 J1 M+ p4 L1 f4 Spath_name = swModel.GetPathName '取出目前檔案的路徑及名稱
& e7 J- [8 \% q$ v; ~name_ = swModel.GetTitle '取出目前檔案的名稱
: r  {# i4 P$ Vname_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
! p% o) x* B6 c7 e% b& kEnd Sub

杀苏

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

qiminger

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif
如下VBA宏的編程[2012版測試]
1 W5 H$ f' ^4 V! X. P* E
+ ^6 ?' i6 |9 H7 P- W' **************************************************

十分感谢梁老师提供代码学习~~
# w+ \* E; K5 c& ?5 n
提示进来学习的坛友！
! |. P5 y6 [& Q) e通过在自定义属性里嵌入宏代码，问题已解决。
2 W1 I. e4 ^2 @下面代码在2011版本中均已测试成功。
  [: [& L2 e: X% k) A  F& U1 s8 r
15楼代码，可以取左边字符
19楼代码，可以取最后一个下划线后面的字符。
# I' n5 E" X# Q# `7 V5 |7 D  o
下面这段代码，可以取第一个下划线前面的字符。
1
  j& r  _; G3 K! cdim 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
* H. M8 c! b4 J' G' z下面是我在其它论坛 得到的 某位前辈的宏，你看看

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

Francis

http://fans.solidworks.com.cn/thread-33730-1-1.html
* r. ^& P  J2 A' z$ p: O蛋大的教程可能有幫助

qiminger

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

非常感谢大师指引

ps122hb

楼主添加成功了吗？为何显示无效语句？
. X* z/ L' w7 u  N9 u( 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
4 K' g: a# {5 z2 c9 ~5 o楼主添加成功了吗？为何显示无效语句？

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

qiminger

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

+ |+ c* k4 B7 n
- C8 t4 N) P' [" ~0 w; @% y8 j不好意思，再麻烦闷大老师，我的是2011版本。
) b9 j, b" u# H我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？
6 E# O; G0 w7 p/ h! T4 m& ~

Francis

試下這個
  E* p  N9 v) \+ _ 123456789-qiminger2009或以上版本.rar (11.35 KB, 下载次数: 218)

2013-6-27 21:29 上传

点击文件名下载附件
- s- e) n- T* V2 g, j- M# y

qiminger

+ x5 h- t% ?* Q/ A$ b( z

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif
( P% g$ M  t- L8 {& i9 F# P0 [試下這個

; @# n5 V' r+ k! }$ u0 \谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
8 j! g& M* n$ i7 ~3 H我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题
2 P  v; C2 [4 i! v
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兄回帖討論。
2 ^% S7 S. H( t
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。
: o& R: k; I5 R$ |% r. `! O- \0 E
把以下內碼copy&paste到“數值/文字表達”欄位再試一下吧。

1
dim dummy
dummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

* k+ Z) v7 g: \& _9 }
% g# [! L& Y3 K: I1 Z& ~

阿帕奇

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
謝謝qiminger兄回帖討論。
7 k' U& [: q: V/ l1 t7 X  u
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

qiminger

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
5 t4 i: ?. d, Y: n, Q6 P1 `謝謝qiminger兄回帖討論。
! v6 m4 r! d8 \) C  p
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

成功了~~
7 z) M/ ~: {( O( |: X! L直接从你给我的源文件属性栏里复制，再回来粘帖，终于可以了，
0 ~1 s  e1 [3 l" d宏真神奇，我英文不好理解困难，再次感谢了~~~

hongwei_1987jp

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

重新命名后，好像就不更新了啊

( t7 f3 Y; q% W7 N弄个批量的宏

Francis

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

1
Dim Txt
Txt = Part.GetPathName
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
. U1 I' E0 ]2 e8 {! |5 U+ oTxt = Left(Txt, Len(Txt) - 7)
8 ]0 A4 [+ {- T9 i: R/ n4 V0 CPart.Extension.CustomPropertyManager("").Set "partno", Txt

" q3 l0 f3 V+ N* s把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
) G$ K$ v& u9 b- A注意！必定要使用複製粘貼的方法，才可嵌合內碼到欄位。
( ^) t# l( Y+ ~$ S
4 P+ ^" k: s. `4 O

Francis

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

1 P! U& Z. b* a" X弄个批量的宏

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

hongwei_1987jp

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif
, j3 ~7 Q! q5 {( Q5 G. G% L估計又是『脖子掛餅終餓死』的慘案一宗。

+ l, C8 b; E. w: V我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

2 G( b- X! O1 e; I- s老兄搞下吧

阿帕奇

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

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

Francis

阿帕奇 发表于 2013-6-28 13:51 static/image/common/back.gif
对不起闷大，宏我看明白了
1 T/ H. ^: p; D; w1 s: H- r/ `3 W想起我未说清楚，最后一个“_”前的字符也不固定
有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇

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

* Z4 U7 r/ p" I/ A3 m我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
1 ]; w# g) ^6 A9 |# l再请出手相助

Francis

阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
9 d6 J4 t$ f, \( e: j我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
& [& \. s2 ^3 i) ~8 M2 j请问partno是不是可以改成任意名字 ...

在“自定義”的設定應該對了，可能還欠缺方程式執行，下載以上所提供的檔案仔細研究一下執行方法。
8 K8 M# z; [3 s, M$ q, V4 u! X6 _# A1 F
partno只是一個代號，怎麼字符都可以的，中文也可，只要對應宏內字符就可以。