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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 2512|回复: 25
收起左侧

[已解决] 求一个画基础钣金的宏

[复制链接]
jinqin11
发表于 2016-5-23 15:23:41 | 显示全部楼层 |阅读模式 来自： 中国安徽蚌埠
钣金
主题分类用于问题归类:

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

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

x
求一个画基础钣金的宏( L) x' ?6 y' |: Y" c  p9 M) l
基础钣金就这四种
+ u2 t2 H' b( h1 J' m运行宏要有个界面可以选择是哪个截面4 Y( O+ N: j. _: }2 P
0523.png 8 |, y+ U2 Y, {7 W! N
输入参数，点击生成零件自动画出基体法兰1
$ t8 _5 F. g: ]. U+ M3 F, H设想的界面1 m: _# q7 f* i" I
设想界面.jpg
3 \, J/ I" V5 D( x0 e

评分

参与人数 1三维币 +6 收起 理由
不靠谱的江静 + 6 发起讨论

查看全部评分

回复

举报

gt.adan
发表于 2016-5-23 16:53:21 | 显示全部楼层 来自： 中国台湾

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，, c% F' Y5 [; ^0 J; V
下次要用的時候直接修改參數就可以了。
3 g! G! [# o% h0 C0 N# f: ~這樣會不會簡單一點？

评分

参与人数 1三维币 +6 收起 理由
不靠谱的江静 + 6 对钣金不熟，感觉应该可以

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层 来自： 中国安徽蚌埠
作了几个分的宏5 d) A) h( t' u3 |) _6 r/ H
0523.gif

基础钣金.rar

23.48 KB, 下载次数: 32

评分

参与人数 1三维币 +12 收起 理由
不靠谱的江静 + 12 挺好！

查看全部评分

回复 支持 3 反对 0

举报

lhl2008
发表于 2016-5-23 22:23:34 | 显示全部楼层 来自： 中国陕西西安

回帖奖励 +1 点三维币

简单的做了个！ 2016-05-23_22-01-13.jpg
1 `8 ]* f& R% z. I' }% @; e4 c: r 基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑 + a( u/ ~6 V- R( i, b
lhl2008 发表于 2016-5-23 22:23- z& K! |1 Z5 o( ?8 h
简单的做了个！

* h6 D1 C; d0 U- ~1 b- r9 s, q运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层 来自： 中国陕西西安
jinqin11 发表于 2016-5-24 07:55
' [- m7 j+ h$ V4 V运行没有什么反应。界面也没有

' [0 R2 @  P/ v) T, s! I8 x# y! y+ F; f我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层 来自： 中国台湾彰化县
lhl2008 发表于 2016-5-24 08:50
: g' [) `- q* ^$ Y我在SW2012和SW2016下运行都没问题！
# z7 ~+ K1 n0 d; h8 L, z5 f+ W/ K% T
我運行了也是什麼沒發生。(2011)
: z, D. s& V. V$ t; Y% K可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

22553711
发表于 2016-5-24 09:29:35 | 显示全部楼层 来自： 中国浙江杭州

回帖奖励 +1 点三维币

宏盲 ，路过，捡钱~
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层 来自： 中国陕西西安
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑
* ]$ o9 ?; r+ S8 T6 Y' c( `! O
gt.adan 发表于 2016-5-24 08:59) X6 n2 ]1 M$ i! y  E
我運行了也是什麼沒發生。(2011)
7 \) W2 i. S7 ]8 y可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？

2 U8 `1 B& y7 p6 b0 s( c; P2 N. B5 Q! l按阿丹要求，重新上传！" ^: j0 V) c: _, ?1 _
去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层 来自： 中国台湾
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑
4 w8 S+ J' B* `$ e
lhl2008 发表于 2016-5-24 09:39
7 b$ V$ k" q/ ?. d按阿丹要求，重新上传！

8 F- V/ [) R. j5 U( R9 g9 w, V謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？
7 w# d, R, V8 w3 V- p+ X" \沒有密碼，無法更改引用  A- }5 ?3 b5 O$ e, E- \5 {
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 11:57:24 | 显示全部楼层 来自： 中国陕西西安
Sorry，密码没去彻底，重新在9楼上传，请再试！
回复 支持 反对

举报

jirong.peng
发表于 2016-5-24 12:00:00 | 显示全部楼层 来自： 中国广东广州

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图. n4 ]# E/ K& I
0524.JPG
回复 支持 反对

举报

幸福_真好
发表于 2016-5-24 12:02:21 | 显示全部楼层 来自： 中国上海

回帖奖励 +1 点三维币

