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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

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

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

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

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

x
求一个画基础钣金的宏! l+ B% K) F% h! `3 P& T
基础钣金就这四种
. R  [" e9 j8 Q; G5 }  J1 o+ j运行宏要有个界面可以选择是哪个截面
' A) j, s, B/ @1 j& o+ C7 _ 0523.png ( s2 P$ J6 {3 s$ T/ ~7 k2 e
输入参数，点击生成零件自动画出基体法兰1
$ r0 c# r# a3 K+ J5 T  g* ^设想的界面
2 c$ N) ~+ }1 p0 p1 L 设想界面.jpg 5 P" _3 E. B5 j! I

评分

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

查看全部评分

回复

举报

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

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，8 V2 M5 ^; ?% H- N' o' }2 L& j- p! ?
下次要用的時候直接修改參數就可以了。8 g0 n" Z3 }) m
這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层 来自： 中国安徽蚌埠
作了几个分的宏% _+ L& B( }1 I
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
6 a0 n5 V4 V- {9 r( [: D' [; ?/ F4 k& L 基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑
7 R& Q  ~) R( C2 C( ]- C
lhl2008 发表于 2016-5-23 22:23
; b% }: H, E+ Z简单的做了个！
( O& ~7 X8 k. Y8 H+ \
运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层 来自： 中国陕西西安
jinqin11 发表于 2016-5-24 07:55# N: Y7 i& u2 H& J6 r) ^$ p- B1 b& t
运行没有什么反应。界面也没有
; c# V6 p6 D- R( w! |9 o! o$ [2 ?1 C  _
我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层 来自： 中国台湾彰化县
lhl2008 发表于 2016-5-24 08:503 g3 E+ o3 X4 }' B
我在SW2012和SW2016下运行都没问题！
, X" a9 W# p% i( ~( ~1 E( k
我運行了也是什麼沒發生。(2011)( |$ V( C9 }7 R! T5 V
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层 来自： 中国陕西西安
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑
; K5 R; _1 ^: Q" \
gt.adan 发表于 2016-5-24 08:59- Y, E8 ^+ k# j2 N% c0 S
我運行了也是什麼沒發生。(2011)+ D3 A/ ^" s, Q' z4 r
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？

  q, j) Z' ^. V- s按阿丹要求，重新上传！4 n2 W, S( }7 G1 P8 T4 L& D
去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层 来自： 中国台湾
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑 ! Q# C% i) {. a! G
lhl2008 发表于 2016-5-24 09:39& D# M, o/ v' N- {
按阿丹要求，重新上传！

- g% w% U; r7 O; u* s% a謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？
" h9 ^9 u$ z; j/ }" s沒有密碼，無法更改引用
$ ?- T6 H# z/ P
回复 支持 反对

举报

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

举报

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

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图
8 ^+ W1 c+ a( s 0524.JPG
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

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

回帖奖励 +1 点三维币

2012執行有誤,2015正常!- r$ Y4 v9 G+ {8 W+ i: ]+ R  Y2 c

2 _, v- Y) c8 \  D9 @ 1.png
; n0 P- Z0 y7 K
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层 来自： 中国香港
本帖最后由 ryouss 于 2016-5-24 17:45 编辑 4 M3 Z' o7 b4 s$ Q( U! [. ^
8 ^9 }  f1 R  D! B% N! j
FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名7 i3 w* a& m& g; j. Q. C, w

4 F+ ?1 ]- S. c( m$ ?$ i# p8 U4 ~& p6 v1 [在如上之段落之前,修改如下就 2012,2015皆能執行了．  m) D. N- O2 S2 Y0 n/ ]0 H
& I+ k5 U% {& p( a) z1 z9 ^* k

2 z' k: ~) L, N) a8 B
  1. ''''''板金 2016/5/24
    $ G9 C7 F  v1 k! W  [
  2. Dim swApp As Object! r2 }) Z2 |: h2 s. ]4 S4 k' n
  3. Dim Part As Object
    . ^1 ^. E1 f$ l  U2 E" q: ]
  4. ! k: @, V' q& D
  5. Public AppPath As String        '程序所在文件路徑
    / H/ T0 e) x( H/ v+ u2 H# j
  6. Public a As Double2 l1 _6 M: E' C! `
  7. Public b As Double
    - ~  e1 f- n: z( ]6 ?/ t# h# y
  8. Public c As Double
    3 W9 v. D) [4 p6 g* Z
  9. Public d As Double0 t. d* O  ?- c8 F, R
  10. Public t As Double# L; o# x6 \- e& M( w+ Y
  11. Public L As Double: G# p: k! H# [
  12. Public tye As Integer* ^9 `+ d1 V7 h+ _; t& m
  13. 4 @5 \9 M: z) i* R/ u3 _# X) Z
  14. ! Q5 P# K2 M4 ~" h" Z
  15. Sub main()% ?& c- v6 E5 q' V
  16.      '程序所在文件路徑
    ' l( z; o3 P4 L) a  ]) y1 M$ f% o
  17.     Dim FilePathName As String+ Z2 y4 j+ D# e2 p3 A8 o
  18.     % F% A3 g# j9 y6 `1 n
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")  f# O* k8 G( C4 M' [3 a
  20.     & I1 d' k+ L4 {/ H" [& V
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔' Y& r: a# I, k: y
  22. '    If swApp.ActiveDoc Is Nothing Then
    # }9 o, B$ r$ |' y+ ^3 t  Q
  23. '        Set swPart = swApp.NewPart5 V4 O1 f6 z% I- j* g$ K) n& n' k
  24. '        Set swDoc = swApp.ActiveDoc
    8 j7 Q+ r3 B: n, k8 _' S* ~
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then% f; q, B9 U; X5 g
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"
    4 P. e: Q9 R- B: z# ^" R
  27. '       Exit Sub' W% M* b; F+ P* ?! ?' }
  28. '    Else) M7 X3 }8 H' ]: {7 \
  29. '        Set swDoc = swApp.ActiveDoc
    7 k7 v  s# E9 a) x* _2 j5 X, R& k9 ~; z
  30. '    End If. k) H( y% ~+ i6 T& Q
  31. ; C0 t/ ]8 w% {: z! Y
  32. Set swApp = Application.SldWorks% c% R9 m, \$ R( e
  33. Set swPart = swApp.NewPart; S; r+ I7 t; b1 }+ q6 [9 C
  34. Set Part = swApp.ActiveDoc0 v' N+ G* k+ l; ?; D$ D, `
  35. Dim myModelView As Object. m5 T8 z5 p. q& k4 T' S1 I8 x
  36. Set myModelView = Part.ActiveView
    1 ~' O1 P) t" K) M- d; F
  37.    
    6 l4 h2 T  O4 M0 o# R  Y4 v
  38.    ' Set swPart = swApp.NewPart
    4 ~" k/ h2 ]: z+ N* Z5 N3 z: y
  39.     'Set swDoc = swApp.ActiveDoc
    6 C* S- {9 T% s1 N* C/ L
  40. # T4 o  l2 }/ ~) m$ K
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>
    2 q0 E* l# D# M2 b" n& o. ?$ B+ a( F
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名
      B8 G7 V7 x# W- R. T
  43.     ; b+ t! P) l7 @' b' U
  44.     0 m% e# L9 T" V: o6 |
  45.     UserForm1.Show '顯示對話框
复制代码

; Y" c3 o( }8 Z( l4 b
! I% g7 A/ F6 b. }

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层 来自： 中国台湾彰化县
ryouss 发表于 2016-5-24 17:40
8 j0 E4 b7 u# FFilePathName = swApp.GetCurrentMacroPathName '全路徑文件名4 a2 j1 l, [2 A7 [. Y

! `* Q& q: D+ l1 I( O在如上之段落之前,修改如下就 2012,2015 ...
  J; D# V4 a3 F
梁叔，我不用修改代碼耶~
* t" J" n+ [% ]& r* c5 S+ R) \將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2016-5-24 20:51 编辑 ( n, Z5 C* {; w4 W8 T2 V% h* ]- _
gt.adan 发表于 2016-5-24 17:50' f. w# X3 G# i2 v
梁叔，我不用修改代碼耶~
6 O1 C* U3 \, i9 Z" t將引用更改為當前版本後就一切正常運行了。

: ?' g; h0 Z7 B, \1 n% p1. 因 "引用" 有密碼保護,所以才想修改編程!
  |2 z( i) i1 \8 g/ ?2. 用9#原檔,在2012須設 "引用" 如下:  O! e! [4 z& h2 m8 z% P

9 c) t/ f7 m* k5 T6 T6 K# F
) Q" v# b4 v+ M2 R# y* {4 Q/ B+ O4 J% w  ~! b% S2 S# X

8 g/ G, {' O& A) O& c4 Y# ~+ u 1.png
5 v3 T; L1 b+ g
6 A' U9 p7 v  O- K' Y
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层 来自： 中国台湾
ryouss 发表于 2016-5-24 18:44
3 i  _1 h$ k2 ]0 R5 R, `# C1. 因 "引用" 有密碼保護,所以才想修改編程!# [' u: l- g3 h. b5 r. m" Y8 @+ f
2. 用9#原檔,在2012須設 "引用" 如下:

7 u, Q* Q" M) f* v8 B1 d原來如此，算是一個通用的辦法就是了~
) w1 i. G, e6 Z謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
  o: h4 ^9 j2 a% s
