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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！
2022-03-11
查看: 1622|回复: 25
收起左侧

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

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

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

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

x
求一个画基础钣金的宏4 Y; t, ], @5 |% }7 ?2 `
基础钣金就这四种3 z7 w# U& C/ K! R3 C6 V
运行宏要有个界面可以选择是哪个截面
7 u* X  p0 X# Q# V 0523.png " p4 q* C* Q. H; e& \6 X5 x, i
输入参数，点击生成零件自动画出基体法兰1
+ Q5 q8 L, t% x) m. h; |3 B$ Y设想的界面
+ R; e' n# z0 k' m 设想界面.jpg
4 ]  J/ N. ^% n, u5 A

评分

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

查看全部评分

回复

举报

gt.adan
发表于 2016-5-23 16:53:21 | 显示全部楼层

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，* {6 M7 w0 h# A* \
下次要用的時候直接修改參數就可以了。
# @! V) S0 F) P8 q/ ^9 z這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层
作了几个分的宏
: Z9 e* X1 \2 P& J
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
/ d- O* i8 [$ W0 o 基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑 - Y7 g' w, w8 H
lhl2008 发表于 2016-5-23 22:23
) y! y7 b2 _% o8 y* I/ x简单的做了个！
4 K5 M, Z: ^" l8 P' L
运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层
jinqin11 发表于 2016-5-24 07:559 H6 j3 M% E/ {" d* c& x2 i
运行没有什么反应。界面也没有
" k5 g: X9 j4 V7 c- F
我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层
lhl2008 发表于 2016-5-24 08:50, L2 b+ |* \3 `( d- G" B& N
我在SW2012和SW2016下运行都没问题！

* i: V" i3 G' S$ m/ P7 M我運行了也是什麼沒發生。(2011)
( s' A% u8 E& f% L可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

22553711
发表于 2016-5-24 09:29:35 | 显示全部楼层

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑 $ u5 H" ?3 n3 X0 h
gt.adan 发表于 2016-5-24 08:59
$ Y$ \/ F( y8 D& K: M我運行了也是什麼沒發生。(2011)7 d' ?, P7 `6 f* b1 u. I& M
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？

! M1 q* z% d! S按阿丹要求，重新上传！
. w( q, }6 c) ]$ O$ q- j9 a去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 41)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑 $ H6 n; d; s% t  J. q$ |
lhl2008 发表于 2016-5-24 09:39
0 Z% L* y6 ^7 a% u  J按阿丹要求，重新上传！
! X0 Y, |3 Q! L0 g' F# |6 u
謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？0 ^% B" |1 t  P& i0 e, D
沒有密碼，無法更改引用
7 ~$ P2 E2 u/ `' c9 n% o4 M
回复 支持 反对

举报

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

举报

jirong.peng
发表于 2016-5-24 12:00:00 | 显示全部楼层

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图  }! x) S/ T2 \# I9 R6 R4 ?1 Y- e  f
0524.JPG
回复 支持 反对

举报

幸福_真好
发表于 2016-5-24 12:02:21 | 显示全部楼层

回帖奖励 +1 点三维币

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

举报

ryouss
发表于 2016-5-24 16:42:04 | 显示全部楼层

回帖奖励 +1 点三维币

2012執行有誤,2015正常!! @: K$ d5 e* j# \
- n" W9 {1 S' z: W; ~2 F  I
1.png
6 \9 Q* S( K, O/ H* b
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层
本帖最后由 ryouss 于 2016-5-24 17:45 编辑
4 n6 @# X- p5 b% i4 o6 p5 K, K: D
; W. J( J( Q! E- Q FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
& ~$ L; e/ T, f0 E! Z5 `
# d1 E$ E# y2 J( d* f在如上之段落之前,修改如下就 2012,2015皆能執行了．( _% Y7 `- x3 s