这个软件功能太多了，用了很多年还是初级水平
回复 支持 反对

举报

ryouss
发表于 2016-5-24 16:42:04 | 显示全部楼层 来自： 中国香港

回帖奖励 +1 点三维币

2012執行有誤,2015正常!
# [4 F! p/ N! |( f. Y
( l* N' G% c% S9 J0 t 1.png + p) v5 g/ W8 z8 I1 O, ?
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层 来自： 中国香港
本帖最后由 ryouss 于 2016-5-24 17:45 编辑
! J; s0 @% {* F* }9 t  o0 ?1 n
# o4 Z0 o+ ?( t8 f* P' g FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名6 q: u8 x; a; ~( q# o2 @6 f( z

/ X! a7 f5 I0 A% ~3 M9 ]在如上之段落之前,修改如下就 2012,2015皆能執行了．* L8 X8 W6 Q9 i1 b
& h, O1 V+ n: z  A( v5 E" H( {
0 L0 A& o0 {+ d6 L% U
  1. ''''''板金 2016/5/24
    , X4 l2 M! Z4 @3 ~
  2. Dim swApp As Object* q6 z# g# k* F# @
  3. Dim Part As Object
    * k+ {$ ^! Z5 _" d8 o' c

  4. 5 x  C: i- o7 @1 K1 h( H1 s5 [* w
  5. Public AppPath As String        '程序所在文件路徑
    5 B) _- w0 T1 _% H6 ^
  6. Public a As Double
    * A# {9 I3 D! \4 u1 U& |
  7. Public b As Double' p& V9 _: J, ~8 m- J3 X2 {/ W; V
  8. Public c As Double
    3 L% v4 W2 w) D+ f% `
  9. Public d As Double/ r# m9 a9 r  N, @3 V$ m) I# o: b8 D
  10. Public t As Double4 p, \* e( L$ v7 x$ A7 r4 U2 u  S
  11. Public L As Double$ ~/ ?& C2 T+ E- ^) J
  12. Public tye As Integer$ @. Z& H; n! g  [9 y
  13. & J  N' s7 [! a( @* c
  14. 5 n' O' S0 j, L
  15. Sub main()
    . S6 `7 w6 q* c+ ?. t% f  W2 z! K
  16.      '程序所在文件路徑0 M: `! p' B& }
  17.     Dim FilePathName As String5 K; N7 a5 P, Q! ]* s
  18.     . F, C+ M, Z# N
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")4 w* L# l+ g% z" A
  20.     $ T; J/ B! S- w* D8 L$ @
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔
    ' v5 P5 z$ z8 I/ d' b
  22. '    If swApp.ActiveDoc Is Nothing Then+ V7 O7 z6 Y8 d6 d4 v! M
  23. '        Set swPart = swApp.NewPart
    ( _% N1 m- S  Y* Z6 j+ n. c
  24. '        Set swDoc = swApp.ActiveDoc
    8 O* @2 ?  S0 T! m( F' v+ \( p1 {$ _+ c
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then
    $ h9 `  p( T7 P+ k& W- S5 d
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件") ?3 L- n  ?/ ~, _. G5 `
  27. '       Exit Sub4 B! u2 [- B3 a
  28. '    Else& x" @8 o& `8 K$ G2 C! w
  29. '        Set swDoc = swApp.ActiveDoc$ t/ z3 r: p6 o  _6 a
  30. '    End If1 z- U  z4 s5 |  S8 w( L  B
  31. & Y" y3 }/ [0 I( z5 A. Y
  32. Set swApp = Application.SldWorks
      i; D* }- |! y+ z# {
  33. Set swPart = swApp.NewPart* e, Y4 ?+ _: N/ X& F
  34. Set Part = swApp.ActiveDoc
    ! l" Q7 ]5 J# u
  35. Dim myModelView As Object3 E2 B8 g0 C  G4 [$ ]
  36. Set myModelView = Part.ActiveView; E% G- V6 q& n0 B# n5 Y) H
  37.    
    . V; ?  Q1 W* k1 P) O
  38.    ' Set swPart = swApp.NewPart
    6 a( m, s" Z3 Y5 g0 y
  39.     'Set swDoc = swApp.ActiveDoc
    ! k) @; y) w, g3 x
  40. # d7 E# k+ c2 I; v; A
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>4 U9 Z- Y/ S. F( [
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名/ s( Z* o8 b3 |& c! [
  43.    
    ( I2 s# q! r/ w) Y
  44.    
    - I% @; E3 S7 G; {9 t7 e
  45.     UserForm1.Show '顯示對話框
复制代码

9 O* k8 l/ h# q9 S7 S, h% I8 c- d
, B  ~5 j( C. N/ P, s2 [$ J

评分

参与人数 1三维币 +16 收起 理由
不靠谱的江静 + 16 感谢梁大支招

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层 来自： 中国台湾彰化县
ryouss 发表于 2016-5-24 17:40
- }+ [; f- c# _& ~( h" H/ a  S' Z* [FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
8 F5 g  Y5 Z' e% z1 @: c
& w7 z2 j# c. t  ^1 P5 D) C. W2 i在如上之段落之前,修改如下就 2012,2015 ...

# d6 V, Y- E' b* v梁叔，我不用修改代碼耶~
" x- n, i  V. n/ K8 r& H將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2016-5-24 20:51 编辑
$ j. @7 c& r9 U& t: U$ S4 F
gt.adan 发表于 2016-5-24 17:50
/ |+ {/ }; _0 b# ~2 X梁叔，我不用修改代碼耶~% E0 J2 I5 E% Y! Z+ q& R5 L) d6 I
將引用更改為當前版本後就一切正常運行了。

9 f! v$ Y' N, D/ d" X; i4 Z1. 因 "引用" 有密碼保護,所以才想修改編程!! s4 u" j8 n* j4 W
2. 用9#原檔,在2012須設 "引用" 如下:
+ D* v/ N+ w! W$ N* P: a7 k% N& ?+ Y' l* t0 O& ?
6 \! O# x4 j' f5 t0 b
; e6 V' v) F& W9 v

6 s/ M: F5 e) V2 k 1.png 3 T$ x8 b7 y% H7 E
4 W0 ^# F+ v0 q! J+ G
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层 来自： 中国台湾
ryouss 发表于 2016-5-24 18:444 Q/ P' N# ~1 ^- _+ g
1. 因 "引用" 有密碼保護,所以才想修改編程!, H: ^2 R1 ]2 y3 P
2. 用9#原檔,在2012須設 "引用" 如下:
/ h4 S% i: ^2 c! }$ k
原來如此，算是一個通用的辦法就是了~1 o( |7 I3 C& C% ]- W; k+ A9 Z
謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
  D2 o+ M9 o# q( e* H
ryouss 发表于 2016-5-24 18:44
$ G- W7 R: x2 V9 z) H1. 因 "引用" 有密碼保護,所以才想修改編程!; Y; b# |# V( A/ ~8 F
2. 用9#原檔,在2012須設 "引用" 如下:
8 {) e+ f) k3 O- y3 Y

  y, q6 ?: S  j& B( s红色的选不中，也保存不了4 b& y  F: E- B2 t; _  H/ J! `
05242.png
/ I$ n4 l1 W( W2 e$ @+ Q' q运行时这样9 d+ A( F" X* [* W" P% I
05243.png / t8 v$ _. q& P3 {3 e
, ^( W+ h& u! H! G& e
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层 来自： 中国浙江嘉兴
jinqin11 发表于 2016-5-25 08:38
, f$ _* e% B% V/ E红色的选不中，也保存不了  L8 [) i6 `# o1 a+ f4 n* b' U& Q  R

0 t  I0 k. g' h# o9 @0 K( V运行时这样
! o; M* U& N" `9 n2 u
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
- ]8 `! T: P2 I8 C' H4 u) ^9 S" V5 ~, i/ ]3 `; J
2. 再叫出 9# 原檔,應該就有了.
回复 支持 反对

举报

qiminger
发表于 2016-5-25 19:25:35 | 显示全部楼层 来自： 中国辽宁

回帖奖励 +1 点三维币

9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 20:09:49 | 显示全部楼层 来自： 中国安徽蚌埠
qiminger 发表于 2016-5-25 19:25
) j: H# `( \6 s( }. t9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~
. h7 f/ z( K( m" m5 E
引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层 来自： 中国辽宁
jinqin11 发表于 2016-5-25 20:09
, n3 \5 B4 O5 y引用怎么修改？
7 ?' c( f: s+ u' O% f: E
工具/引用/选择当前SW版本的类型库& M  z! y+ O' I0 M: g
2016-05-25_204714.jpg 2016-05-25_204811.jpg 7 n5 ^; v: E6 o! V; {+ R9 [+ C
回复 支持 1 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-26 08:30:15 | 显示全部楼层 来自： 中国安徽蚌埠
楼上设置后运行成功
回复 支持 反对

举报

cbf007
发表于 2018-4-18 15:41:58 | 显示全部楼层 来自： 中国江苏镇江
2017好用
回复 支持 反对

举报

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

本版积分规则


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

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

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