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

ProeSky

( |" e% J3 j! y+ N$ a7 q- Y+ o# f
4 k1 u# O- s5 w) ISolidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
0 N  B6 w) F' u
( l3 ?4 I. l$ Q先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
$ J' [) P6 R! G& {# y6 U* H5 Z
想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
1 c5 L& j  |+ ~4 q  T2 Z9 f. e3 Q
程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见
) S1 n& N5 |( f2 B" Z; A* r
; f7 r3 m! l7 O! O2 F% Y. Q% d: Z我用的是solidwork 2011  部分代码是录制宏后 抠出来的

* T8 |# k% Y; a( V) F+ [6 Z

1. Dim swApp As Object
   
2. Dim Part As Object
   ' n/ `" O( u: M# ~0 d" J
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. 
   ) N& {6 F2 k; L* l( u+ x. W
6. Sub main()
   1 c4 D- O6 B) }% L& m2 ~. V
7. 
   : y6 W0 {6 N) j
8. Set swApp = Application.SldWorks
   
9. 
   
10. Set Part = swApp.ActiveDoc
    
11. 
    ( \5 J: _9 S6 v- u! N4 l
12. 
      p3 G* f, c: U/ ]8 X
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    2 G6 w' b  e- v, v  K! u: ]$ P8 s
14. 
    
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    4 _; O: |8 h) K! O- j3 M
17. 
    4 Z/ K- K# ]; P5 P$ A( \
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    ; p' @( X) S- k
19. 
    
20. 
    $ |+ U, I8 R* V! J6 z$ t1 {& w" c9 Y
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    
23. Part.EditDelete                              '删除壳
    
24. 
    
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
      F, H) i! Z: {9 V- j* h# Y% k1 `* n6 b
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    5 f' p; ]+ F) I% F, y. j! c
30. 
    6 q4 e6 C; g) ]* N) W
31. 
    
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
    
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    7 ~  r5 f5 w" K, x% b
35. 
    * q4 o+ x& h8 L* \) A& F9 ?" Q
36. 
    
37. End Sub
    % R$ h- K" E( Z$ G; W" k1 E

复制代码

ProeSky

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

现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息
, X5 L4 }$ N* L


& _/ V  l, j/ W% d4 _5 p1 _$ Q
8 ]# e! H. Q5 g: {$ h

wfwling12

不用宏也可以完成。楼主搞复杂了。论坛有相关主题
+ [1 p7 x# t: B: n4 i) ?2 c4 p  Y4 ]

ProeSky

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

" f1 N5 u9 t4 e: H: D  \多谢提醒

4 K. `" o- U3 [, u1 ~我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

. t" K2 Q1 V2 i( v0 w你的模型树里没有没有  Extrude3   可以直接得出容积吗   
8 Y! O' m- u6 S6 o
这次搞了一天  主要想接触 二次开发