. Y/ M4 e2 g2 e( k" c
' Q0 r1 J- l3 H# V2 l
  1. ''''''板金 2016/5/24
    + C- X* r% p( u% l& ~) h0 {
  2. Dim swApp As Object3 N3 G6 r7 P* h& y& G
  3. Dim Part As Object' E1 a) C1 x7 |, Z1 t' |/ }6 H& h) r+ R

  4. / @8 y! M% g# m3 C
  5. Public AppPath As String        '程序所在文件路徑2 ]( n6 E5 {$ J7 }! m, K
  6. Public a As Double
    : O0 S1 v9 o6 K  F# I; B
  7. Public b As Double
    5 f  [% |* J1 s' Y( o/ d7 q( f  z
  8. Public c As Double. N4 s& P& d2 W3 R5 N( {
  9. Public d As Double
    0 q1 ]8 ^7 i' n; ^: i8 d) i8 @
  10. Public t As Double; Q0 O/ D( V- Y; T
  11. Public L As Double
    2 U! t0 h4 J- n6 `" u
  12. Public tye As Integer% T2 M$ N8 p3 B# S  x

  13. $ H; y* F6 j& K& p; }2 M
  14. " n4 C1 g% D! T* Y6 E  l
  15. Sub main()1 ?4 s. k5 X' K/ R
  16.      '程序所在文件路徑
    % ^( A- h: ^1 v$ e6 Q5 ^5 ~! I: p
  17.     Dim FilePathName As String  _  R$ f, X, w& e: R2 B9 N: b
  18.     * L5 B& I. O* a9 W
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")& M5 l. p: D) l
  20.    
    3 G' n1 s' M# {% j8 _6 [0 x  v
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔
    ! `5 b0 `, j0 w6 ^
  22. '    If swApp.ActiveDoc Is Nothing Then' p5 t* d& _: D8 M* l
  23. '        Set swPart = swApp.NewPart4 M) `- I, q1 o
  24. '        Set swDoc = swApp.ActiveDoc- [9 p( w, `9 K* _3 R
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then
    3 {8 E" ?- m  W5 ^
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"! w* o% }! Z8 ^, @+ U0 ^4 D+ Q) r( k0 `
  27. '       Exit Sub9 K% x, f- U3 d+ s( o
  28. '    Else. H; t+ ~6 l9 [
  29. '        Set swDoc = swApp.ActiveDoc
    / _0 G; `# E% j, P8 ~' b5 V# Q
  30. '    End If6 ]3 R$ t3 y5 }! F% S4 `
  31. 2 U! ]5 w6 O0 s6 ]+ Q$ v% W, u  S
  32. Set swApp = Application.SldWorks
    ' M) o) D* H8 S
  33. Set swPart = swApp.NewPart
    " G6 l. Q' I5 A* z
  34. Set Part = swApp.ActiveDoc
    8 z+ i9 X( F  g0 F
  35. Dim myModelView As Object
    ; D3 h/ i: p' a* E& K8 A
  36. Set myModelView = Part.ActiveView
    - q6 H) l( L8 [5 S' d
  37.     " \" n0 `/ J0 l& g6 P1 H. [
  38.    ' Set swPart = swApp.NewPart  `3 Q' @, |- u' w
  39.     'Set swDoc = swApp.ActiveDoc
    : W9 k' H5 M# b! c
  40. 8 A# T  [6 P& n9 G4 H( d
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>
    0 h$ G: w  F1 X4 T, O8 B9 \& {
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名
      i" V  h0 L' r' W
  43.    
    , k5 L. ?+ u! n2 z2 F: n% g% t
  44.     0 A* L5 b! P& T- t% Q/ ~( y
  45.     UserForm1.Show '顯示對話框
复制代码

" I: y% `: H/ E/ u& W( T' J. V" A3 c0 w

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层
ryouss 发表于 2016-5-24 17:407 i( }/ T1 g1 L9 H6 ]
FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
5 [# i) `4 U( y7 Z4 p
: s+ b3 n- _! l' r" `6 i. z2 e# |. F在如上之段落之前,修改如下就 2012,2015 ...
: M5 U4 H2 W# E0 m, k+ R* y
梁叔，我不用修改代碼耶~
: \, t: `8 T; Z4 F將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层
本帖最后由 ryouss 于 2016-5-24 20:51 编辑
, b- ]9 S) g8 q' |, |$ J
gt.adan 发表于 2016-5-24 17:50
# Q7 P- L2 X% N, D3 L. w8 q梁叔，我不用修改代碼耶~
. d) \" T4 s1 m& x6 _將引用更改為當前版本後就一切正常運行了。

% `$ L* F2 K# L+ [" V1. 因 "引用" 有密碼保護,所以才想修改編程!6 U  t2 r/ o$ e* v! @; t0 K; G
2. 用9#原檔,在2012須設 "引用" 如下:) X2 P2 R; `$ S1 R# O* n

+ h6 u# g* G, A; v* ?) L# T$ z" e# H2 ~
( m* P- F' a6 r+ W/ @7 @

; E) a4 N) a1 G2 O4 f/ a 1.png 7 @5 x3 z- J& ?2 L  M, N

& R8 V) f& K5 d9 w
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层
ryouss 发表于 2016-5-24 18:44
5 @8 ^  b$ j+ A7 C. m/ F1. 因 "引用" 有密碼保護,所以才想修改編程!
) U9 U- }4 J* c6 X. `. b/ p+ z' h" t2. 用9#原檔,在2012須設 "引用" 如下:
% A& D5 v- c( M. j$ i
原來如此，算是一個通用的辦法就是了~8 n# h1 n+ K/ {! K- {3 F/ ]! Z. A
謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑 ) O& ?8 F4 T& e6 x
ryouss 发表于 2016-5-24 18:445 A4 N/ f4 W3 p6 ~2 F$ @0 x
1. 因 "引用" 有密碼保護,所以才想修改編程!
( `3 f! k0 o2 K2. 用9#原檔,在2012須設 "引用" 如下:
$ X- w4 l# l! G

" t" h% V7 P8 z+ f# m红色的选不中，也保存不了/ T9 R5 P& ?7 ?! a3 }
05242.png
1 j  }6 Q: E, P% ]: @运行时这样* z6 s, T" w  j* P; b) Y
05243.png
0 ~8 e( J* {4 f4 f
- P& S. x% {, \; G9 ?
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层
jinqin11 发表于 2016-5-25 08:38
( }0 c, e: p% e. p0 C红色的选不中，也保存不了6 ]! i/ d' o) m# F  @8 Y; P
5 ]" n+ I7 n- O+ T, ~/ M8 B
运行时这样
% _  r  T2 k9 c; y/ n
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
4 A0 o& P7 V+ ^/ R% c/ w! W) C, R
" }  t6 ]) r; c6 {2. 再叫出 9# 原檔,應該就有了.
回复 支持 反对

举报

qiminger
发表于 2016-5-25 19:25:35 | 显示全部楼层

回帖奖励 +1 点三维币

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

举报

jinqin11
 楼主| 发表于 2016-5-25 20:09:49 | 显示全部楼层
qiminger 发表于 2016-5-25 19:255 G  ]  h& e2 m% B8 S; |4 F
9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~

: A: R3 x; q2 {0 f- m& O' F引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层
jinqin11 发表于 2016-5-25 20:092 M& G* A0 X1 _3 d
引用怎么修改？

( a; U- [' S6 h* ]% z& p工具/引用/选择当前SW版本的类型库3 ^6 `& V8 `/ U! e' T; X
2016-05-25_204714.jpg 2016-05-25_204811.jpg 4 L3 W1 M. |# n9 d" O1 {
回复 支持 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备13008828号-1 )

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