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

ProeSky · 发表于 2015-3-16 10:07:09

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 ProeSky 于 2015-3-16 14:44 编辑

Solidwork里要得出一个抽壳后零件内部容积不能直接得出只能用间接法

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

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

程序框架我也列好，具体细节要查资料，论坛哪位师傅有经验的能帮我完善一下或提点意见

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

Dim swApp As Object* X; [4 v" x0 {1 m# k2 O4 N; U! V
Dim Part As Object* q `$ i* M0 K. T6 `
Dim boolstatus As Boolean
8 U8 t3 ~/ ?" ~3 ~
Dim longstatus As Long, longwarnings As Long' P+ E4 r% L1 F1 c0 k
' ]7 E- D4 r( M( l+ ?& {
Sub main()
! X I$ K) O% U Y5 k8 j
. {/ F$ k8 V& f$ _
Set swApp = Application.SldWorks
" Y a! a$ I3 c3 T6 B
4 M, _: w: r8 M% n* Q
Set Part = swApp.ActiveDoc) H) @+ _) Q" s4 y3 _
; H( l2 d" c/ h/ V* k; u% k' F
4 V1 ?& J( |( {! J* O/ b
Part.ToolsMassProps '得到当前壳体质量属性
2 F) L% c# o$ U. t' B% b9 o
( y7 N# i# e3 v! Q+ c
: i$ {. o. U+ A6 t _
A代码 '提取质量属性里体积信息给变量 KL？3 Q$ \6 U" }8 v- q9 k: k8 U
: s1 L: C+ q" h6 p: W# z
B代码 '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
: O: K8 w3 N6 z1 }* U
0 B' s& M6 L% z( C
) k2 o" \0 @7 c. Q5 {
boolstatus = Part.Extension.SelectByID2("抽壳9", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) '遍历设计树，选到抽壳ID？此处假设为抽壳9! `8 f4 _6 h# N- Y: O
. L& v7 `/ z! P
Part.EditDelete '删除壳
! \9 v' w( Q; @* h' z3 F0 e
6 v5 I! y% l7 r6 B4 r5 W
Part.ToolsMassProps '得到当前去壳后实体质量属性
1 _8 \9 B ]' a/ h( M
6 e( H0 @4 X; t+ v$ W
A代码 '提取质量属性里体积信息给变量 SL？0 D; L+ U& N+ _4 o
. n4 g" h | d5 P5 D
B代码 '关闭当前质量属性窗口（GetActiveWindow得到当前活动窗体句柄，及弹出的质量属性窗口，SendMessage WM_CLOSE关闭窗口）
* H5 R& Z, B5 y# f6 b3 ]+ @. a: x
; j+ p! G( `4 U. l: X' q' l
0 {( |; ~3 A+ a7 {
Part.EditUndo2 1 '撤销删除壳操作，还原壳
# h& W. `) [0 T! c
% w0 ]6 |7 i" ?5 V+ N7 b
QL = SL - KL '计算腔体容积，messagebox显示出来4 {8 ~ m6 \9 T6 v( h& k+ Q
7 i$ t% v; J) Z
$ S, L2 \- Y( h' a8 ?1 Y9 y
End Sub
+ K5 G4 U# B) L B8 W8 {

复制代码

ProeSky · 发表于 2015-3-16 14:42:59

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

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

wfwling12 · 发表于 2015-3-31 11:01:43

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

ProeSky · 发表于 2015-4-1 12:06:59

本帖最后由 ProeSky 于 2015-4-1 12:48 编辑

wfwling12 发表于 2015-3-31 11:01 static/image/common/back.gif
6 ]) \9 [- {! r8 f% M不用宏也可以完成。楼主搞复杂了。论坛有相关主题

多谢提醒( D! C9 ^# r: B/ q
/ ~; a" Q0 Y5 Q
我这个代码思路复杂了  我在qq群里问提取体积属性时发现可以直接得到体积信息，不用先调用质量弹窗提取再关闭。
3 Z' [9 ]4 R8 i% v: H) Z3 I) [$ G0 r0 Q- R. Z/ m
你的模型树里没有没有  Extrude3 可以直接得出容积吗
$ i* Q' [) l$ `' a9 m: m
- B+ E( |, N' |- V- d7 r 这次搞了一天  主要想接触二次开发

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。