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

ProeSky

: ~3 m3 T- M$ @* R
Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

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

2 a- F! r0 I  |  J想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量

& `: D$ g  h* {2 h程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   : {& b2 p% R) Y( I( G: J
4. Dim longstatus As Long, longwarnings As Long
   / r- b1 W& v% U" P9 d
5. 
   4 ]3 ?- D8 j. P) t; G
6. Sub main()
   
7. 
   
8. Set swApp = Application.SldWorks
   
9. 
   6 @3 j6 W6 S# E
10. Set Part = swApp.ActiveDoc
    
11. 
    
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    4 U* y% W; J% ]! p! o) q+ o
14. 
    " g& T# E: S* w1 o
15. 
    7 V; \) l2 K4 r+ n8 e  Z+ b
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    
17. 
    % D* u0 t* l  [/ j
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
19. 
    
20. 
    5 K- X$ c8 p0 P9 P% h2 H0 I- T4 l
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    % U0 J! H2 M8 B6 b( a: d7 b7 c
22. 
    : h1 I- U+ r5 R
23. Part.EditDelete                              '删除壳
    ) j. X& t+ ?9 W  o" h. b
24. 
      N4 R# Z9 B, ~
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    
26. 
    8 Q6 H( \: g, S7 S; `4 G
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    ! R5 h7 M6 |5 j) J2 }4 }2 ?7 S7 G
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    ! q7 Q4 C% ?% d/ X2 n5 t
33. 
    + I5 k, l7 J. {& V  U9 l
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    * C/ a7 f. B  H! q" X; t
35. 
    ' A+ O% E8 g$ I) i& W. @7 t
36. 
    * x+ i6 P! Y# a; w% j" D( ^7 K, R
37. End Sub
    

复制代码

ProeSky

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

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


: n0 t. a6 w8 i% q
, ?, u6 ^: ~: f# t  j4 t

wfwling12

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

. r" H/ R  p1 P: R! _2 B" P

ProeSky

wfwling12 发表于 2015-3-31 11:01 static/image/common/back.gif
/ n( r8 S6 q8 q# U' S不用宏也可以完成。楼主搞复杂了。论坛有相关主题

多谢提醒

) e! ~- w, g" s- B. g8 @. d' d) I我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
) H/ V% Y( h9 L* r- Z
你的模型树里没有没有  Extrude3   可以直接得出容积吗   
( ~% z4 y) p1 q4 F
# ~7 Q* M) c$ a3 b 这次搞了一天  主要想接触 二次开发