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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

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

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

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

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

x
求一个画基础钣金的宏7 k. L0 ?& A4 |
基础钣金就这四种
0 q* w. J, R6 Z" b) e运行宏要有个界面可以选择是哪个截面
7 S/ P4 `+ e; Q4 l 0523.png * d4 ]6 u; f9 Y5 G6 q8 v
输入参数，点击生成零件自动画出基体法兰1
) }  ]( G# [9 f& p% J3 i2 j3 k设想的界面+ a$ B( m) }: s' O" }4 r
设想界面.jpg
* Z6 g% m5 R# e/ ^  J

评分

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

查看全部评分

回复

举报

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

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，
- T- c2 j' T& p2 v1 H; E下次要用的時候直接修改參數就可以了。
, t# v, N# u2 W2 W這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层 来自： 中国安徽蚌埠
作了几个分的宏
9 J8 q  W5 G: @6 K" Q, @; S! b/ U% b
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
  H$ b" o& R- g3 |# }- R7 Y 基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑 6 J1 Q( h' w# M& V
lhl2008 发表于 2016-5-23 22:23
$ f8 M; f+ j6 j+ {  s简单的做了个！
5 u' |) \% Y1 q, S* j8 U; C
运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层 来自： 中国陕西西安
jinqin11 发表于 2016-5-24 07:55
7 {6 `1 N: |! h; |" W- e运行没有什么反应。界面也没有

" z- \6 U% d; Y9 L* L+ \+ \我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层 来自： 中国台湾彰化县
lhl2008 发表于 2016-5-24 08:502 L3 m7 e* `: n) a: S" [
我在SW2012和SW2016下运行都没问题！
; R% y. w& t; y1 l* r  i
我運行了也是什麼沒發生。(2011)8 Z* v! f$ H3 P# l+ E4 Q* e
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层 来自： 中国陕西西安
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑 3 O# u- U. l# V& n' j2 C* q0 O3 L  u! o
gt.adan 发表于 2016-5-24 08:59: }! I( H2 Q: c! t
我運行了也是什麼沒發生。(2011)' c1 h2 c; \/ {  l
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？

$ G# i* F- b, E; r% ^9 R2 P按阿丹要求，重新上传！
' F$ ]2 F5 X1 w, Y去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层 来自： 中国台湾
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑
5 @3 f& H& W0 D7 \/ i
lhl2008 发表于 2016-5-24 09:398 Y9 }+ \: K8 }, u  e
按阿丹要求，重新上传！
4 f7 ^/ h( N! q" u
謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？
% _3 [# N* y" U3 M0 v6 G5 Y沒有密碼，無法更改引用
8 `' k  ^5 P7 B2 U4 H
回复 支持 反对

举报

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

举报

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

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图7 }3 C, i# T8 a1 z1 t9 E' f
0524.JPG
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

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

回帖奖励 +1 点三维币

2012執行有誤,2015正常!  i" u! K( X% q& l, a( m+ p# z# U

