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

qiminger · 发表于 2013-6-22 08:47:02

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

下面原贴标题和地址
SolidWorks中方程式的应用技巧
http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1028623&fromuid=48913

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

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

ryouss · 发表于 2013-6-24 17:25:45

本帖最后由 ryouss 于 2013-6-24 17:31 编辑

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

' **************************************************
' macro recorded on 06/24/13 by lsc
' **************************************************
Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.GetFirstDocument
path_name = swModel.GetPathName '取出目前檔案的路徑及名稱
name_ = swModel.GetTitle '取出目前檔案的名稱
name_9 = Left(name_, 9) '取出目前檔案名稱前9位文字
End Sub

杀苏 · 发表于 2013-6-24 20:19:17

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

qiminger · 发表于 2013-6-25 13:05:59

本帖最后由 qiminger 于 2013-6-28 13:28 编辑

ryouss 发表于 2013-6-24 17:25 http://www.3dportal.cn/discuz/static/image/common/back.gif, A. Y3 D* L) h& H+ u
如下VBA宏的編程[2012版測試]
$ s, v0 Q3 I4 ]" F* m3 X0 J9 p" G7 X1 v( p
' **************************************************

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

提示进来学习的坛友！
2 K1 F" O$ }7 D, I/ p通过在自定义属性里嵌入宏代码，问题已解决。
下面代码在2011版本中均已测试成功。

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

下面这段代码，可以取第一个下划线前面的字符。
1
dim yfd
yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

qiminger · 发表于 2013-6-25 13:07:11

杀苏发表于 2013-6-24 20:19 static/image/common/back.gif2 j) g9 \# Y/ f7 f% A2 v; [7 X7 w
下面是我在其它论坛得到的某位前辈的宏，你看看

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

Francis · 发表于 2013-6-25 21:34:29

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

qiminger · 发表于 2013-6-26 07:24:17

Francis 发表于 2013-6-25 21:34 static/image/common/back.gif" [. x' J( H( S* M1 _& g
http://fans.solidworks.com.cn/thread-33730-1-1.html
" q& I, v0 {7 ]7 C2 s4 M. B蛋大的教程可能有幫助

非常感谢大师指引

ps122hb · 发表于 2013-6-26 09:22:21

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

qiminger · 发表于 2013-6-26 09:50:09

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif
# ^3 j8 q# v3 i. z4 L1 p* y楼主添加成功了吗？为何显示无效语句？

没有成功

Francis · 发表于 2013-6-27 12:17:11

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

qiminger · 发表于 2013-6-27 16:02:37

ps122hb 发表于 2013-6-26 09:22 static/image/common/back.gif. Y" M* x; w' ?% p5 _
楼主添加成功了吗？为何显示无效语句？

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

qiminger · 发表于 2013-6-27 16:16:35

本帖最后由 qiminger 于 2013-6-27 16:18 编辑

Francis 发表于 2013-6-27 12:17 http://www.3dportal.cn/discuz/static/image/common/back.gif
4 |/ n; w# h( R* _7 \' k2009版本以後，宏的嵌合方法已經改變，具體請參附件（2012版本）。

不好意思，再麻烦闷大老师，我的是2011版本。
我按图在自定义属性里加代码，重建模型，保存关闭文件，重新打开也没成功。
是不是还要添加方程式呢？
QQ截图20130627161203.png

Francis · 发表于 2013-6-27 21:31:42

試下這個

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

qiminger · 发表于 2013-6-28 08:38:05

本帖最后由 qiminger 于 2013-6-28 08:39 编辑

Francis 发表于 2013-6-27 21:31 http://www.3dportal.cn/discuz/static/image/common/back.gif+ b* Y5 F* W2 G+ V; e
試下這個

谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。
我新建之后做出的，做很多次，还是不好使，我感觉过程不应该有问题了。
也许是学习版本的问题

2011版本

987654321-qiminger.rar (17.86 KB, 下载次数: 60)

Francis · 发表于 2013-6-28 09:55:31

