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

ProeSky

# L0 S  k- v, v
" o, z6 K$ p+ X0 I! C5 R% d2 L6 }Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
3 N2 h- `# t% o" c3 u9 K8 `
先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
, L2 V7 s: t- i% _% H# Q
想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
, I7 [: R2 I( S
1 A% b: a# M( o( c+ S程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

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

1 W& A9 t& y( l

1. Dim swApp As Object
   ; `+ o/ q3 T& D1 y/ a8 I; D
2. Dim Part As Object
   5 W# f3 y8 u5 [: E" [2 ]" U6 U
3. Dim boolstatus As Boolean
   6 i+ r% k) C) O4 }# o
4. Dim longstatus As Long, longwarnings As Long
   . K) s1 L* f6 t. u& T/ P6 z/ H
5. 
   
6. Sub main()
   
7. 
   
8. Set swApp = Application.SldWorks
   
9. 
   3 C3 b$ I- f$ }
10. Set Part = swApp.ActiveDoc
    / D, D/ O" j2 S( f4 D, U6 |
11. 
    
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    , N8 A  u- D$ A# R
15. 
    ; U* b( l7 h! C1 S; h2 t6 M! N
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    
17. 
    ) N& ?5 x4 J+ X1 S2 @$ v
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    % t9 W$ g0 I! Q  N( W2 N! t* ?- n$ _' G
19. 
    
20. 
    
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    * n: e/ }) f' o
23. Part.EditDelete                              '删除壳
    # y: G. G# S% g- R- b! l
24. 
    
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    4 D' M6 U! ~6 U  T6 T$ ?4 s
28. 
    * ~5 }, {0 x! \9 g( D; x+ \6 j4 H
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    
31. 
    ( F2 p4 |9 P1 ~, P6 B4 J3 [7 r
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    . F- l) ]+ B! v8 k: P
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    2 A) g  ?; V9 k2 {; ~3 w/ v
35. 
    - M: G4 N3 ]" S) F' J6 r
36. 
    
37. End Sub
    

复制代码

ProeSky

其他的问题都已解决 调试通过
" G  ?" t7 f2 _6 }. B
3 u5 ]9 R( L6 |7 p+ i$ ]现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息



3 T$ u) N1 _  l; m5 W, U( {' O

wfwling12

不用宏也可以完成。楼主搞复杂了。论坛有相关主题
/ z) o3 \4 `% f" K7 z# r. R! _

ProeSky

' H# |5 ~3 d9 Y

wfwling12 发表于 2015-3-31 11:01 static/image/common/back.gif
3 |& T; t$ O* r- O" q不用宏也可以完成。楼主搞复杂了。论坛有相关主题

5 o# r$ G2 {/ m8 `  J多谢提醒
$ m' f- U: \% `' [9 I5 ^& a
& D& |0 D7 d3 C" h/ }+ |9 ?我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

# C. g( ?' c0 G$ f9 S你的模型树里没有没有  Extrude3   可以直接得出容积吗   

- L1 F5 \! f7 }9 _+ `: I 这次搞了一天  主要想接触 二次开发