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

ProeSky

7 U1 J( `3 b3 K  Z" NSolidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法
7 j) n9 a  I/ B3 |* I5 o  d: e8 m
% _8 f+ M" i* W5 l7 E. u$ P先工具-质量属性 得出实体体积    然后同样此法得到抽壳后壳子体积   相减得到抽壳后零件内部容积
" S# [+ G* ^& J7 L) H& P
想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量

5 I) l6 M3 A' T! I% Z/ A, T程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见
$ n3 v8 k! `: N, i% i/ M* B: T
! w! y0 F* {5 [6 R2 @8 m4 d我用的是solidwork 2011  部分代码是录制宏后 抠出来的

# Z! M9 K+ {* j: y0 [' ?

1. Dim swApp As Object
   % H6 ]2 v9 Q+ M
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   ' M, X% d% }, O: q
4. Dim longstatus As Long, longwarnings As Long
   ! z9 e6 e. r( R  y
5. 
   0 [/ H- Q, z$ o, l
6. Sub main()
   
7. 
   , s5 l( C% W! |1 l( a  C
8. Set swApp = Application.SldWorks
   & T+ B0 _" b: c
9. 
   ) W, Y% n* c5 H: q& Y
10. Set Part = swApp.ActiveDoc
    ! d6 N/ T; t  w, j) _# c
11. 
    0 [8 e( S" ?( z/ t' i, J; }" @
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    0 ^' G; ~, v, z
14. 
    6 l3 u5 `. b; n) |- q7 b9 J
15. 
    
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    3 X( z$ Z& H/ X$ S+ l4 o
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    6 L& W- ~7 k. }/ i! S4 V
19. 
    & e; n  `6 Z$ e4 b  u1 A; \7 ?# G" ]. _
20. 
    % O" r- V0 {8 S) P& S1 o; I
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    
23. Part.EditDelete                              '删除壳
    
24. 
    ; D0 C5 U; K: z2 f# [- I" K# `
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    9 }/ t0 C# o( H8 U8 Z: k  ]
26. 
    * a& R' U. g- T. ~, l! D) A- _2 N" a6 P
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    0 _) W  l0 b2 b  \
28. 
    
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    
31. 
    0 t# r  U7 j& }
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    . X, c, y. ^9 e$ X6 q& c
33. 
    ( d2 u- k# T- @# H* B
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    7 m. i$ ^- @  o+ r) Z; L9 I
35. 
    
36. 
    : X$ g8 m% g6 X8 S
37. End Sub
    

复制代码

ProeSky

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

现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息
  P3 I2 g' I# |: s+ u% O2 l1 ]0 Y) c
1 h8 U( D) M* A- E) G
0 c; m+ y' A( m) Y

wfwling12

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

' V  w2 |9 k6 J& E8 K$ R* ]2 p1 V

ProeSky

8 |% |  S2 N+ \6 Y# o8 Y, a. c

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

多谢提醒

$ j0 K5 j: |/ |! Z& Y我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。

你的模型树里没有没有  Extrude3   可以直接得出容积吗   

这次搞了一天  主要想接触 二次开发