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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

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

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

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

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

x
求一个画基础钣金的宏
+ [, f: c7 t" D% G& ?7 R/ ~3 @基础钣金就这四种
$ C. w1 D" \1 F# G运行宏要有个界面可以选择是哪个截面
- g% ^4 G: L& P 0523.png * Y* b. s( b: K* @
输入参数，点击生成零件自动画出基体法兰1
* U+ i1 k& D$ _& Z9 ]" \设想的界面2 n! W: a5 k4 ~+ T" }0 O
设想界面.jpg
! o0 a( R, P2 l

评分

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

查看全部评分

回复

举报

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

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，
+ @# p1 N7 ~- f5 p0 q$ r& h8 P下次要用的時候直接修改參數就可以了。4 I9 S# b: T' e1 H! u0 }2 y2 \
這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层 来自： 中国安徽蚌埠
作了几个分的宏- k5 @3 X  H! c" }
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 $ R- m* H* D9 {7 ]* ~
基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑
; J* Y" E- Z8 `9 v
lhl2008 发表于 2016-5-23 22:23: ^/ t0 A% c' I2 \: T
简单的做了个！

, v: P7 j/ R4 u运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层 来自： 中国陕西西安
jinqin11 发表于 2016-5-24 07:55
  k, A, q/ R5 ~$ d运行没有什么反应。界面也没有
/ P; V1 C8 E* J0 z
我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层 来自： 中国台湾彰化县
lhl2008 发表于 2016-5-24 08:50
& G$ i' f: _2 s9 V! c' d7 M- S+ q我在SW2012和SW2016下运行都没问题！
" o2 \2 x6 a6 s& I
我運行了也是什麼沒發生。(2011)  s; B* K/ I( A. e8 K4 g' g$ c- n
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层 来自： 中国陕西西安
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑 3 ?  r' H& K% {5 z
gt.adan 发表于 2016-5-24 08:59
+ P3 u. n3 e" H我運行了也是什麼沒發生。(2011)/ S9 {+ T& }% s+ w- i7 q; X
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
1 f: c2 L+ Z8 S* k" q  `
按阿丹要求，重新上传！. Y7 k7 v3 f- M+ s* Z7 i/ ]
去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层 来自： 中国台湾
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑
% X7 J# t( O2 R: i9 O. G5 q
lhl2008 发表于 2016-5-24 09:39
0 i( P7 |: \" Y# H按阿丹要求，重新上传！
1 B# M- f( g+ H3 \  |; F
謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？' M: i0 z7 ^2 \- K& r
沒有密碼，無法更改引用
: K# p& S! \% k  ?
回复 支持 反对

举报

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

举报

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

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图
2 H# v6 u& m. o( }5 O& Q 0524.JPG
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

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

回帖奖励 +1 点三维币

2012執行有誤,2015正常!
$ i0 q: ~7 ]- a: Z3 T% M& p$ M; Y3 H
1.png
* q' q! R# |' R" f' O% w1 G0 k0 @
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层 来自： 中国香港
本帖最后由 ryouss 于 2016-5-24 17:45 编辑 - U2 g, G& t, t* F$ R& y0 E

  z" f; a9 S+ F& h  q' t7 V; h FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名$ e# H: y) D6 L1 \' `7 x; e
# w5 P! p# U8 E3 y. k8 v# e% n+ W4 ^
在如上之段落之前,修改如下就 2012,2015皆能執行了．  a* W/ _+ p" q+ q( w' I2 g& |; s/ `
$ c2 l; N$ a. b$ w0 e

; {9 U0 J2 _" w6 E+ \- N$ ~
  1. ''''''板金 2016/5/24
      I, n' d' ?7 {: ^- `2 |7 e; t6 F8 v, g
  2. Dim swApp As Object! ~" b, o- C" D1 M, P4 Q& y
  3. Dim Part As Object
    : o  s& ?) }& p& i

  4. ! _9 Q6 v" u: F4 r/ _$ [+ a6 k
  5. Public AppPath As String        '程序所在文件路徑3 j+ J- w1 u& Z# a- `  v
  6. Public a As Double0 G2 W: F( h! i2 [
  7. Public b As Double% {; {$ l4 d! a: O
  8. Public c As Double, Y0 E7 D* A# k; S; {* R
  9. Public d As Double3 w6 Y/ }, \4 b: B
  10. Public t As Double" V" p' ~  L/ w$ {$ x
  11. Public L As Double7 d# v$ _6 G+ ]# J
  12. Public tye As Integer
    8 A5 Y2 G; T( r1 [& @. \
  13. ! Y2 c) ?: s, y5 D! ~; V$ X6 n+ G
  14. ( y% z5 b. l7 z  T. p1 u2 e: L
  15. Sub main()
    1 j, w. G" g+ q( B: j# R
  16.      '程序所在文件路徑
    + b+ p8 E- X) u3 i7 H2 {7 m
  17.     Dim FilePathName As String
    ' J4 k% d+ o$ v
  18.     : U8 g9 Y4 j' w* z
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks"): A& z( x' w* v! L" }& R
  20.    
    8 d7 R( L* E( t8 G
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔) X: F- c1 L. I; V  j
  22. '    If swApp.ActiveDoc Is Nothing Then8 A7 l9 ?+ ~8 ^; F
  23. '        Set swPart = swApp.NewPart/ e# i5 T6 \/ G6 l1 T
  24. '        Set swDoc = swApp.ActiveDoc
    - J+ r9 N& @6 t! Z* X( T
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then9 s5 p  x- G1 D/ q0 h! R% t
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"
    , F2 \, o1 N9 r! @
  27. '       Exit Sub
    7 o. G6 y. |0 Z1 b) |: s4 @
  28. '    Else
    # Y! _. s1 x# @% n$ N
  29. '        Set swDoc = swApp.ActiveDoc% X$ R/ W+ x) h) G
  30. '    End If
    . o2 E& Z3 p  ^' E6 N

  31. ' c5 M! h$ o5 j  ?/ {# _
  32. Set swApp = Application.SldWorks
    4 y1 B: [9 Y0 I) y. r' u
  33. Set swPart = swApp.NewPart
    9 d. I+ g% h6 |+ C* [$ n
  34. Set Part = swApp.ActiveDoc
    - D' c2 V5 m5 o; c- `9 V2 L
  35. Dim myModelView As Object5 d: Q# R2 K  I# B# I* @/ z9 D
  36. Set myModelView = Part.ActiveView
    $ R- E; t% {: d8 \- g" k
  37.     # H* W5 K" L3 {" p) @9 t/ v
  38.    ' Set swPart = swApp.NewPart
      I+ `, V( t" S. W7 e1 M
  39.     'Set swDoc = swApp.ActiveDoc
    ) K/ X: @" j$ |
  40. - x3 F6 Y8 ?9 V4 c% v. D3 Z3 I( M
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>
    7 i. h$ [/ f9 a
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名
    ) [0 A! N7 \) s" V7 Q4 f; ^% K
  43.    
      h4 `" f" I" U) ^/ j& v2 s
  44.    
    8 |  |5 Q4 A* g- |/ ]
  45.     UserForm1.Show '顯示對話框
复制代码

% \* M. x7 ~7 u2 R# n
/ N* ^- O# I0 v+ \& R7 x

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层 来自： 中国台湾彰化县
ryouss 发表于 2016-5-24 17:40
  _& P( B$ n( P7 bFilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
1 ]$ s. S9 t5 g5 y1 e9 G: @7 U3 G6 i1 K
在如上之段落之前,修改如下就 2012,2015 ...
9 H% O$ t6 B0 w( s8 d+ K" r' i
梁叔，我不用修改代碼耶~
- W# B9 C+ z6 H) h$ t8 k8 s將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2016-5-24 20:51 编辑 # ]9 ]/ C% l8 ?6 M. x1 j+ Y# k
gt.adan 发表于 2016-5-24 17:50
0 t4 Q, k: \6 f: k) j4 I梁叔，我不用修改代碼耶~# _+ C' m/ ]4 L$ i( Y( g  Y* b
將引用更改為當前版本後就一切正常運行了。

  O( P; k7 p; L# s- U! ]1. 因 "引用" 有密碼保護,所以才想修改編程!
! q; U9 V+ G: m3 w. c7 X2. 用9#原檔,在2012須設 "引用" 如下:4 F! p% B0 ~* z5 ?* q

8 O. `3 J! H1 s- z
( P/ v) j- ^' d8 \' i
7 |$ n; k; @' s+ x! o+ _& L
1 X/ e, H0 M; w5 i, W7 y 1.png / i; j1 ~% G; n" J7 Y5 D) \

9 o4 O; ?  e1 l( |7 ^, L) Z
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层 来自： 中国台湾
ryouss 发表于 2016-5-24 18:44
% a$ U" W. e6 R# H5 `1. 因 "引用" 有密碼保護,所以才想修改編程!
6 [; A5 z6 R# A8 V  I1 B2. 用9#原檔,在2012須設 "引用" 如下:

5 _# @: d7 X7 E3 v# A1 C( t原來如此，算是一個通用的辦法就是了~
7 ^/ ^) D1 t  A8 R  q謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
( @- D3 b+ f4 s6 Q
ryouss 发表于 2016-5-24 18:44
! X. c" L" g" G9 ^+ s1. 因 "引用" 有密碼保護,所以才想修改編程!
/ o+ ~9 _! W) G% p# C' S6 d* K, W9 U- Y2. 用9#原檔,在2012須設 "引用" 如下:
6 H" \+ X, M: R2 `5 ~( @; v
$ h: `; k$ W5 y( f. c
红色的选不中，也保存不了- W$ x0 ^% A& R
05242.png . A- ~- P9 J( o, ]: q" v
运行时这样
5 y/ R$ T  t, J# k 05243.png
  j1 C0 M" D. m. ]
* E; f$ b/ Q. S+ q1 C
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层 来自： 中国浙江嘉兴
jinqin11 发表于 2016-5-25 08:387 I: A$ a& @# i1 l8 H% p. g: n
红色的选不中，也保存不了5 W* W% {2 p1 E
; s' Y! j! C* ?( ]; a' y- j
运行时这样

1 j6 u( b, Y! D( |% o* D1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).! r1 i3 g+ [# }
4 q0 s$ Z1 b; Z, P
2. 再叫出 9# 原檔,應該就有了.
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

jinqin11
 楼主| 发表于 2016-5-25 20:09:49 | 显示全部楼层 来自： 中国安徽蚌埠
qiminger 发表于 2016-5-25 19:250 ~& ?3 n6 A. P& }7 a  s1 o& A
9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~
3 ]6 B$ y: V+ {$ p% F) B
引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层 来自： 中国辽宁
jinqin11 发表于 2016-5-25 20:09
- N% T* [, c( ^2 A2 d# ~' i引用怎么修改？
* r6 R) Z6 @& f" I4 k, r/ i
工具/引用/选择当前SW版本的类型库7 W  ]: m# d7 u+ H
2016-05-25_204714.jpg 2016-05-25_204811.jpg
2 M/ u# g$ A; S( 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 )

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