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

ryouss

需要关联什麼,請詳述!
: b3 A$ S: c( H6 ~: A0 n1 X6 I

huyaomeng

文件名：no name_prj。xxx
9 R$ i% Z+ @" ?. r1 I用方程式如何实现提取no到代号、提取name到名称、prj到类型呢？高人帮帮忙？
谢谢！

ryouss

huyaomeng 发表于 2015-10-4 21:26
文件名：no name_prj。xxx
/ [% S# }8 K& A  n5 E用方程式如何实现提取no到代号、提取name到名称、prj到类型呢？高人帮帮忙？
...

學習要活用,

# P8 c) T0 h! N, D  ?解題在51#.

jaychou315

我的零件名是“T13-06-015_动板”为什么L2=0？

jaychou315

name_这个参数没有.sldprt这个后缀，那L2 = InStrRev(name_, ".", , 0)这条语句要一直读到“.”，所以=0？

ryouss

jaychou315 发表于 2015-12-7 20:30
我的零件名是“T13-06-015_动板”为什么L2=0？

我的零件名是“T13-06-015_动板”为什么L2=0？

+ }; H0 V, U0 F2 F- ^又是文件隱藏了擴展名,取消就好了!

jaychou315

ryouss 发表于 2015-12-8 00:29
& G8 w" r! v* T+ t; [7 y- I" y我的零件名是“T13-06-015_动板”为什么L2=0？

又是文件隱藏了擴展名,取消就好了!

原来如此，多谢

ryouss

. o3 Y& L$ V+ V+ C) p! s9 V1 C其實既然知道在VBA編程裡,在偵錯中斷模式中,
把鼠標放在變數  L2 可以得知當時之值,應該就會把鼠標放在變數  name_ 不就可以查知 name_ 當時的值了.(肯定是沒有 .SLDPRT 這7個字母)

; U# J% M* K0 @+ b# C
再給個概念,
* Y- ~/ N$ F- d1 [1 n# t, G
除了因執行錯誤而成偵錯中斷模式之外,為了找執行錯誤用 逐步執行 也是很好用的.

1 ]+ @5 L& c. Z( e) r: y% k& m+ I或是在適當編程中插入  STOP 指令,如要查  name_ 在執行時之值,就在 name_ 之下插入 STOP ,
7 J; ]0 ^1 D3 T5 ]0 [
8 r2 N7 P* g: G- }; G% y( \$ J當宏執行到 STOP 就會暫停可以查 name_ 當時值,再按執行鍵就可以跳出 STOP 往下再執行.
' *************************************************
'  macro recorded on 12/06/15 by lsc
' *************************************************
2 f  k8 }& ~: m* S+ f& zDim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean

% q4 ?0 z( l- ~4 k6 j3 }4 t+ l7 oSub main()

- E7 |# R1 B! t$ z$ sSet swApp = Application.SldWorks
9 m, X& o$ b" ESet Part = swApp.ActiveDoc
. T% G- j4 x2 GDim myDimension As Object
Set myDimension_1 = Part.Parameter("D5@草圖1")
/ f1 S; j" r* r5 h4 r' D$ hSet myDimension_2 = Part.Parameter("D1@角度1")
) Z, |* p! u. Fpi = Atn(1) * 4
8 n# \4 c, g( q6 o4 ~For I = 45 To 225 Step 5
    A = I * pi / 180
    A1 = A * 0.01  '弧長R=10mm
