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

ProeSky

9 p4 v, \0 x( u" h/ q& s
Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
' m% S  s" P% _% U( G. G# S
先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
: G' a& E4 a/ B* _6 M4 F0 Z! U
4 Y/ b5 N% O. u( Q; m4 i2 f想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
9 k6 a! G  y: Q# [9 g
程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

我用的是solidwork 2011  部分代码是录制宏后 抠出来的
0 Y% g& C6 f" p3 y

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   " q2 N4 _2 r+ r, k  ]
5. 
   1 m' ]7 e2 u9 R8 d' a& b
6. Sub main()
   ( G' [4 y0 L6 k7 I! w/ |
7. 
   , m9 Q0 l$ [7 J! X
8. Set swApp = Application.SldWorks
   4 ~( x3 d2 W& X6 {, x
9. 
   6 `5 f) [" @5 R: I/ k: Q
10. Set Part = swApp.ActiveDoc
    
11. 
    9 S- z$ `9 e% v$ R
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    " c8 u# m, d; B; s  l
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
19. 
    
20. 
    
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    ( |# u- c/ ]' W) I  ^4 o, B6 B8 l
23. Part.EditDelete                              '删除壳
    2 L. N4 a2 y. t+ m! W5 J
24. 
    
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    8 {* f) K6 }8 \# o
31. 
    $ S1 A" m7 l8 T% Q
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    1 D" Y) y) ~/ b& r3 k$ ]7 u
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    1 ?3 G, [4 [8 t- u( c8 [. V8 }
35. 
    2 e6 C  h1 C6 T$ z! S% F7 L0 E7 ?
36. 
      ^- d' u1 g7 D* M7 r' N
37. End Sub
    

复制代码

ProeSky

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

8 n* g6 Y9 {$ }8 r' c5 n7 C+ x现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息

$ Y1 m1 }; E, T& Z( c
" x7 [5 s$ h* a5 t
& E* G% L0 c. ^) |. ?4 K$ g$ [& i

wfwling12

不用宏也可以完成。楼主搞复杂了。论坛有相关主题
' c6 F: e; ~% C# \% p* r
0 ?7 e" B* k. k- |4 b5 B

ProeSky

! N& T' B  ^; q9 X* h  R2 T, e

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

% |9 H' k3 ]1 p. i; ^多谢提醒

我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

6 M- [, ~0 M* w+ {- D你的模型树里没有没有  Extrude3   可以直接得出容积吗   

) ]- t& \  N7 S- n4 j" } 这次搞了一天  主要想接触 二次开发