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

ProeSky

9 Q* g+ }. p. L3 t; ?Solidwork里  要得出一个抽壳后零件 内部容积不能直接得出    只能用间接法

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

- @4 ]# V3 n2 m$ C7 p/ e( |想做一个简单宏   直接得出抽壳后内部容积  以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量

8 m9 p7 f7 O8 M& \# Q: K, @程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见

+ F1 m6 [/ P( q1 }% M我用的是solidwork 2011  部分代码是录制宏后 抠出来的

( f  c; V3 }1 n9 @% z2 m

1. Dim swApp As Object
   ( h3 s. d1 b3 D: F! F
2. Dim Part As Object
   3 g" N# `& p9 c4 G' S. a, Q
3. Dim boolstatus As Boolean
   9 ^4 A2 _( g1 C& e4 M/ m$ s) ^
4. Dim longstatus As Long, longwarnings As Long
   3 R( [4 ^6 _. v( k- n' @% q0 `* m
5. 
   
6. Sub main()
   
7. 
   / F5 C& P; r: t
8. Set swApp = Application.SldWorks
   ' m4 F9 U! q, ^' @- t/ v6 D# J% d% o
9. 
   . B: R3 J# B! I# c) P0 E) B' F6 a
10. Set Part = swApp.ActiveDoc
    6 ]3 c, I) [) [7 }/ c
11. 
      M6 ^1 l* C8 }  D8 w$ y
12. 
    
13. Part.ToolsMassProps                    '得到当前壳体质量属性
    
14. 
    
15. 
    ( A: Y2 f/ o) g- \  t
16. A代码                                          '提取质量属性里体积信息给变量 KL？
    
17. 
    
18. B代码                                          '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    $ ]( K3 A& f$ @3 S; L7 F8 v
19. 
    
20. 
    - @& `4 L9 R! j$ X, A& x2 Z; Q4 N. K1 N
21. boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)    '遍历设计树，选到抽壳ID？此处假设为抽壳9
    
22. 
    
23. Part.EditDelete                              '删除壳
    
24. 
    
25. Part.ToolsMassProps                      '得到当前去壳后实体质量属性
    4 v4 b# n8 k8 V- S3 `
26. 
    
27. A代码                                            '提取质量属性里体积信息给变量 SL？
    " B- ^) v) ?2 H% \/ h- E
28. 
    1 Z, I0 `: w, e' I
29. B代码                                            '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
    
30. 
    
31. 
    3 e# p4 b8 S" [7 w) q5 \  f
32. Part.EditUndo2 1                            '撤销删除壳操作，还原壳
    
33. 
      h. l7 g; F* `' A* A
34. QL = SL - KL                                  '计算腔体容积  ，messagebox显示出来
    
35. 
    
36. 
    2 d% t) N  R8 R0 r" \
37. End Sub
    3 W" Y2 Y" l! P7 M& d6 _! u  S

复制代码

ProeSky

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

' d, |! |) n4 P# P. r) F( [6 P, k& G现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息

' [- x) ?1 M- ~! ~$ G) E7 W

wfwling12

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

ProeSky

6 \( ~% t; v) K  p( T; ~

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

; n7 |2 l. ~% i# X6 T) m: @多谢提醒
2 @( H3 j0 y# T# r
我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
/ M9 ~, h9 {8 U6 B+ U
你的模型树里没有没有  Extrude3   可以直接得出容积吗   
) W4 Z# d3 P! y
2 O' r; c$ P$ D1 t1 t/ i 这次搞了一天  主要想接触 二次开发