% q) u$ O! w+ \    A2 = A * 33 / 21 - 1.0840988 '角度
$ s+ Z3 \; g  V; ]) r/ c    myDimension_1.SystemValue = A1
. T7 ]( W4 M* ?    myDimension_2.SystemValue = A2
    boolstatus = Part.EditRebuild3()
5 d/ w4 o5 l; I' O2 |# W6 K8 G- A    PauseTime = 0.01 ' 設定暫停時間0.3秒。
    Start = Timer    ' 設定開始暫停的時刻。
        Do While Timer < Start + PauseTime
            DoEvents    ' 將程式執行權讓給其它程式。
7 i( g( e/ u2 q        Loop
Next
Stop
For J = 220 To 45 Step -5
( Q' h; N1 J5 m  m0 f" X    A = J * pi / 180
  h: y% Q- I3 e% x' `+ E" _    A1 = A * 0.01  '弧長R=10mm
    A2 = A * 33 / 21 - 1.0840988 '角度
  r9 }  }7 Q. L1 S! V) Z    myDimension_1.SystemValue = A1
    myDimension_2.SystemValue = A2
- U+ N, t7 h% m( D7 W    boolstatus = Part.EditRebuild3()
; G) M1 F9 I+ p    PauseTime = 0.01 ' 設定暫停時間0.3秒。
2 l5 A7 Z9 `7 N. K( H* v    Start = Timer    ' 設定開始暫停的時刻。
* M: e0 a5 N# V/ ~    Do While Timer < Start + PauseTime
        DoEvents    ' 將程式執行權讓給其它程式。
9 W3 w' F9 S$ o, p' u$ l# v! p    Loop
1 R6 \7 \; D; h: c1 DNext
( z- X3 ~5 n2 NMsgBox "Run End"

. E$ J/ _- h- X+ ^$ NEnd Sub

杨成武

beingsolver 发表于 2014-10-27 17:07
; ~6 ^# n5 z7 [" Y, s这些天一直在找这个图号文件名的分离功能，终于成功了！

7 c- f6 O9 A5 D你好你能把你的那个文件发给我试一下可以吗，我的没用成功谢谢你啦。

huyaomeng

/ y! t  i, G% k6 I7 e% |# {
文件名：no name_prj.xxx
3 z9 d: \. x4 S用方程式如何实现提取no到代号、提取name到名称、prj到类型(项目)呢？请高人帮忙？其中，xxx
是扩展名。"Dummy1"=part.Extension.CustomPropertyManager("").Set("代号",Left(part.GetTitle,InStr(part.GetTitle," ")))
"Dummy2"=part.Extension.CustomPropertyManager("").Set("名称",Mid(part.GetTitle,InStr(part.GetTitle," ")+1,(InStr(InStr(part.GetTitle," ")+1,part.GetTitle,"_")-InStr(part.GetTitle," ")-1)))
3 |* T" n# A$ w"Dummy3"=part.Extension.CustomPropertyManager("").Set("项目",Mid(part.GetTitle,InStr(part.GetTitle,"_")+1,Len(part.GetTitle)-InStr(Part.GetTitle,"_")-7))

- h% d* ~& ^) @, T, A这是三个方程，但是有时候不管用。请前辈们看看！另外，能通过方程读取文件路径吗？怎么编写？谢谢！
8 g7 H) v- P" [% W9 N1 [, s

huyaomeng

ryouss 发表于 2015-10-5 11:43
" |7 j, S# K: {+ k% ~學習要活用,
6 u) M) v# T& R- g  ?7 F
解題在51#.

! H4 l9 e; s" j这个我知道了。我的问题是想在51#的基础上再多提取些信息。我本意是想通过方程式提取文件所在文件夹名称的。

jinqin11

ryouss 发表于 2013-12-12 20:50
如 300_222_33_固定销压板,假設 300_222_33_ 之位數不變,只有第三個" _ "之後的位數會變動的話,
公式如 ...

嵌入宏的界面怎么进去，前面几楼都是一个属性，
) u% w' q5 ]( J6 s3 l3 t我要再加个属性。
一个代号
7 X( Y) T" o" r0 V一个名称

jinqin11

我知道了，可以在TXT文件中修改，然后粘贴进来。
- [# L  K: p3 M. k& d* O/ {
1
dim str1
dim str2
str1=part.Extension.CustomPropertyManager("").Set("名称",mid(part.GetTitle,9,20))
& `; J9 |" i6 H" T& E6 k  I6 c0 Astr2=part.Extension.CustomPropertyManager("").Set("代号",Left(part.GetTitle,8))

eastking1111

ryouss 发表于 2013-12-17 23:47
7 [9 ]0 \, _0 H. L2 V試試如下:win7 64位元
編碼原則為   代號_名稱.solidworks副檔名(如 123456_軸承.SLDPRT)
功能:應用宏 ...

请教下，这个宏能自动执行么？我每次都要制作完图纸后再按一次执行宏，感觉有点麻烦。

ryouss

eastking1111 发表于 2016-2-20 14:53
8 D* z2 ]! k8 R* m- r# q7 `* t) S- h请教下，这个宏能自动执行么？我每次都要制作完图纸后再按一次执行宏，感觉有点麻烦。

) C/ I6 e$ d4 n* D- n7 Q參考幫助,在工具列作個宏的 "自訂按鈕"
7 p5 u  H) E; |3 v7 n/ M
/ V* u2 B, C$ }4 H1 k% d
* X& C, g: {, b

eastking1111

ryouss 发表于 2016-2-20 15:15
參考幫助,在工具列作個宏的 "自訂按鈕"

感谢你的回复，我目前就是用的自定义按钮，我的意思是能否让文件保存后就自动生成名称和图号

ryouss

eastking1111 发表于 2016-2-20 15:19
感谢你的回复，我目前就是用的自定义按钮，我的意思是能否让文件保存后就自动生成名称和图号

$ W* u; ?* W  R, B& ~5 Y) Z* j應該可以,把條件及要求詳述,最好附個簡單文件說明一下