qiminger 发表于 2013-6-28 08:38 static/image/common/back.gif( y( o6 g; p2 @0 W$ x8 w
谢谢~我试了你给我的，重命名之后重建，属性可以更新，好使的。9 Y0 X$ A7 `: u" D( s" W
我新建之后做出的，做很多次，还是不好 ...

謝謝qiminger兄回帖討論。

方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。
問題在內碼嵌合到“數值/文字表達”不對。

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

1
8 \3 a6 S; F ^, r3 s% Sdim dummy
, o3 F- Q; i4 Edummy=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,9))

阿帕奇 · 发表于 2013-6-28 10:17:35

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif3 ^7 ^6 y! H6 o1 f
謝謝qiminger兄回帖討論。* j; d, u3 H8 M& K" A0 O
) G- ]! D' e( F
方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

qiminger · 发表于 2013-6-28 11:30:13

Francis 发表于 2013-6-28 09:55 static/image/common/back.gif
8 k; h o! ]& `, j( |0 u謝謝qiminger兄回帖討論。
! ]) b& P+ A. p( j6 q
O. P2 x3 `2 b6 n& V8 S$ H方程式的寫法正確，出現的驚嘆號代表呼叫的屬性值不是數值。

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

hongwei_1987jp · 发表于 2013-6-28 11:41:34

Francis 发表于 2013-6-27 21:31 static/image/common/back.gif
3 C. S9 o, I5 R, w% Q+ Q3 m% J) }試下這個

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

弄个批量的宏

Francis · 发表于 2013-6-28 12:06:04

本帖最后由 Francis 于 2013-6-28 12:12 编辑

阿帕奇发表于 2013-6-28 10:17 static/image/common/back.gif8 C; x! ~- q8 @- j6 a; i
闷大，请教一下。我这样格式的文件名如何提取
% v3 y0 N5 c- H& V+ Z例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

1
, F  I& }7 ~1 c3 \8 d( J6 BDim Txt& r; o& g4 f0 a
Txt = Part.GetPathName' ^$ r2 D  t0 A. `: ~) T1 q+ H0 h9 `
Txt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
" q5 B. Q2 _8 K" Q0 _Txt = Left(Txt, Len(Txt) - 7)
4 G" D9 }+ A4 F  I! I. m! g4 H, KPart.Extension.CustomPropertyManager("").Set "partno", Txt

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

Francis · 发表于 2013-6-28 12:09:05

hongwei_1987jp 发表于 2013-6-28 11:41 static/image/common/back.gif
3 v1 K# a' d# U7 o5 ?2 l重新命名后，好像就不更新了啊2 W% E5 F* R: Y0 o1 s* y! T+ [

- d; W: [3 t& R1 z# g弄个批量的宏

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

hongwei_1987jp · 发表于 2013-6-28 12:28:20

Francis 发表于 2013-6-28 12:09 static/image/common/back.gif6 u. _" h) r. Z" q( A1 j: T7 G
估計又是『脖子掛餅終餓死』的慘案一宗。

我平时不用那种加文字的文件名，感觉用这种图号和名称分离的宏挺好的，有批量改的话，那就太好了

老兄搞下吧

阿帕奇 · 发表于 2013-6-28 13:51:55

Francis 发表于 2013-6-28 12:06 static/image/common/back.gif
D6 [7 n7 a- [ l& _把以上內碼copy&paste到“數值/文字表達”欄位試一下吧。
. H4 ^ G& X4 C& H: [注意！必定要使用複製粘貼的方法，才可嵌合內 ...

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

Francis · 发表于 2013-6-28 14:52:03

阿帕奇发表于 2013-6-28 13:51 static/image/common/back.gif
8 r' W9 P9 C( X3 K对不起闷大，宏我看明白了
2 l3 z& q \0 u5 S" _想起我未说清楚，最后一个“_”前的字符也不固定
1 C# M8 g* n: v: L有没有直接可以从末位数的， ...

那段宏就是奇哥的要求

阿帕奇 · 发表于 2013-6-28 15:51:55

Francis 发表于 2013-6-28 14:52 http://www.3dportal.cn/discuz/static/image/common/back.gif
* G% M7 i) G( O/ T3 M9 M$ ?那段宏就是奇哥的要求

我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
请问partno是不是可以改成任意名字，如“工程图名称”
再请出手相助

Francis · 发表于 2013-6-28 18:18:24

阿帕奇发表于 2013-6-28 15:51 static/image/common/back.gif
# ?* e5 Q. v/ L' w3 I我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
# X7 L; y: a0 x3 Q! F请问partno是不是可以改成任意名字 ...

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

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

		自动登录	找回密码
密码			注册

通知

[求助] 宏提取文件名字符为何不成功

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

评分

评分

评分

评分

浏览过的版块