设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

12345下一页
返回
发新贴
展开

通知     

楼主: qiminger
收起左侧

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

[复制链接]
hongwei_1987jp
发表于 2013-6-28 20:39:55 | 显示全部楼层 来自： 日本
本帖最后由 hongwei_1987jp 于 2013-6-28 20:50 编辑
& r: ?3 _' S0 k3 c1 |2 N
阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
- M# K' X0 K) r7 k0 {# [" U! s我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。
* D4 j$ I: ], O- [+ u  X4 V5 e5 P1 u请问partno是不是可以改成任意名字 ...
# O5 ~8 u3 y8 o* P. P" T
看看是你说的意思吧   456_123_789_阿帕奇 .rar (32.54 KB, 下载次数: 103)
回复 支持 5 反对 1

举报

阿帕奇
发表于 2013-6-29 14:26:12 | 显示全部楼层 来自： 中国辽宁盘锦
hongwei_1987jp 发表于 2013-6-28 20:39 static/image/common/back.gif/ {4 Q( ?1 H% Y- I+ U$ H+ J, H
看看是你说的意思吧
& [8 ^( Q) i6 G0 j0 d7 h/ ^6 G4 k
在你的文件里可以, a+ s# N9 Z- y: x- b' k
我的意思是“数值/方程式”那一栏里也要粘贴宏
回复 支持 5 反对 0

举报

lider2010
发表于 2013-7-17 15:06:23 | 显示全部楼层 来自： 中国江苏常州
阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif/ C; a# ]$ h6 X9 z
闷大，请教一下。我这样格式的文件名如何提取
% i. X) c  f5 m' i8 a* K例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...

! b$ p6 i0 h; K, @# r6 F$ y现现丑
, _* U  d$ P* y1 D: P5 N: N下面的代码应该可以实现你的要求。* R5 O- C& x. {7 ]  g" z/ g
str2提取零件号，如你的例子中取到：300_222_331 Q( n$ d( v6 o7 }
str3提取零件名称，如你的例子中取到：固定销压板
# I, ?( U- z1 B7 o/ b0 l- |, U- w: J9 E+ F& S+ |
2013
/ D4 {7 S) b. Y3 s7 iDim str19 I- c5 x/ P- q" I
Dim str2# e3 N  c* p& T) H: S
Dim str3$ A3 _- {8 T8 U
Dim L1
% g+ Q& y3 w! N% d8 R) D5 Z1 vstr1 = Part.GetTitle$ m7 z! o, V" k. O
L1 = InStrRev(str1, "_", , 0)3 e# O; w' o4 v* a
str2 = Part.Extension.CustomPropertyManager("".Set("mycode", Left(str1, L1 - 1))& \' B) q2 n% }* n  P/ p) Y" y# O+ p
str3 = Part.Extension.CustomPropertyManager("").Set("mypartname", Mid(str1, L1 + 1))
回复 支持 4 反对 0

举报

阿帕奇
发表于 2013-7-17 16:46:46 | 显示全部楼层 来自： 中国辽宁盘锦
lider2010 发表于 2013-7-17 15:06 static/image/common/back.gif
9 {+ i1 E1 d, c现现丑
, Y, N6 N+ c8 S& j; A5 e3 O, _下面的代码应该可以实现你的要求。
$ {; r$ ?$ I, d6 ^# z) B- n: z+ N+ `6 dstr2提取零件号，如你的例子中取到：300_222_33
, x" P8 @) k* T3 G3 |# X
感谢你啊，我这些天都没在试这个东西了
回复 支持 1 反对 0

举报

远征龙
发表于 2013-12-8 14:02:26 | 显示全部楼层 来自： 中国广东东莞
感谢分享~~~~~~~~~~
回复 支持 反对

举报

dyltj
发表于 2013-12-8 14:10:34 | 显示全部楼层 来自： 中国天津
大师请受小弟一拜
回复 支持 反对

举报

gt.adan
发表于 2013-12-12 11:10:58 | 显示全部楼层 来自： 中国台湾
阿帕奇 发表于 2013-6-28 15:51 static/image/common/back.gif
4 F; A# V4 ~# n, f7 E5 b# f我是13版，也许我做的不对，粘贴后只显示“1”，partno无数值显示。+ g5 I6 J( @+ A# t! _' x
请问partno是不是可以改成任意名字 ...

) ^3 o$ e0 F* W7 b( G$ ?& A! H阿版，昨天測試了一下，發現您少了一步，就是悶大說的方程執行。4 U' p& m, B% T5 ]% D7 }
以我自身為例，全域變數是"result"，屬性名稱是"marco"3 Y) ^, s' P' e% C, E
所以方程就是："result"="marco"
: S' N  D- n* X7 g然而這種語法在2013是不被接受的，我用2012則是成功。7 t+ H! P: t; k% \) `
宏我也不懂，所以2013失敗的原因，可能還要再請教悶大了~

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

阿帕奇
发表于 2013-12-12 14:46:59 | 显示全部楼层 来自： 中国辽宁盘锦
gt.adan 发表于 2013-12-12 11:10 static/image/common/back.gif' B5 M; K# P5 q5 k, K, Q" x5 |
阿版，昨天測試了一下，發現您少了一步，就是悶大說的方程執行。4 C$ `: j$ H' N/ x0 R
以我自身為例，全域變數是"result"，屬 ...

. w, [) H( V! c2 P! Z, e  D$ N希望闷大能出手
回复 支持 反对

举报

ryouss
发表于 2013-12-12 20:50:15 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2013-12-13 08:25 编辑
- R' P: X9 u, J$ d
阿帕奇 发表于 2013-6-28 10:17 static/image/common/back.gif
# X2 p3 T$ A' t# D1 m3 b( g闷大，请教一下。我这样格式的文件名如何提取, F# i9 ^9 c: i8 t
例如：300_222_33_固定销压板，我只想提取最后一个下划线“ ...
0 c1 [8 i% R9 I! f, W( i' s6 E( B
如 300_222_33_固定销压板,假設 300_222_33_ 之位數不變,只有第三個" _ "之後的位數會變動的話,* Q, P+ ]8 r  Q
公式如圖1,在 2012 SP4版  測試結果如 圖2,圖3,但如 圖4 方程式表的"執行宏"成"紅色標記",這就不能理解了.
! V# @7 V$ l+ x& S1 L(以上是借用悶大公式做修改)& H, C  U. y1 s7 X$ j! M1 K! t
圖1$ m. \# X* R! V5 X+ e  w5 H
函數.jpg 5 M3 z- d) s5 j- J: j. e$ {6 W% l2 e! d# l
圖2
# [1 h1 ]% J  c Clipboard01.jpg
# B3 N  n( q* b8 ~; N圖3
; N" O( F1 H6 q( ^+ ?! N( }3 X Clipboard02.jpg 9 B' I" b) @6 b: U3 d  l
圖4' T: Y  w8 i7 U% n$ [
方程式.jpg.jpg
- z- H5 Q; i/ q0 X2 R圖5
( q& x; B/ {0 @; s) q* ]/ m capture_12132013_082427.jpg . a7 s/ c# p) i# g
300_222_36_固定销.rar (18.03 KB, 下载次数: 34)

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

Francis
发表于 2013-12-13 09:04:23 | 显示全部楼层 来自： 中国香港
gt.adan 发表于 2013-12-12 11:10 static/image/common/back.gif) f" o: e4 b2 a$ I6 n6 J; }
阿版，昨天測試了一下，發現您少了一步，就是悶大說的方程執行。
1 o8 m! R9 Z0 i# i& R8 N以我自身為例，全域變數是"result"，屬 ...
% Y+ f( ^6 X% a
很多隱含功能（沒從官方渠道發放的功能），到了某個版本就會被消滅，常有發生。9 ]: K3 p6 w) d% F3 I/ s
估計這樣嵌入VB代碼的方式，到了2013版本被禁止了。- S. m' }5 h, I8 h& P* o: }) T
- I/ e( [5 V6 g1 ~. r
方法總是有的。例如：  N% ?* Z: D$ K- q2 G
1. 一般宏（屬於半自動，須手動執行宏）( F; s/ w# O3 E& k4 V" \
2. 宏特徵
. U) Z$ g2 D2 i6 i0 V- l3. 利用窗體或類模塊，常駐VB代碼在Solidworks程序中，當發生特定“事件”執行宏
回复 支持 反对

举报

gt.adan
发表于 2013-12-13 09:48:50 | 显示全部楼层 来自： 中国台湾
Francis 发表于 2013-12-13 09:04 static/image/common/back.gif
+ K4 X: r1 G. _3 g1 s很多隱含功能（沒從官方渠道發放的功能），到了某個版本就會被消滅，常有發生。9 t& u$ z% P: ^
估計這樣嵌入VB代碼的方 ...
) e' P/ c) z) }- y# V
第一個常用，但是自己不會編寫巨集…1 [3 F3 t" ~8 g/ M+ M4 \& G! s
第二個只看過悶大使用，自己要研究一下…7 P  }; C5 u9 q3 m
第三個離我太遙遠…只能看悶大表演了…
- D6 b* k, Z3 I& }5 l& s  |; b
( G' }& Q5 s% l( V# P謝謝悶大指導。
回复 支持 反对

举报

ryouss
发表于 2013-12-13 11:11:57 | 显示全部楼层 来自： 中国浙江嘉兴
Francis 发表于 2013-12-13 09:04 static/image/common/back.gif% V: m/ e! C  u$ x
很多隱含功能（沒從官方渠道發放的功能），到了某個版本就會被消滅，常有發生。
' m' @, F5 h: X& I/ }7 t估計這樣嵌入VB代碼的方 ...
* d8 P6 a& O9 N! y, q
謝謝悶大指導,悶大簡單幾句提示又有得費腦力了
回复 支持 反对

举报

398312203
发表于 2013-12-13 17:31:02 | 显示全部楼层 来自： 中国广东深圳
ryouss 发表于 2013-6-24 17:25 static/image/common/back.gif
1 S8 m$ J! Q: X  _$ [! \# u如下VBA宏的編程[2012版測試]! z' p+ t) f( p* p4 c& R% B) x3 w

3 P  c0 R7 S9 i2 d$ y$ T' **************************************************
, w% ]) j+ r) d, R$ P: r
大神，运行宏没有反应啊.能不能把宏程序打包一下。谢谢！
回复 支持 反对

举报

ryouss
发表于 2013-12-13 20:34:18 | 显示全部楼层 来自： 中国浙江嘉兴
398312203 发表于 2013-12-13 17:31 static/image/common/back.gif
' r: q0 T* y0 s+ [) y4 j* d大神，运行宏没有反应啊.能不能把宏程序打包一下。谢谢！
- ?- o1 Z- E, n) l8 o; A9 E. T
請說清楚一些,什麼是"宏程序打包一下"
回复 支持 反对

举报

NC@jiang@nan
发表于 2013-12-13 20:57:32 | 显示全部楼层 来自： 中国广东深圳
阿帕奇 发表于 2013-12-12 14:46 static/image/common/back.gif7 I9 W* L( I7 K1 T$ g, H
希望闷大能出手
* ^' I- z1 m7 m: i  T4 Y# ^
阿版，我这两天正需要研究这个东西了，但之前根本没接触过这用宏提取文件名中的某一部分生成自定义属性的问题，请问你研究得怎样啦？有所成没？是否可以向你请教请教？因为这个估计不是一句两句话能说得清楚，可能需要耗费你一些时间，不知道是否方便
回复 支持 反对

举报

ryouss
发表于 2013-12-13 22:53:54 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2013-12-14 08:03 编辑
' q% V8 r  J# s' U+ m6 g) @9 e
Francis 发表于 2013-6-25 21:34 static/image/common/back.gif
! F, m% J2 j4 nhttp://fans.solidworks.com.cn/thread-33730-1-1.html* q( C, d1 Y- E& B; Y4 ~7 k
蛋大的教程可能有幫助
& \( v4 y5 K& M9 l& e* O' \
練習6#的悶招: v1 L1 `: }5 [. u
用到 "宏"-"方程式"-"連接屬性",應是較深級的應用,但對管控圖紙的尺寸統一性一致性,是很好的一種選擇方式.
+ L1 v4 q) f0 n1 ?5 I4 w% m  a
0 x1 d6 c; z, q$ Q$ f# } capture-1.gif

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

NC@jiang@nan
发表于 2013-12-14 10:06:20 | 显示全部楼层 来自： 中国广东深圳
ryouss 发表于 2013-12-13 22:53 static/image/common/back.gif$ i0 R  y* P$ Y1 T6 c9 c; o
練習6#的悶招/ c7 U, D* j, |7 C  E- o. Z
用到 "宏"-"方程式"-"連接屬性",應是較深級的應用,但對管控圖紙的尺寸統一性一致性,是很好 ...

* n' Z% y8 F) @% o9 {5 h唉，看这些高深的应用，像看天书一样呀。这段时间要研究这个，要好好看看了
回复 支持 反对

举报

Francis
发表于 2013-12-14 10:28:00 | 显示全部楼层 来自： 中国香港
NC@jiang@nan 发表于 2013-12-14 10:06 static/image/common/back.gif
' A( N8 J. z  U3 F# q$ s唉，看这些高深的应用，像看天书一样呀。这段时间要研究这个，要好好看看了

4 a6 i# |! _) E/ {" l不用研究了，請細看35#樓悶人怎麼回覆吧。
回复 支持 反对

举报

NC@jiang@nan
发表于 2013-12-14 10:38:56 | 显示全部楼层 来自： 中国广东深圳
Francis 发表于 2013-12-14 10:28 static/image/common/back.gif; S9 Q6 y7 f) c! Q
不用研究了，請細看35#樓悶人怎麼回覆吧。
5 P% U5 S* H# g0 Q; y; F# [* g5 w
呵呵，你的2013版不能用这个宏了吗？
回复 支持 反对

举报

Francis
发表于 2013-12-14 11:45:05 | 显示全部楼层 来自： 中国香港
NC@jiang@nan 发表于 2013-12-14 10:38 static/image/common/back.gif
# i. _7 K+ M; R, M& }! t呵呵，你的2013版不能用这个宏了吗？

, w* i4 ?/ R% g" T不知道！悶人沒有2013版本。
0 h6 K, w0 ~$ H8 e
! Q9 [" p, _& W" ?$ @; P有情細心閱讀各人的每一帖子。
回复 支持 反对

举报

NC@jiang@nan
发表于 2013-12-14 15:03:25 | 显示全部楼层 来自： 中国广东深圳
Francis 发表于 2013-12-14 11:45 static/image/common/back.gif1 o1 |5 k! U. u8 k9 o) B( M
不知道！悶人沒有2013版本。$ g# O$ s. A* `8 o3 y( x
- t6 z1 F- X3 _
有情細心閱讀各人的每一帖子。

3 ]$ b' ?, S) w& W( h' B  y. e! r没试过不下结论。
回复 支持 反对

举报

Francis
发表于 2013-12-14 15:18:37 | 显示全部楼层 来自： 中国香港
NC@jiang@nan 发表于 2013-12-14 15:03 static/image/common/back.gif
7 t6 j7 _/ L: g8 J, q* N. J; c4 T没试过不下结论。

) K9 |9 W* u/ ~* l+ r請再細心看帖，沒人下結論。
回复 支持 反对

举报

NC@jiang@nan
发表于 2013-12-14 20:56:37 | 显示全部楼层 来自： 中国广东深圳
Francis 发表于 2013-12-14 15:18 static/image/common/back.gif
8 T9 d% w# F7 q5 U! |4 ?請再細心看帖，沒人下結論。
; n. b% ?9 K1 {& @+ i2 ^
哦哦，这样的呀。
回复 支持 反对

举报

398312203
发表于 2013-12-16 15:08:22 | 显示全部楼层 来自： 中国广东深圳
本帖最后由 398312203 于 2013-12-16 15:10 编辑
! a+ G: N/ |. c) b
ryouss 发表于 2013-6-24 17:25 static/image/common/back.gif
2 i2 n# U! z# C- D: m如下VBA宏的編程[2012版測試]3 |; L, @% a( d7 {" K; l& }. i, Y& o
* n/ W. I; m( j) a' f. a) @
' **************************************************

- [, H/ k0 d  J0 K' _大神，你好！根据你的提示我自己做了一些修改，主要是提取代号_名称这样组合的文件，我在我电脑win8.1运行很好，发给win7的时候说找不到工程或库。能帮我看下吗？% t5 u$ C" B, c7 _
QQ截图20131216151553.png . Z7 \  C4 e" }* q1 K; E
' **************************************************
1 J  z% ~! G9 v4 @! |& ]) F' p'提取代号_名称命名的零件，程序以_进行分界
* e! f2 O! X4 j4 a' **************************************************" f1 y9 j5 ^3 U5 E" I/ C, ]- `
Sub main()
% k; F2 u8 j7 d( A" B2 d( f8 h) MDim swApp       As SldWorks.SldWorks
; L% c4 n9 g6 W, [  s/ yDim swModel     As SldWorks.ModelDoc2
* Y8 V& R3 E: CDim retval      As String3 o& ^8 ^# f1 ~- I0 f4 E( w
Set swApp = Application.SldWorks: S; D( E4 ]; h3 v0 }$ o, B
Set swModel = swApp.GetFirstDocument
) K; h! S' T$ x2 ypath_name = swModel.GetPathName '取出当前文档的路径及名称
0 J- \' m' O1 X# q: d. _name_ = swModel.GetTitle '取出当前文档的名称
6 Z6 E" h, T3 e0 {L1 = InStrRev(name_, "_", , 0) '取出当前文档“_”之前代号的长度8 a( p* @7 u, f0 C% p' U+ [$ }% O
L2 = InStrRev(name_, ".", , 0) '取出“.”之前的长度
6 i6 u" ^: l' b+ B) P, pname_front = Left(name_, L1 - 1) '取出当前文档“_”之前的文本8 @6 ^. i- p5 p
name_back = Mid(name_, L1 + 1, L2 - L1 - 1) '取出当前文档“_”和“.”之间的的文本
$ F- v" Y! I- X6 Fretval = swModel.DeleteCustomInfo("代号" '删除之前的代号" d) {$ ^4 |* G, w0 Q3 b
retval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, name_front) '将代号值写入自定义属性! m7 s4 E3 ^, a2 @
retval = swModel.DeleteCustomInfo("名称") '删除之前的名称
0 D; u3 x+ w# o2 S+ R5 Zretval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, name_back) '将名称值写入自定义属性  v- P% C% p& W+ q
End Sub- X  B6 f6 H2 |$ c, V

$ i6 g, {, w! Q8 c2 T9 r6 G, g! [; R0 c. B3 ^2 h+ @
回复 支持 反对

举报

398312203
发表于 2013-12-17 11:30:16 | 显示全部楼层 来自： 中国广东深圳
398312203 发表于 2013-12-16 15:08 static/image/common/back.gif
' W1 q6 M9 ?1 x; A大神，你好！根据你的提示我自己做了一些修改，主要是提取代号_名称这样组合的文件，我在我电脑win8.1运行 ...

' ~1 R+ |' o* f% a: Q自己给自己顶一个……
回复 支持 反对

举报

下一页 »
发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表