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

huangzhao

   经典图书

Solidwork里 要得出一个抽壳后零件 内部容积不能直接得出 只能用间接法
先工具-质量属性 得出实体体积 然后同样此法得到抽壳后壳子体积 相减得到抽壳后零件内部容积
想做一个简单宏 直接得出抽壳后内部容积 以后搞成插件 主要是练练这方面 举一反三也许日后可以用来简化工作量
程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的 能帮我完善一下 或提点意见
我用的是solidwork 2011 部分代码是录制宏后 抠出来的
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ToolsMassProps '得到当前壳体质量属性
A代码 '提取质量属性里体积信息给变量 KL？
B代码 '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) '遍历设计树，选到抽壳ID？此处假设为抽壳9
Part.EditDelete '删除壳
Part.ToolsMassProps '得到当前去壳后实体质量属性
A代码 '提取质量属性里体积信息给变量 SL？
B代码 '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
Part.EditUndo2 1 '撤销删除壳操作，还原壳
QL = SL - KL '计算腔体容积 ，messagebox显示出来
End Sub

复制代码

cimjmq

其他的问题都已解决 调试通过
现在只剩下代码A部分    提取质量属性对话窗口里的   体积信息

ab2797225

   经典图书

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

nickyliken

多谢提醒
我这个代码思路复杂了  我在qq群里 问提取体积属性时 发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
你的模型树里没有没有  Extrude3   可以直接得出容积吗   
这次搞了一天  主要想接触 二次开发