DIY solidwork 计算一次抽壳腔体容积宏，哪位出一份力

ProeSky

  ?2 U! D/ ]! h) V/ B; M1 m1 e
Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
# i$ V* s, }% M( t. S( Z
0 d6 W& |2 l' o/ X$ d( U3 {( W8 |先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积

! H% I7 [/ j& |9 G想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
( C# U8 k! R; l2 b% ~% Q8 b
程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见
1 p* o; k7 d: H( H; K
我用的是solidwork 2011  部分代码是录制宏后 抠出来的

2 j3 y: u" [/ @" v) [0 c

1. Dim swApp As Object
   # t7 j  C+ d6 X/ L: Q; i; J" r
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   6 }; U! G* M, S, ?- {
5. 
   
6. Sub main()
   . Y! J& G1 W. O5 E
7. 
   2 u% ^8 P% Y6 }! f  h' v
8. Set swApp = Application.SldWorks
   
9. 
   ! X2 t' `4 y& v- R+ s0 \
10. Set Part = swApp.ActiveDoc
    7 x* F4 F, ~, @4 I. @' P
11. 
    2 `- J8 F5 q- d( U* l0 t* y
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    - o& K3 M/ H! ?' N1 I4 Z
14. 
    : O; @( _7 U0 v! h; v
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
19. 
    4 M: k8 d5 {8 ]& c
20. 
    
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    + h* v2 I5 T8 C9 W: h
22. 
    2 a" t$ A* `7 b3 ^0 H" q1 d% g! O
23. Part.EditDelete                              '删除壳
    9 |$ j# L: G7 y. _
24. 
    # a: w, \  Q9 s/ I/ t; T; |
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    ' d4 ^4 c5 ^6 b
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    * Z" x6 A# F, {' @6 n
31. 
    ' z' k1 M! m" ~+ g% W9 _$ F
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    / m# {- L( O2 y. i5 K8 ?
35. 
    
36. 
    4 o2 Z4 Z7 _1 D
37. End Sub
    7 f. r* o; s5 @2 L' ?

复制代码

ProeSky

其他的问题都已解决 调试通过
: r3 u) R! w$ g+ E; ~
6 ^, d9 L. i& u; t现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息
5 u6 {$ }5 V# U, ~


( \1 M3 L9 ?# Y( z$ |

wfwling12

不用宏也可以完成。楼主搞复杂了。论坛有相关主题

" T. A$ t6 @3 r9 F6 z3 V: }

ProeSky

0 i2 }  |3 T) o4 e3 L

wfwling12 发表于 2015-3-31 11:01 static/image/common/back.gif
不用宏也可以完成。楼主搞复杂了。论坛有相关主题

, t7 h5 V6 i/ R! c0 \7 f  b多谢提醒

我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
: {* e/ M( O2 B1 s$ W9 v
, x& b9 e) A% s- |  i8 D9 G6 W你的模型树里没有没有  Extrude3   可以直接得出容积吗   

8 o; I! Z2 L1 M5 g 这次搞了一天  主要想接触 二次开发