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

ProeSky

0 A& l" ~9 s  j9 P* ASolidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

9 K$ K1 }3 C5 g2 Z先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
' t: U* v$ O9 u2 Y( D
( n. n: t, D' f0 g6 C- ]. [想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量

程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   : s% d4 y% H  |; `- |1 j1 [
5. 
   ( L1 z. _$ o2 I
6. Sub main()
   
7. 
   
8. Set swApp = Application.SldWorks
   ; }4 U5 Z* ?/ b3 c7 y7 e) S
9. 
   
10. Set Part = swApp.ActiveDoc
    - J- o- ~# }+ A1 U. E( t! D( e  }" {
11. 
    
12. 
    7 @( G, i: M6 ^  y' }
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    ) ?3 `) O6 w( k; S: R: e" _0 O& @
15. 
    9 O% D7 I" t% G9 j$ n
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    ; a2 Y% b( G% k% @' n; C
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
19. 
    4 s! J2 K" D0 i  {/ f- s0 V
20. 
    0 I3 a: n3 e5 {7 s" J
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    ' V+ p0 _3 j( s: M% m- B2 {% S
22. 
    ) O% W: Z' }/ ~, ~
23. Part.EditDelete                              '删除壳
    9 A# J7 w  z' P: K2 O) M) J
24. 
    
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    % h0 L4 p$ R  u; r% l# k4 D
26. 
    / T( o3 C. x  l: p' N' r# g
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    
28. 
    / [4 u" u  y0 s9 Y- C; v
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    ) @7 n& R. Q/ l# Y4 \! C& L3 z1 z
30. 
    
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    8 h6 `( n, u4 A* C1 Q7 h+ j
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    
35. 
    - e7 x: x' Q/ n; w8 ?# m7 \* i
36. 
    
37. End Sub
    

复制代码

ProeSky

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

  d; `- p  Q/ C$ p6 b2 e现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息
( V+ T3 l' Z8 R/ x/ N5 R

& g' ^% ~1 B% M
3 B9 K3 a% w" ?: R6 u0 h( H

wfwling12

不用宏也可以完成。楼主搞复杂了。论坛有相关主题
2 j5 S6 b" W! Z5 _) `1 R$ {$ B+ i  v, @
7 X+ c1 l( h  v  \, }, T" _

ProeSky

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

多谢提醒

我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
1 o! Y: z7 ?* ?; ^/ b% p
你的模型树里没有没有  Extrude3   可以直接得出容积吗   
# A: i+ U0 E' m% z6 e/ w+ r' s
这次搞了一天  主要想接触 二次开发