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

ProeSky

1 F2 @: h% @8 V8 z: qSolidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

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

想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
- Y3 L& T, s( }" _2 H
程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见
# X2 v" I% I/ h9 v8 c
我用的是solidwork 2011  部分代码是录制宏后 抠出来的
, F- `4 t5 {+ a" w3 b# `0 [3 V
8 U- K3 ?: L; ?. q) h( Z

1. Dim swApp As Object
   ; o+ v# I8 N9 V' H# a6 d* K3 \
2. Dim Part As Object
   4 d8 q/ O, F$ A
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. 
   " q. f6 c1 ]! Y- Q
6. Sub main()
     ?2 P* M- a9 j; S9 `4 Z# [! Q
7. 
   ! u8 ]& l6 N2 ^
8. Set swApp = Application.SldWorks
   / g: l/ L/ g- J, g
9. 
   ! W4 ^) \1 Z0 j1 t
10. Set Part = swApp.ActiveDoc
    & I9 b! s5 S: ^
11. 
    
12. 
    ' [& u, `& J  ?& Z- B
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    8 y6 U1 f) h( [- M
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    ; F% i* |$ g( o/ A
19. 
    & r# ^8 _& l& o& E$ |  g& o: J
20. 
    + a% U: u* h, O/ g: N$ S8 G
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    ! R3 p: G% ~7 l5 g- M( p; G  ^( H
22. 
    
23. Part.EditDelete                              '删除壳
    
24. 
    % R' D; W% g" i& T! P
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    . J* p8 n; N! f( A" Y' ?" D
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    0 F" ~% C1 K/ h# A; ]! k
28. 
    ' N5 F$ s) w! q7 K- }) _
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    9 O1 f9 s' J9 _9 ?, J
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    ( A  d# _8 Z3 y' o: O5 n& _
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    3 e2 O$ U3 `9 Y- o1 `6 e
35. 
    
36. 
    
37. End Sub
    

复制代码

ProeSky

其他的问题都已解决 调试通过
* X4 ]" C( C: n) ^! q
) ~$ W* b0 s# {& ~) W% s1 V现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息


% [: w% E* d  i! j
8 {! ]9 f. S+ O, `1 L) [  O& i
+ R7 u5 ]- K, }8 ^. `; a

wfwling12

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

( N2 M2 |7 D# Z9 S  _# Z" N1 M

ProeSky

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

: G6 `4 G/ W% W1 A8 m/ C1 `* p多谢提醒
9 G0 r" D! J7 i6 M; p
我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

你的模型树里没有没有  Extrude3   可以直接得出容积吗   
+ y0 [- ~: o2 L% l: b0 i4 m6 B
* g+ b# `/ ^3 d  n 这次搞了一天  主要想接触 二次开发