eastking1111

ryouss 发表于 2016-2-20 16:33
應該可以,把條件及要求詳述,最好附個簡單文件說明一下

我是这么个意思：
7 @( i6 M7 e5 G% k1 O* `0 Q
* `+ T& h( r7 u: ]首先随机创建个文件，模版显示为上图；


* l- f5 M  C4 M' v( R* ?- w6 B
9 R/ f+ {+ c6 t  `  N! M按照XXXX_XXXX的模式保存文件名，但属性里面并无改变；


, w6 I+ ~* U. b& L5 Z% K点击设定好的宏按钮后，图号及名称分离。
8 W6 k" I0 h. K) k$ H' U这是一个图纸从创建到完成的流程，我的意思是，是否每次都需要点击下宏按钮？
能否怎么弄一下，只要按XXXX_XXXX的模式保存文件，属性就自动分离图号及名称？

ryouss

不經過"宏"作保存處理,想不出達到第3圖的自訂屬性要求.

jinqin11

eastking1111 发表于 2016-2-20 14:53
请教下，这个宏能自动执行么？我每次都要制作完图纸后再按一次执行宏，感觉有点麻烦。

8 \: q  W4 D0 p  FSOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中
http://www.3dportal.cn/discuz/fo ... amp;fromuid=1883407
(出处: 三维网)
18楼，我的回复
/ q$ K- L: h" F. R! h6 \

eastking1111

jinqin11 发表于 2016-2-20 22:08
4 n3 W6 d+ p7 r% y- U3 n. VSOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中
8 g; u+ A. a9 \* i9 ]http://www.3dportal.cn/discuz/forum.php ...

感谢你的回复，我没看懂，我再把你的代码研究研究。

eastking1111

jinqin11 发表于 2016-2-20 22:08
SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中
( S* |7 s0 N8 v% G1 Dhttp://www.3dportal.cn/discuz/forum.php ...

$ _5 W+ a: M. L# A; b% _" m请教下我用2016的，为什么全局变量会有×？

还有就是代码改哪儿会让他从“_”开始分离，而不是从“.”分离？
) i  K! S9 o: ^1 ~$ N

jinqin11

eastking1111 发表于 2016-2-21 10:27
请教下我用2016的，为什么全局变量会有×？

还有就是代码改哪儿会让他从“_”开始分离，而不是从“. ...

1 ~8 P) u+ N) }* ?2 s不用理会全局变量的错误。
用28楼的代号，也是用记事本编辑，然后复制到属性栏
: I" S) y% E; b2 o6 K28楼代码中两个哭脸改成一个“代号”一个名称（要同属性栏的属性名一样）

eastking1111

jinqin11 发表于 2016-2-21 22:13
不用理会全局变量的错误。
% X/ D: B; [) T5 M# g' _$ s/ r7 q6 y用28楼的代号，也是用记事本编辑，然后复制到属性栏
28楼代码中两个哭脸改成 ...

$ w, ~9 Y! j  l/ ]2 P9 m$ I' y28楼的帖子一直都弄不成功，不知道是版本问题还是我没弄对，
) W  f" {  {1 p. q3 k, ^% [感谢你的回复。

jinqin11

eastking1111 发表于 2016-2-22 11:28
( i, Z1 o+ i, x4 J8 l28楼的帖子一直都弄不成功，不知道是版本问题还是我没弄对，
感谢你的回复。

# E- h: C! [- @% N4 C" @( r28楼的代码是有问题，正确的是
# ~2 y& f9 `, |. _; q
) K/ d, Y9 }) h! r1
dim str1
dim str2
dim str3
$ {! f% Z, W1 P+ `* }4 g& ]dim l
5 u# |6 U. ~, T! U$ u) Ustr1=Part.GetTitle
7 ]- f. E& y4 f3 l1 m( {9 ~l=InStr(str1,"-")
3 Z% k" z, [( l7 I) W& y  s( l1 `: Y. istr2=part.Extension.CustomPropertyManager("").Set("代号",Left(str1,l-1))
5 v2 t) V, O/ n8 r7 L- R  ?str3=part.Extension.CustomPropertyManager("").Set("名称",mid(str1,l+1,20))
4 E" g, R4 C% S/ ~