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

ProeSky

) S$ Z5 `4 {' s  l% _2 N
Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

6 x4 Z: ]" m0 Y9 w" X# x先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
: U% A6 j! I, W5 ~
! w, [# `- L. j想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
4 J8 B0 X- D; B$ G) \" p1 I" T
: f  N- J6 L  T- J程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

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

# v. J3 c, h0 r

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   * |" q5 F6 Q6 `  X7 [  I. q3 G2 W
5. 
   
6. Sub main()
   1 B1 I/ K( {3 K$ z4 P2 T0 E  x9 J+ w
7. 
   
8. Set swApp = Application.SldWorks
   4 w0 {1 l2 `; Y8 t7 w2 }1 r5 E
9. 
   
10. Set Part = swApp.ActiveDoc
    
11. 
    & g4 i2 p# F6 W/ P/ I  p( r
12. 
    : [! \9 H, `0 X' a
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
      E1 [1 X( r$ U$ e# \7 T& _
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    6 o0 [4 q1 F* m4 e/ P! x( q
19. 
    1 i: N' y+ j/ L: z( j
20. 
    
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    ' N  J# \1 ?) [9 M
22. 
    
23. Part.EditDelete                              '删除壳
    
24. 
    $ O. J1 I' l, S! F+ a; ?
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    ) V3 a: _) F8 S- I/ A
26. 
    2 x+ i, S: F! \
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    + r7 [6 n8 G  H: u6 u4 a! `
28. 
    : b9 w/ Y: x' h: l+ d
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    ; ?# {% y$ {$ [# d
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    
35. 
    " @! Z* k! ^- g0 `, u5 U3 t5 @9 x; D
36. 
    
37. End Sub
    + R1 k5 w$ @, f

复制代码

ProeSky

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

现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息
0 ^6 ^% Q4 a6 M

* J& |( a0 p% S; o$ |" H0 z: d
* ?- o+ |4 m# @! i( l- r
- [- `* b# o4 g) y) T

wfwling12

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

ProeSky

. y3 B) v9 ^# m7 d/ X  k# F5 U/ v& l

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

多谢提醒

我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
; x( x" o  _7 B8 D5 q
- Q! W! _! i- c8 `7 `你的模型树里没有没有  Extrude3   可以直接得出容积吗   

  c" @* n2 Y  |* V5 u9 t, k 这次搞了一天  主要想接触 二次开发