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

ProeSky

Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
& M  O% _0 P7 _3 h
3 ~* v+ E# c5 t* j- p$ f- _先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
/ g' x/ O; J$ e, _0 R2 ]+ k
想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
0 j! N( j$ T& ?0 a2 i5 S
7 W8 H$ W0 S4 Q* s- P$ l程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

我用的是solidwork 2011  部分代码是录制宏后 抠出来的
: g8 b# M  k; l# \8 H& A7 [2 U3 L

1. Dim swApp As Object
   8 q8 r* D, ~( B) V6 K) K
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   ) o4 n& g) N, \, b! e
4. Dim longstatus As Long, longwarnings As Long
   + S' X! D* ?  ~
5. 
   ! t) p7 D' v1 e5 K/ I, j
6. Sub main()
   
7. 
   
8. Set swApp = Application.SldWorks
   
9. 
   " y% r+ h6 C# q% M$ m, q
10. Set Part = swApp.ActiveDoc
    1 U( s+ |' |  W# B# ]* g0 Y. j
11. 
    
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    $ f9 t4 m6 |( [4 B" b2 Y( \" `
14. 
    0 `7 U7 K' m6 p6 @8 H4 N) t! Q
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    1 r7 G8 k; t8 p2 e9 H$ i- o3 W
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    ) O& o3 R) W/ z. w0 U/ T6 Q% x; ?3 l2 X
19. 
    
20. 
    
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    ' v; y2 M7 h9 M" p8 f
22. 
    
23. Part.EditDelete                              '删除壳
    7 Y2 P8 y; B# u7 I3 |# Q
24. 
    * `2 f9 `0 ~' ?
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    5 N. k; p  ?0 a8 J' ~4 ]9 \( q
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    ' }  Z4 J. D, Q$ r; b
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    0 q3 ^( _3 P5 O; f( S+ [, _
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    , E! N9 y9 F: y
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    ! l  A+ ]+ q5 h! V- L% v. b  z
35. 
    5 h  G/ T1 k0 f& C
36. 
    ! J  ?; }9 P* i7 p
37. End Sub
    * |5 q8 p8 n  I5 ~  O0 }. n

复制代码

ProeSky

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

现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息

% y& W; h5 j1 @1 W

wfwling12

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

5 e$ b* k0 t( C4 W! D5 O5 X& B

ProeSky

" W4 s6 p2 _5 ~

wfwling12 发表于 2015-3-31 11:01 static/image/common/back.gif
0 G+ j( _/ Q! M. D* L3 ~不用宏也可以完成。楼主搞复杂了。论坛有相关主题

多谢提醒
* W* ~, U2 y  M& K0 s1 m
我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
2 _( X# \/ b( Z* M2 K
$ w0 W: r/ {/ {& d" u5 s9 g# S1 ?你的模型树里没有没有  Extrude3   可以直接得出容积吗   
8 x# s8 }/ Q+ [/ m2 s+ x$ @
& N% A  v/ Y. t6 ?# y 这次搞了一天  主要想接触 二次开发