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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！
2022-03-11
系统
[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案
2021-07-01
查看: 1943|回复: 25
收起左侧

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

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

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

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

x
求一个画基础钣金的宏
5 L0 K4 U# Q! g9 R# w2 o* \! c* T基础钣金就这四种
% K3 J3 |% F% Z运行宏要有个界面可以选择是哪个截面
" M5 }- r' r2 i7 q- ~% \ 0523.png
3 a+ q% _5 E# e4 @' R& D输入参数，点击生成零件自动画出基体法兰16 O; x( @: W6 g. O' e  s3 l' k
设想的界面, @3 d0 F7 E! k6 l: c% K+ j" q7 a
设想界面.jpg * m7 G9 I  _3 F7 w2 q- D; E1 j0 U8 [

评分

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

查看全部评分

回复

举报

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

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，
* Q3 Z6 _5 l3 c$ D' s下次要用的時候直接修改參數就可以了。
4 T! c! g5 w6 T6 I3 l2 o' h$ v這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层
作了几个分的宏! R3 G5 R% M, n
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 ; O9 N: h7 F1 T1 g
基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑
# B% y' {" Y3 r# R7 G0 A& H
lhl2008 发表于 2016-5-23 22:23" |( _" ^- {6 y: f; f
简单的做了个！
! |/ d0 p) V% |* i- G2 R
运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层
jinqin11 发表于 2016-5-24 07:557 z3 i7 x( c% Z6 r8 t$ M) \5 n
运行没有什么反应。界面也没有
! t0 J5 h; F* k! g$ Q: R" g1 U
我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层
lhl2008 发表于 2016-5-24 08:50. v0 R- g* A% Y. C  g* L# ^+ e& F
我在SW2012和SW2016下运行都没问题！
4 i  }4 I; r9 r' D( ]
我運行了也是什麼沒發生。(2011)8 I' v/ c& a" Y0 }
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑 ! Z9 B. q/ U  I) s; w+ Y; x8 h
gt.adan 发表于 2016-5-24 08:59
$ ], O! L5 h, u4 U5 Y我運行了也是什麼沒發生。(2011)
# v* e0 m+ _, q, e1 b6 `- M可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
- L6 D  ]' k; k# E& u+ {! r
按阿丹要求，重新上传！& x, Z, l) o+ b8 R* N$ y1 A
去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑 2 A5 l  e& _: `& I/ j
lhl2008 发表于 2016-5-24 09:39# P- t# f7 }- f% R5 }
按阿丹要求，重新上传！
$ O* t; U( q8 t1 Q
謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？
; x, A& J2 o( U4 W6 a4 D7 o  Q1 w7 R沒有密碼，無法更改引用
7 N: N( w4 S+ l% v% W
回复 支持 反对

举报

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

举报

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

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图6 d& l  A. W5 |
0524.JPG
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

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

回帖奖励 +1 点三维币

2012執行有誤,2015正常!' f: _( B8 Y( x, Z+ b0 S; t* X
6 A2 S' e7 u; L3 |. y: q  @* u
1.png
; |/ U. B! S, |' T# |' G
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层
本帖最后由 ryouss 于 2016-5-24 17:45 编辑
3 f& d! w4 x" ^9 t: ^8 b8 R. _$ a* G: X. q' c- i8 s
FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
& h2 M( {( R+ [& E; r$ I! N  l6 W- ~! f; _! r: o$ G( x
在如上之段落之前,修改如下就 2012,2015皆能執行了．
: a9 \  o) h: y- f1 p; ?7 D
" c" b! ^  ~3 }1 E/ E0 L
  V9 |* B9 \1 \" }+ J
  1. ''''''板金 2016/5/24
    , P6 Q7 c7 @7 L0 N  N: W) j2 u
  2. Dim swApp As Object2 H# l$ s" Z* [
  3. Dim Part As Object
    3 [5 K5 ^, w7 k7 r! ~: W& @& v) d

  4. ) l9 {# q: k1 O/ O3 H0 Q
  5. Public AppPath As String        '程序所在文件路徑
    1 K7 u* ]2 i4 ]1 `. T5 T( W" @
  6. Public a As Double
      _- j+ b. X% j% S4 X
  7. Public b As Double
    - w3 O# {, Z) h
  8. Public c As Double4 x- @6 T* a' _- u
  9. Public d As Double) A% N: ^" c3 y
  10. Public t As Double
    6 ]% M! \. F- O1 C
  11. Public L As Double
      p; _" ]( T/ n& e1 S3 C- n
  12. Public tye As Integer
    5 _5 T  q3 ?# U5 h/ B+ i

  13. 0 N* d" s' I; m: ^

  14. ; ?% Y2 C" c5 n$ w! ^
  15. Sub main()
    $ C% W: t$ |  x" h+ ?6 W
  16.      '程序所在文件路徑& ?, _9 }# `) y" c6 w/ P4 Q
  17.     Dim FilePathName As String
    + j/ [& r4 W, J+ p1 d
  18.     7 e% I" R0 _" ]3 s3 j' g
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")) `( B+ x6 ]! O; C
  20.     % K% D! H. n# L; o
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔! N2 z& i; n. k& s; i
  22. '    If swApp.ActiveDoc Is Nothing Then: ]; t# Q8 o, \6 K
  23. '        Set swPart = swApp.NewPart/ g5 D9 M5 S" g" R) V' B
  24. '        Set swDoc = swApp.ActiveDoc* p" x8 m" [4 X7 o4 \
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then* z+ m$ E5 N9 I9 L) `+ `% R" O
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"" U  o+ h, S. D) p
  27. '       Exit Sub
    - S! K9 O% g) d  O$ P/ ~. G# e
  28. '    Else
    4 t7 z+ J+ n8 I2 C
  29. '        Set swDoc = swApp.ActiveDoc
    , O8 \2 M& d7 Q; J1 y/ ^  Q4 K
  30. '    End If
    # [8 ~* b4 A& W( o3 s& M  l1 D/ r

  31. ( y( l  b  D! `9 U! P. K
  32. Set swApp = Application.SldWorks
    ' M' m& A; Z) p* a/ R4 J* \5 l" }  k
  33. Set swPart = swApp.NewPart
    ; H3 _; d0 _5 U6 O# W) B& E, o
  34. Set Part = swApp.ActiveDoc: X* M' B: D' i( P; k" T
  35. Dim myModelView As Object
    7 Q  Z" V; o5 k! j1 Q
  36. Set myModelView = Part.ActiveView2 H9 C. m. X# |
  37.     2 e" N5 l9 y( @2 S
  38.    ' Set swPart = swApp.NewPart
    6 _0 J% Y! j0 B7 @
  39.     'Set swDoc = swApp.ActiveDoc4 T" d( `9 m0 j3 {( l

  40. + b% d  E! m& m; G% }$ M
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>
    4 Y, c/ _5 x! G; Y: l
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名6 a; a( ~( y( x* w4 `2 y& C
  43.     # |6 d$ E) ~! ]4 _5 g7 v$ S
  44.    
    . ]- `6 m4 e! ~# Z+ {3 m
  45.     UserForm1.Show '顯示對話框
复制代码

  L% \0 H, G3 \5 ]5 K  Y' M6 ~+ l; [* i9 M$ }# ^$ |

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层
ryouss 发表于 2016-5-24 17:40. s4 A. }2 s. u/ X% B/ G
FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
5 g" p) g8 f1 O0 M) H0 m3 p5 a/ L( D  s; Z
在如上之段落之前,修改如下就 2012,2015 ...

# \" N7 @9 C, [7 C2 k% U# k& W梁叔，我不用修改代碼耶~
7 l% x* y! p* G& X+ j將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层
本帖最后由 ryouss 于 2016-5-24 20:51 编辑 3 b; `) G( I2 H( J1 N
gt.adan 发表于 2016-5-24 17:50
( |) \. f* A5 n7 U' M5 B7 A梁叔，我不用修改代碼耶~
  l& t* N4 p) Y( q3 w% J將引用更改為當前版本後就一切正常運行了。

, R2 U- N- E, A7 Q3 W1. 因 "引用" 有密碼保護,所以才想修改編程!
8 m, d: h( F# k3 x  |! E5 L8 C2. 用9#原檔,在2012須設 "引用" 如下:
/ Q) t/ j% ^1 Y- K& C$ Q1 }8 p
2 P; Y2 a$ }& c' d# W+ j# o  E7 b. b$ ]2 P

- z2 i, w# h0 T' |4 n8 E. K3 P6 g& ~7 p. h7 _6 [
1.png ' \) C1 M" r; y2 `  ]" Y

' _& a  [2 t0 R: y
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层
ryouss 发表于 2016-5-24 18:44
3 D+ b2 x6 f+ P3 M/ W1. 因 "引用" 有密碼保護,所以才想修改編程!
8 a2 [1 v% r' v4 w3 V2. 用9#原檔,在2012須設 "引用" 如下:
5 v# q0 F7 u  W8 q! F1 N7 R# T
原來如此，算是一個通用的辦法就是了~
5 g+ {6 F9 c4 p8 T謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
, u2 [) n2 l9 g
ryouss 发表于 2016-5-24 18:44; X3 a" R" l4 x. Y" k
1. 因 "引用" 有密碼保護,所以才想修改編程!; [& W' J5 n+ v! b: d
2. 用9#原檔,在2012須設 "引用" 如下:

. r' E2 J; }1 }( m, p- w: N
# y0 P: S4 j; S. U* |1 |3 |/ ]1 w红色的选不中，也保存不了6 C2 ^- W) C  ^3 ?$ n
05242.png ( _3 r7 o2 u' \" g7 \% C, @
运行时这样2 g5 v% _' k! X4 [; G2 W( O
05243.png " d0 H" X0 Y$ g+ d9 F" K

  L, Q2 Q3 c8 F, A
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层
jinqin11 发表于 2016-5-25 08:38/ h7 e0 a" j0 i0 z& A2 V$ V
红色的选不中，也保存不了
2 D) c- w; L: }5 o. q2 U% Q5 p( m* m3 L
运行时这样
; o, Z2 l) A$ p# V7 k
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
7 W5 \  O* K( g( K- _; W% r- p' }2 O4 b) ]8 i
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
4 S4 F( c; Z; q0 }9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~

  D6 N% n2 ~: H1 h: r7 h引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层
jinqin11 发表于 2016-5-25 20:09: n3 P4 u4 Q5 Q! |: S
引用怎么修改？
# K  W8 I3 e  Y% N
工具/引用/选择当前SW版本的类型库
' A! a/ ~* a) m9 D5 x0 `& ^, x$ l, V 2016-05-25_204714.jpg 2016-05-25_204811.jpg
. p  x) |; F4 i" J& n
回复 支持 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 )

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