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

ProeSky

& c1 t9 A4 {$ J& m1 c4 B) \# V9 p) O+ m5 USolidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积

想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
/ @, O6 V. {* A% I, F8 [
) p. @  ]1 g5 o  d1 j程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

我用的是solidwork 2011  部分代码是录制宏后 抠出来的

1. Dim swApp As Object
   9 P  y8 r2 V) K8 m
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. 
   : B  S2 H+ z6 I  K9 \* e
6. Sub main()
   
7. 
   ; H8 X. [4 B% f, V% N4 v) I  r- W5 N7 a
8. Set swApp = Application.SldWorks
   
9. 
     N5 C% j2 D1 v6 V9 j. I8 q& M& p
10. Set Part = swApp.ActiveDoc
    
11. 
    
12. 
    , |2 s4 P1 l: ~7 y. ?
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    
15. 
    . Y( ~4 L1 m# ]( B; o
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    % q4 _. t9 }9 K1 R+ x2 J
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    . ^2 W% b" \2 \' ]: Y' R. x* \
19. 
    
20. 
    4 K4 i4 H2 w$ S( }* u& K
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    
23. Part.EditDelete                              '删除壳
    " C. t5 h! Q& d! S1 S3 _
24. 
    1 F" X9 {  e5 s& M  N; d: x8 Y
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
      s0 b* h, V& t) _
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    , j" m# \0 m2 t' d+ d
28. 
    ( M5 ^2 p' r, n5 T4 P6 }
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    
31. 
    9 K' A; ^7 Z' }  A+ \
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    & y% m; r* J3 H( s1 M1 \) Q
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    
35. 
    
36. 
    
37. End Sub
    

复制代码

ProeSky

其他的问题都已解决 调试通过

. F# |& i! z3 F: t$ p现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息


# |/ b, r( J5 j0 C% K# Y

7 [( N5 I- w7 u3 U. W

wfwling12

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

ProeSky

6 D+ l# \( y. ?( w; |7 Q5 e1 Z

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

多谢提醒

& P; X! z# d- v: i3 K我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

% E1 n& y5 B4 d  H4 `% S0 C% e你的模型树里没有没有  Extrude3   可以直接得出容积吗   

4 w8 @6 p) n6 L6 J$ @ 这次搞了一天  主要想接触 二次开发