5 q% Y0 n. `" n# J$ k 1.png
' K3 u* ^* Q) \/ S4 k
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层 来自： 中国香港
本帖最后由 ryouss 于 2016-5-24 17:45 编辑 2 `7 j) X; {3 W, D7 D

. [% ^# I; P" ?6 T. L( R FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
, a# v4 g7 y/ w2 J
5 G; q" Z7 z! F2 r在如上之段落之前,修改如下就 2012,2015皆能執行了．
2 V# ]0 |7 H- s6 s4 {, ~5 h4 o: I( @: V: S
. i6 |1 r8 `' }" g5 p7 n
  1. ''''''板金 2016/5/24. F3 ~( j9 ~+ G% {$ j
  2. Dim swApp As Object" I; _) I$ Y1 K" `5 Z' F% ~* u* d
  3. Dim Part As Object8 w, M, {& T9 w2 p) B
  4. - T9 U1 m/ a1 D# c: Q+ O
  5. Public AppPath As String        '程序所在文件路徑
    $ [% |, s7 |8 E* ^3 u! R
  6. Public a As Double
    * A2 i+ p; }+ j
  7. Public b As Double
    7 J2 {: Z5 ]- @4 o  o2 B. q( w$ C
  8. Public c As Double
    " S0 z  W) Y# d; m) j; }' j
  9. Public d As Double0 r* h- l$ G4 p0 k4 w& n+ v  q) r
  10. Public t As Double
    . w% g% V+ n2 l9 Q; U( W3 O
  11. Public L As Double4 g" K5 G" _! c% f7 v2 Q
  12. Public tye As Integer% J, Z0 p3 a: z- N# V/ {; e( Z0 J
  13. $ x& @4 u) h# @
  14. # O) J) j- G6 {; T
  15. Sub main()! P. a8 |1 T7 b
  16.      '程序所在文件路徑
    * t; p3 m* C! W: L" S7 B* X1 g
  17.     Dim FilePathName As String
    9 K% R/ s( Z0 V9 q3 o; h) g
  18.     ; H- T' d( y3 m# n
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")
    # W& T8 L6 o% g) s3 A
  20.     & M7 z4 f$ j! O+ B
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔7 E4 {/ |: G0 X2 p
  22. '    If swApp.ActiveDoc Is Nothing Then$ x) a" r; I, _2 n9 S3 K5 y- N. [
  23. '        Set swPart = swApp.NewPart
    8 ^1 G! _6 [0 r9 V( Y
  24. '        Set swDoc = swApp.ActiveDoc" ^$ J9 h7 F7 c) d. a5 p3 w/ ]# Z
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then
    9 y5 h; q2 u9 c1 c8 u  Z8 T( E0 T
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"/ D, @$ b9 t5 O* z% m4 e
  27. '       Exit Sub
    9 {& [8 q' K( @6 D  ?+ \* f8 I& }
  28. '    Else/ ?, N  V! h, H% Q
  29. '        Set swDoc = swApp.ActiveDoc
    5 c4 ^, y, w: u$ S* \
  30. '    End If
    9 k! I" o1 D' x
  31. & G; k2 Q* G/ b; Z1 L9 r+ U( }
  32. Set swApp = Application.SldWorks* U; k0 Z' k5 F6 j: w0 }6 Q7 A
  33. Set swPart = swApp.NewPart
    / M5 k0 @- i" w
  34. Set Part = swApp.ActiveDoc
    0 U0 x+ P3 x, V' V( F: F; y6 Z8 W% k
  35. Dim myModelView As Object1 h3 C4 k& [8 ^& Z/ A
  36. Set myModelView = Part.ActiveView
    % Q( U1 u. E1 q/ d9 s
  37.    
    : z! z$ v' [% I! P, ]3 E. }
  38.    ' Set swPart = swApp.NewPart
    5 \8 Q0 I; F1 k
  39.     'Set swDoc = swApp.ActiveDoc
    1 w/ [& l' |7 s0 m  d' |+ i+ @
  40. 8 E! ?7 r2 j0 E8 M: m$ i" ~, y
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>3 ^& t) w( V' u' U' S- G: p& n! n7 a
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名' t# }. q- J- C( s
  43.    
    . g0 r4 K% n# \3 X
  44.     3 W. }5 z: o% F- g8 C; u: M
  45.     UserForm1.Show '顯示對話框
复制代码
4 G8 N, g+ d  k2 P& O. x. V3 ]
) n+ Q1 X6 u& I5 P2 N. Y( n% W! a6 p& n

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层 来自： 中国台湾彰化县
ryouss 发表于 2016-5-24 17:40
. R8 x+ O4 J, f4 X7 |& K# {FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
5 Y0 V+ a& k# K' u6 ~+ U6 z' _9 ~$ r6 [6 A. I8 H
在如上之段落之前,修改如下就 2012,2015 ...

5 n2 c5 q; O9 G5 @3 G( A9 M梁叔，我不用修改代碼耶~; l3 Z4 l) S* f4 Z
將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2016-5-24 20:51 编辑 3 l% o) q+ q$ n  \$ M9 v: |
gt.adan 发表于 2016-5-24 17:504 R% `  B  Q6 i. C
梁叔，我不用修改代碼耶~0 |0 Q* K' O" X+ h$ O+ s* `' q8 W: G
將引用更改為當前版本後就一切正常運行了。

2 c. ~, T: L2 k; X  t- t( e7 [1. 因 "引用" 有密碼保護,所以才想修改編程!5 b5 }; E  P3 a9 t, _  l! g6 F
2. 用9#原檔,在2012須設 "引用" 如下:+ b/ k  R( r+ p2 ?) }
) Y% p9 Y& k" ^5 |

, P" Z7 R; o9 T5 Y. |3 M( {
. ~/ W4 m2 S, c$ g
3 Q! M7 x, I' D/ n4 W3 y 1.png ( n5 q3 g5 ]7 }$ a/ J, M0 u! f
2 S9 c- A% c. `" J6 E: |2 d, f
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层 来自： 中国台湾
ryouss 发表于 2016-5-24 18:44
/ U4 y. f: Z/ d1. 因 "引用" 有密碼保護,所以才想修改編程!1 P2 [6 ?* j6 G9 Z1 Z
2. 用9#原檔,在2012須設 "引用" 如下:
4 E$ L+ g2 [" d8 w6 w+ R
原來如此，算是一個通用的辦法就是了~
1 \/ U; @3 o  D  ]$ d1 K, |6 G謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
( f5 d6 X0 q& q' V0 O- d: H3 y
ryouss 发表于 2016-5-24 18:44# \1 y3 M. [# D2 |& m; y! g& |
1. 因 "引用" 有密碼保護,所以才想修改編程!
* w) |$ g1 G/ b5 M4 I2. 用9#原檔,在2012須設 "引用" 如下:

$ n+ w9 z4 C/ W1 X* C  ^. W  G/ Z/ v7 k: W3 z) r
红色的选不中，也保存不了
) I# k/ t3 h7 C1 F. X 05242.png ' E! i6 R' c! H  W
运行时这样
$ \$ r. B* G! _+ q7 F 05243.png 2 r5 D0 R6 M9 d% o9 l7 E4 A

3 C# ]  J& V) \' f8 ]: h
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层 来自： 中国浙江嘉兴
jinqin11 发表于 2016-5-25 08:386 ^1 g$ J+ d2 c
红色的选不中，也保存不了
; d  \/ z" p7 X( y# _
( O" Q4 z& G, P运行时这样
, B+ K) R; A0 F. c1 U
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
: {# d4 Z7 m7 i3 d2 C5 |5 ?, G$ X
9 r2 X, }! J: E+ b2. 再叫出 9# 原檔,應該就有了.
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

jinqin11
 楼主| 发表于 2016-5-25 20:09:49 | 显示全部楼层 来自： 中国安徽蚌埠
qiminger 发表于 2016-5-25 19:25' M3 @! k9 W. ?; `/ ?
9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~

8 y2 ^7 U  m% v) o  n' f引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层 来自： 中国辽宁
jinqin11 发表于 2016-5-25 20:099 M+ p6 P4 U) W3 K4 @# ~
引用怎么修改？

# ^/ k+ ?7 J, O4 ?  i2 i6 v; v$ \5 c) ]工具/引用/选择当前SW版本的类型库
3 K7 X/ E0 k. p 2016-05-25_204714.jpg 2016-05-25_204811.jpg : i# w6 G7 J: F* A, W
回复 支持 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 )

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