分享：获取零件或组件的长宽高（外形尺寸）小巧门

tg000057 · 发表于 2021-3-1 14:25:10

在sw版本，2018以上支持零件边界框插入，2019以上支持装配体边界框插入，小巧门就是用边界框的这个功能。
如果单单使用边界框插入，在配置特定属性中会生成相关属性，可以使用。
只是，边界框这一个虚线框在工作区，显示确实很不方便，到了装配体，一大堆线条，到了工程图也是每个视图带个框。边界框生成后可以隐藏或压缩，只是感觉不太稳定。
所以这个特征还是不要的好，只要它(边框界)的相关数值就好了。
所以思路就出来了，
首先创建一个边界框，然后获取边界框参数值，即配置属性评估值，
再删除边界框特征，
再写入刚提取参数到文件属性中，
最后防止有文件已有边界框的情况下，可能补压缩特征，或其他原因倒致参数没更新到最新，所以，创建边界前先执行删除旧边界框，再重新创建，以保边界框是最新的，准确的。

另外说一下，这个边界框比之前论坛中的零件（xyz最大最小）长宽高提取的区别，用xyz最大小点提取的，相对一些异形的，坐标是斜的工件就做得不太准了，边界框侧可以最佳适配，或自定义。

下面附代码：

Sub main()

Dim mo0301 As String
Dim mo0302 As String
Dim mo0303 As String
Dim mo0304 As String
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Dim swFeat As Object
Dim swFeatMgr As Object

'Set myModelView = Part.ActiveView
'myModelView.FrameState = swWindowState_e.swWindowMaximized
'boolstatus = Part.Extension.SelectByID2("边界框", "BBOXSKETCH", 0, 0, 0, False, 0, Nothing, 0)
'Part.EditDelete

Set swFeatMgr = Part.FeatureManager
Dim swFeatData As Object
Set swFeatData = swFeatMgr.CreateDefinition(swFeatureNameID_e.swFmBoundingBox)
swFeatData.IncludeHiddenBodies = False
swFeatData.IncludeSurfaces = False
swFeatData.ReferenceFaceOrPlane = 1
Set swFeat = swFeatMgr.CreateFeature(swFeatData)
Part.ClearSelection2 True

mo0301 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框长度")
mo0302 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框宽度")
mo0303 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框厚度")

Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("边界框", "BBOXSKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete

mo0304 = mo0301 + " X " + mo0302 + " X " + mo0303

bRet = Part.DeleteCustomInfo2("", "长宽高")
bRet = Part.AddCustomInfo3("", "长宽高", swCustomInfoText, mo0304)

End Sub

luoqingmin · 发表于 2021-3-4 14:10:03

很不错，顶一下！

Kerwin1314 · 发表于 2021-3-4 16:02:48

luoqingmin 发表于 2021-3-4 14:10
很不错，顶一下！

您好，运行程序会报错，

tg000057 · 发表于 2021-3-4 17:08:35

Kerwin1314 发表于 2021-3-4 16:02
您好，运行程序会报错，

在sw版本，2018以上支持零件边界框插入，2019以上支持装配体边界框插入。你用的是哪个版本的sw？

Kerwin1314 · 发表于 2021-3-5 09:11:36

经典案例图书

tg000057 发表于 2021-3-4 17:08
在sw版本，2018以上支持零件边界框插入，2019以上支持装配体边界框插入。你用的是哪个版本的sw？

我用的2018，在单独零件下使用的，您看一下视频，您那里不报错是吗？

tg000057 · 发表于 2021-3-5 10:25:07

Kerwin1314 发表于 2021-3-5 09:11
我用的2018，在单独零件下使用的，您看一下视频，您那里不报错是吗？

嗯，这个说不清楚了，边界框版本的适用是sw更新说明里查到的，但是我电脑只有sw2019，这个宏也是sw2019录制的，sw2019能用于装配体，它的对象应该不适用于sw2018的只适用于零件的，
你可以自己用sw2018录制一个啊，先创建一个边界框，然后录制删除，再创建，再删除，结束录制，然后编辑，把

Dim mo0301 As String
Dim mo0302 As String
Dim mo0303 As String
Dim mo0304 As String
.
.
.
mo0301 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框长度")
mo0302 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框宽度")
mo0303 = swApp.ActiveDoc.GetCustomInfoValue("默认", "合计边界框厚度")
。
。
。
mo0304 = mo0301 + " X " + mo0302 + " X " + mo0303

bRet = Part.DeleteCustomInfo2("", "长宽高")
bRet = Part.AddCustomInfo3("", "长宽高", swCustomInfoText, mo0304)

这几段加上去就可了。

Kerwin1314 · 发表于 2021-3-6 08:21:07

经典案例图书

tg000057 发表于 2021-3-5 10:25
嗯，这个说不清楚了，边界框版本的适用是sw更新说明里查到的，但是我电脑只有sw2019，这个宏也是sw2019录 ...

好的，谢谢大佬

小豆芽疯回路转 · 发表于 2021-6-8 16:33:49

很不错，顶一下！

jiacai007 · 发表于 2022-1-7 20:59:15

很不错，顶一下！

zxt0824 · 发表于 2022-3-11 09:48:47

感谢楼主分享，很不错！

peng057 · 发表于 2022-3-24 16:34:57

很不错，顶一下！

yun6yun7 · 发表于 2022-3-26 16:32:27

很不错，顶一下！

5890442 · 发表于 2022-4-17 11:54:11

SW2016能做清单高*宽*长的属性吗？将三个数据合并

jyzas001 · 发表于 2022-4-17 20:34:15

用SW2016做的STEP转换的获取到的尺寸不准确，没有安装高版的，这程序不知会不会存在同样的问题？

hejunxin888 · 发表于 2022-8-20 18:01:47

加入QQ群
参与讨论和学习

或扫描二维码加入

能做清单高*宽*长的属性吗

yun6yun7 · 发表于 2022-11-16 21:24:39

经典案例图书

SW机械工程师网，找到组织了！

lzh123456789 · 发表于 2022-12-3 09:31:46

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

yh2008 · 发表于 2022-12-3 12:46:02

经典案例图书

请教一下现在写入的是自定义属性，怎么写入到配置属性谢谢！

FMVPcurry30 · 发表于 2023-3-3 18:03:49

楼主太有才了，膜拜中……

懒懒的高贵 · 发表于 2023-3-4 08:15:12

很不错，顶一下！

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

分享：获取零件或组件的长宽高（外形尺寸）小巧门

评分

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献