ryouss 发表于 2016-5-24 18:44! ], P# E1 X6 W( W
1. 因 "引用" 有密碼保護,所以才想修改編程!( z& ], A. z. S5 f5 i" f
2. 用9#原檔,在2012須設 "引用" 如下:

' V8 b8 H8 q/ d4 i! U' j1 C8 S- H. X) M, p# |( c3 U7 i. n3 ^
红色的选不中，也保存不了
# {2 G6 I& r9 ^& k* ?, q( ~ 05242.png
3 y: X5 V" f  d" W2 d4 C运行时这样
+ W) E0 ^, M6 o: `% U* |* O 05243.png # K* [' @3 `2 W6 m5 z% E4 \
2 E/ J4 ^3 e& V" [
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层 来自： 中国浙江嘉兴
jinqin11 发表于 2016-5-25 08:380 U+ Q( Z; i8 b/ W6 _5 G" B( X+ {
红色的选不中，也保存不了: `, N- s$ v0 S% C
; H. P7 B% {9 p( s
运行时这样
* K1 l; ]) F+ G$ ^; F
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
/ s6 I4 @4 r6 \% j5 K$ ^+ P
* V" p  s% X# s0 j- [8 y2. 再叫出 9# 原檔,應該就有了.
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

jinqin11
 楼主| 发表于 2016-5-25 20:09:49 | 显示全部楼层 来自： 中国安徽蚌埠
qiminger 发表于 2016-5-25 19:25
8 p8 z/ `- I1 |4 r6 X# K9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~

3 {6 q) q6 M3 \0 r引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层 来自： 中国辽宁
jinqin11 发表于 2016-5-25 20:09
% c. v5 E! z) R4 B- s) r+ [引用怎么修改？

$ j  @) F5 Q' s7 K# }: T工具/引用/选择当前SW版本的类型库+ @5 H! L, [. D, R+ F
2016-05-25_204714.jpg 2016-05-25_204811.jpg
7 ?' o' n; X+ J3 J
回复 支持 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 )

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