向高人请教用宏提取文件名中部分内容做成自定义属性的用法中的疑问

NC@jiang@nan

在http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1250784&highlight=%CC%E1%C8%A1这个帖子中复制的提取SW文件名中的部分内容自动生成自定义属性研究宏的用法。
0 B" m# c# [' g: I+ H; O! p在实际使用中，对于零件，用原帖里的代码都能很好的达到目的。
0 ~' m* V% P" x6 o
) ]& j# @, s5 Y4 G' _) w但现在的问题是，在装配体文件中，这些代码就不起作用，不能实现提取文件名中的部分内容通过代码与方程式配合来自动生成自定义属性。
$ ^9 i  ^. @% p1 k# Y7 o2 B% g. d/ S我使用的是以下两个代码：
! l" A& |4 f% U" Y" b8 R5 C& p. s
第一个：
下面这段代码，可以取第一个下划线前面的字符。; Y1 r  C/ a( j% X# A
1
3 q, o8 `5 J2 i  d* Pdim yfd
yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))

第二个：
8 n) N" o/ H6 s9 p; ^" Y# }19 o* b2 |& s8 w9 D7 u
" ?# `: [4 w* C. ?. O! t; s  nDim Txt
Txt = Part.GetPathName
% B- |; v6 E4 b6 U1 i0 D/ sTxt = Mid(Txt, InStrRev(Txt, "_", -1) + 1)
Txt = Left(Txt, Len(Txt) - 7)( q# T1 E2 `  T  O6 h6 B
Part.Extension.CustomPropertyManager("").Set "partno", Txt
. l' @% ~; ]3 x6 X
在以上两个代码中的"partno"部分我已经改成了自己定义的文字，而且在零件文件中已经验证可行。但再把这两行代码复制到装配体文件中，却无论如何都不能提取文件名到自定义属性中了。
现在很疑惑，不知道在装配体中为何不能这样用代码达到和零件中相同的效果呢？
. c: a2 X4 l4 M8 g( ]! N+ C1 Y如果要在装配体中实现这同样的目的，是不是需要对代码做些什么修改？我对代码可谓一窍不通，恳请各位过路高人留步指点一二，不甚感激。

qiminger

算是有缘，又被我回了这个帖子。
我研究后是下面这样的，装配体的表达式是assembly   下面代码我的2011版测试没问题，自己下面看一下有什么不同吧。
1
dim zfd
zfd=assembly.Extension.CustomPropertyManager("").Set("partno",Left(assembly.GetTitle,InStr(1,assembly.GetTitle,".SLDASM")-1))


1
Dim Txt
0 O; ?. q! w& `1 I0 B; uTxt = assembly.GetPathName
* h" U  \1 c/ c! \Txt = Mid(Txt, InStrRev(Txt, " ", -1) + 1)
8 L* c+ N" y  i8 STxt = Left(Txt, Len(Txt)-7)
- K% R6 C: P5 Y; _assembly.Extension.CustomPropertyManager("").Set "Description", Txt

Francis

qiminger 发表于 2014-2-11 09:23 static/image/common/back.gif
* }3 T* S, G. h+ g6 Z算是有缘，又被我回了这个帖子。
我研究后是下面这样的，装配体的表达式是assembly   下面代码我的2011版测 ...

) S+ T5 P$ l* b! |1 E給qiminger兄一個贊！

NC@jiang@nan

qiminger 发表于 2014-2-11 09:23 static/image/common/back.gif
; Q' l# g6 h9 L5 L& W8 ~算是有缘，又被我回了这个帖子。
我研究后是下面这样的，装配体的表达式是assembly   下面代码我的2011版测 ...

9 Y8 g7 P. P: e4 Y2 K十分感谢，万分感谢。昨天我试这个东西试了半天哎。我对代码这些东西基本上一无所知，谢谢朋友你了。

NC@jiang@nan

qiminger 发表于 2014-2-11 09:23 static/image/common/back.gif
算是有缘，又被我回了这个帖子。
: o! U5 P) J: s1 M( {- W& b1 M. n我研究后是下面这样的，装配体的表达式是assembly   下面代码我的2011版测 ...

7 c! D! x; h+ e6 U  Y1 B其实我也想到了是零件和装配体的表达式不一样，但我不知道应该把原代码里的“part"改成什么内容，谢谢。

xfange

这玩意能不能集成在零件和装配体的模板里啊，要能。
+ k$ K- j% x+ k. w/ @2 \! h, @那就真的是太方便了，不用都对不起自己了

NC@jiang@nan

xfange 发表于 2014-2-12 18:27 static/image/common/back.gif
这玩意能不能集成在零件和装配体的模板里啊，要能。
+ R& f+ a  J6 u  ?那就真的是太方便了，不用都对不起自己了

* x7 s. L) j. f! `; I6 l+ r8 x! Q你把它预输入到装配体或者零件文件里，然后另存为模板不就集成了吗？我就另存为了模板了。

qiminger

Francis 发表于 2014-2-11 11:01 static/image/common/back.gif
+ L/ K$ O) J- j9 j& l給qiminger兄一個贊！

谢谢闷人兄弟的赞，要和你学习的很多很多。其实我对宏也是入门级都不到，e文不好，学二次开发太难，工作用的不多，仅仅是兴趣学习。

qiminger

NC@jiang@nan 发表于 2014-2-11 20:14 static/image/common/back.gif
2 H6 i0 o! X6 V8 a3 e, e, ?0 G# F! I* C/ s十分感谢，万分感谢。昨天我试这个东西试了半天哎。我对代码这些东西基本上一无所知，谢谢朋友你了。

9 F" C- i% k6 }  p* a4 w( }+ j不用客气，互相学习，我也是英文不好，宏方面入门级还不到，以后一起学习。

NC@jiang@nan

qiminger 发表于 2014-2-13 09:09 static/image/common/back.gif
不用客气，互相学习，我也是英文不好，宏方面入门级还不到，以后一起学习。

呵呵，还是需要向你学习。那个装配体的自动提取文件，按你说的修改后已经可以用了。谢了。

xfange

NC@jiang@nan 发表于 2014-2-12 21:01 static/image/common/back.gif
你把它预输入到装配体或者零件文件里，然后另存为模板不就集成了吗？我就另存为了模板了。

: t( t/ [  ~3 }; e0 v5 n5 A不用运行宏就能改么？能不能把模版分享下

NC@jiang@nan

xfange 发表于 2014-2-19 22:48 static/image/common/back.gif
不用运行宏就能改么？能不能把模版分享下

" ?; [3 X! Q5 _4 C% n这几个代码不是做成宏文件的，是预输入文件的自定义属性里用的。
具体的你看我给出的那个原文地址吧

蓝血刺猬

yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))
" U7 `1 x9 p( N5 Q用这个公式返回的值是-1为什么呢？

蓝血刺猬

yfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))
用这个公式返回的值是-1为什么呢？

NC@jiang@nan

蓝血刺猬 发表于 2015-5-11 11:15 static/image/common/back.gif
0 Z0 w2 c- y7 ^( Ryfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle," ...

你用的哪个版本的SW？好像SW2013后输入这些代码已经失效了。