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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

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

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

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

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

x
求一个画基础钣金的宏' A- l, p% z1 S: P% v( [
基础钣金就这四种( a1 j8 D8 M, w$ b: I  n
运行宏要有个界面可以选择是哪个截面" Y' W' |0 u; y' \7 h
0523.png " b0 A' W% c% a9 b$ E  ?+ x
输入参数，点击生成零件自动画出基体法兰1
: H6 T6 f% J$ i1 p$ u& s设想的界面- d( K+ m$ U' `# w/ g+ t5 D( B! T
设想界面.jpg 4 v6 x2 B* l2 Y8 q8 m1 F9 c6 d! Y

评分

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

查看全部评分

回复

举报

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

回帖奖励 +1 点三维币

在同一零件裡將四種基礎鈑金做成四個配置，另存成基礎鈑金範本，$ v& {1 H" j. h
下次要用的時候直接修改參數就可以了。
4 b% O! }6 K* {1 T( [. f+ o這樣會不會簡單一點？

评分

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

查看全部评分

回复 支持 4 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-23 17:30:17 | 显示全部楼层 来自： 中国安徽蚌埠
作了几个分的宏6 F* _2 t$ _% v) f" L  a2 j% Z/ E
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
$ \# w5 e& F0 ]  ?9 z9 f' w0 v6 e 基础钣金.zip (44.45 KB, 下载次数: 28)
回复 支持 2 反对 0

举报

jinqin11
 楼主| 发表于 2016-5-24 07:55:15 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-24 08:40 编辑 : h+ f6 m% J* O, P$ ~: ?8 v% D
lhl2008 发表于 2016-5-23 22:23, l. Q2 a0 o7 ^( O( n. _% \  d/ }6 A
简单的做了个！
' z% o: k3 u2 o0 N
运行没有什么反应。界面也没有
回复 支持 反对

举报

lhl2008
发表于 2016-5-24 08:50:26 | 显示全部楼层 来自： 中国陕西西安
jinqin11 发表于 2016-5-24 07:55
4 E0 G3 x5 J; G" A: p$ b% X运行没有什么反应。界面也没有

+ G0 F! Y9 f1 g- k. j我在SW2012和SW2016下运行都没问题！
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 08:59:31 | 显示全部楼层 来自： 中国台湾彰化县
lhl2008 发表于 2016-5-24 08:50
# v# t$ K, S4 C我在SW2012和SW2016下运行都没问题！
+ B/ I+ o7 {- b. h5 l" u: g) T' t
我運行了也是什麼沒發生。(2011)
7 h9 U6 Y9 O( Q3 W' Y1 p, g# i* l可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

lhl2008
发表于 2016-5-24 09:39:48 | 显示全部楼层 来自： 中国陕西西安
本帖最后由 lhl2008 于 2016-5-24 11:58 编辑 " \$ e9 y$ R% z
gt.adan 发表于 2016-5-24 08:59# t; W) W0 r* r/ J6 {
我運行了也是什麼沒發生。(2011)+ {$ ]0 N7 @. B2 I6 r
可以的話，建議前輩開放代碼，看看是否版次問題或是引用丟失？

+ X' K1 f# S, T0 U  |* `+ M# {按阿丹要求，重新上传！
7 c! c- Y4 ?. g) m. O- Y去除密码附件 111-基础钣金.zip (39.2 KB, 下载次数: 42)
回复 支持 反对

举报

gt.adan
发表于 2016-5-24 09:59:53 | 显示全部楼层 来自： 中国台湾
本帖最后由 gt.adan 于 2016-5-24 10:13 编辑 , q  c% @% z9 c4 |8 r
lhl2008 发表于 2016-5-24 09:39
$ c- ]# _% A; l按阿丹要求，重新上传！
7 |' o( Y8 L& D4 g# k3 p
謝謝前輩的回覆~2014沒有問題，2011引用丟失~前輩是用2012做的？
4 u) I; W" ]* u沒有密碼，無法更改引用# s; t4 I+ y- j3 [
回复 支持 反对

举报

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

举报

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

回帖奖励 +1 点三维币

运行有错，对宏白纸！见下图
# H4 \- U& z2 k, |' E  p; `2 m9 E) `# x 0524.JPG
回复 支持 反对

举报

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

回帖奖励 +1 点三维币

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

举报

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

回帖奖励 +1 点三维币

2012執行有誤,2015正常!
  U! g9 v! \( T- f
0 z6 Q  i1 b* M+ o+ j 1.png ) B* a' ], K8 ?; H' L
回复 支持 反对

举报

ryouss
发表于 2016-5-24 17:40:07 | 显示全部楼层 来自： 中国香港
本帖最后由 ryouss 于 2016-5-24 17:45 编辑 0 W3 o+ @8 @+ ?+ |+ r! P8 y

; Q. r4 d8 F# T$ R6 P, u6 h( S" }7 t  _ FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
2 p; [4 N7 M+ T( O6 u1 h- O3 j% @. l: j8 C8 Z. c
在如上之段落之前,修改如下就 2012,2015皆能執行了．: s# u, n$ [: ~1 T

% d4 @8 t8 q" p
; G, L3 m6 j8 J* D8 c
  1. ''''''板金 2016/5/24
    3 n/ E! X2 _4 E9 @
  2. Dim swApp As Object
    $ P, ~" h* P' L# |% V" u
  3. Dim Part As Object: @1 u9 o9 u& b  b3 J) t' D: B

  4. . P! P- V0 q( t0 G4 g/ R8 M
  5. Public AppPath As String        '程序所在文件路徑
    7 w( |3 P8 l0 L7 r1 I+ I
  6. Public a As Double8 i3 W1 J: Z$ c, ]; b' @
  7. Public b As Double+ r2 U1 Y. {9 U) A2 A6 w
  8. Public c As Double
    ( C! f1 y+ Q' i* a
  9. Public d As Double( _* c% C1 b) v. {8 i/ h# }
  10. Public t As Double
    9 L- m; P* ?, a% [0 u
  11. Public L As Double
    , q2 K/ o, @3 {# p5 L# X
  12. Public tye As Integer
    5 N# N3 C$ u6 ]  p/ J' b% s3 b6 ^. i
  13. / b& Z  Q4 A; ?5 U$ b

  14. 1 A% U: |3 ^2 k5 t
  15. Sub main()- E! M- R( O3 q/ I  v9 i0 Q% x
  16.      '程序所在文件路徑
    ; e- U1 p9 a5 U8 x7 H8 U
  17.     Dim FilePathName As String
    # y# l: t" X9 Q0 M; c) w! F
  18.     . J; f4 Y# z) s; I) q: w  p# D  Q' Q
  19.      Set swApp = Application.SldWorks 'CreateObject("Application.SldWorks")
    . A2 _7 b7 \  q+ u: H
  20.     6 x1 t* @0 S5 n0 f# |: @7 R
  21.     '檢查是否有效的文檔激活(零件或裝配)，沒有的話，新建一個文檔. g% E; F& }8 M7 {: ^! }+ ~- s: l6 `
  22. '    If swApp.ActiveDoc Is Nothing Then2 b4 k6 m* C7 l+ n5 J6 h7 O0 D6 w
  23. '        Set swPart = swApp.NewPart1 C" |! V9 i4 a! L
  24. '        Set swDoc = swApp.ActiveDoc
    : O$ X* f9 u8 v$ }% I  v& q( D  X
  25. '    ElseIf swApp.ActiveDoc.GetType <> swDocPART Then
    # ~( Q. F4 `8 V) Y1 u+ K) s2 l
  26. '       swApp.SendMsgToUser "當前活動文檔必須是零件"  p  D/ Y* P9 W0 K* d
  27. '       Exit Sub4 D, K, {2 d/ x/ _1 S: m( q8 k- v: u8 ~
  28. '    Else
    + y+ {$ X4 E9 Z  X
  29. '        Set swDoc = swApp.ActiveDoc/ \$ `- E- ?' f& r: u/ W
  30. '    End If
    8 W7 f$ K7 G* z! m5 q2 {4 i
  31. * o$ ^! k+ R9 ~
  32. Set swApp = Application.SldWorks
    ) ]( o. a9 M! k; S2 h. i9 ?/ u1 [
  33. Set swPart = swApp.NewPart
    . k0 {& n: s/ M
  34. Set Part = swApp.ActiveDoc
    ! Q; I& u" P) q/ ]
  35. Dim myModelView As Object2 J: m. J5 N8 c" G) `- B+ l: R
  36. Set myModelView = Part.ActiveView& @$ F7 }) S$ Y( R# t
  37.    
    $ Q1 o% Y, Q) b* |
  38.    ' Set swPart = swApp.NewPart
    ' e9 i* }6 W; |! D3 o! f' F% b
  39.     'Set swDoc = swApp.ActiveDoc6 ~# |& y  X: s% T

  40. % _5 `$ c0 U  T
  41.   <font color="#ff0000">  FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名</font>
    1 o1 ^% ~4 [+ y: i- ^  M3 A
  42.     AppPath = Left(FilePathName, InStrRev(FilePathName, "")) '分解路徑名4 G# I+ o3 U. Z
  43.    
    " e. ~9 H( m$ P0 D$ u* O, A2 F6 z
  44.     % y% s5 N: h! Y+ X7 f. m
  45.     UserForm1.Show '顯示對話框
复制代码
$ m% O: c6 y7 ~! t4 r8 r' T

- u$ G6 b! x! ~$ n/ g& x

评分

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

查看全部评分

回复 支持 1 反对 0

举报

gt.adan
发表于 2016-5-24 17:50:28 | 显示全部楼层 来自： 中国台湾彰化县
ryouss 发表于 2016-5-24 17:402 O# F4 [% Q0 W
FilePathName = swApp.GetCurrentMacroPathName '全路徑文件名
" P; N0 D: ^1 l1 ~9 g0 j" _  Q3 |* Z+ [! R: l% x$ x
在如上之段落之前,修改如下就 2012,2015 ...
9 {7 c& b0 T- W. `9 p
梁叔，我不用修改代碼耶~
& x) N0 D1 ~* G* K) G將引用更改為當前版本後就一切正常運行了。
回复 支持 反对

举报

ryouss
发表于 2016-5-24 18:44:42 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2016-5-24 20:51 编辑
# X* p0 k! y# n, d9 V* M
gt.adan 发表于 2016-5-24 17:50$ Z. g- W7 h/ U
梁叔，我不用修改代碼耶~
$ a) j( t/ p9 e+ B) z將引用更改為當前版本後就一切正常運行了。
, o" |# q, o) J
1. 因 "引用" 有密碼保護,所以才想修改編程!: N1 I" M: H* v% l
2. 用9#原檔,在2012須設 "引用" 如下:5 a4 k, t& S; K6 J" }

' m7 p! b$ R: F+ s9 k
6 x' d' m  j( |$ g8 G: r+ S1 W7 r# I  z; }! _% n& D

! S4 u  S' z7 n' @. w- Z# z' o 1.png ( `: j; x: p" j( \) C9 U- c
* \! t/ q4 A2 \6 ~' b0 d
回复 支持 反对

举报

gt.adan
发表于 2016-5-25 08:15:01 | 显示全部楼层 来自： 中国台湾
ryouss 发表于 2016-5-24 18:44
+ \: E$ Y, h, Y1. 因 "引用" 有密碼保護,所以才想修改編程!
; K1 }& K( e& ?2. 用9#原檔,在2012須設 "引用" 如下:
$ s+ r0 e& j0 G% @, @
原來如此，算是一個通用的辦法就是了~1 _, z" i* {$ M1 J
謝謝梁叔補充~
回复 支持 反对

举报

jinqin11
 楼主| 发表于 2016-5-25 08:38:18 | 显示全部楼层 来自： 中国安徽蚌埠
本帖最后由 jinqin11 于 2016-5-25 08:50 编辑
# B/ p% x$ W7 t8 f4 i) N
ryouss 发表于 2016-5-24 18:44" n" E) }: w/ `  h% f; t' x% [4 b$ B
1. 因 "引用" 有密碼保護,所以才想修改編程!
  ]. R1 B: X+ `9 l2 B. J' s2. 用9#原檔,在2012須設 "引用" 如下:
8 B4 H4 X4 \. p* L
) b6 _; l8 [0 y3 s7 h$ E6 X8 a* y
红色的选不中，也保存不了  Q. T7 L  [* A) O% {& q; W  j
05242.png + S& \' S4 g) `) i6 ~3 v! g( Z
运行时这样
; E+ c3 f4 f  L' R, G 05243.png
# c# J! V& q+ J8 |2 W/ s* e7 z
* k: ?7 d+ n! |; V& Z
回复 支持 反对

举报

ryouss
发表于 2016-5-25 09:58:44 | 显示全部楼层 来自： 中国浙江嘉兴
jinqin11 发表于 2016-5-25 08:38
; {. a& X6 ^3 |6 B1 ^红色的选不中，也保存不了
$ N  @2 `: _- I9 F$ W, |6 V. o( N8 Q, N$ c8 @# n& o2 i
运行时这样
) M% X; s9 S$ v5 T  c
1. 在2012環境下隨意錄製個宏並叫出(在編輯狀況).
. Y- r6 j  c# p2 F9 p4 y3 S9 f2 P. u. R3 b
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
' q3 @2 L3 K& u: b1 L* i0 w* Z% L9楼源文件，SW2013修改一下引用，运行正常，谢谢分享~~

' h+ e9 ]" W9 U& m* @: j# t- }) ]引用怎么修改？
回复 支持 反对

举报

qiminger
发表于 2016-5-25 20:50:32 | 显示全部楼层 来自： 中国辽宁
jinqin11 发表于 2016-5-25 20:09
# k6 l3 M( P$ z3 Y! \引用怎么修改？

8 v3 L' Z* q* l$ ]/ K工具/引用/选择当前SW版本的类型库7 H4 P6 w5 @$ C: g
2016-05-25_204714.jpg 2016-05-25_204811.jpg # t) ]0 A; }! w2 p$ H  J- O. u
回复 支持 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 )

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