Soliworks宏钣金取展开尺寸添加自定义下料尺寸

xiaozhao123 · 发表于 2022-6-9 08:50:33

求大神一键宏钣金取展开尺寸并添加到配置特定下料尺寸

wetiuer · 发表于 2022-6-9 11:31:42

看了楼主的截图，获取钣金展开尺寸可以用切割清单或平板型式的边界框草图。

参考这个帖子自己在用的图号分离、删除所有属性、单位，差不多5、6个宏合并到一个宏，求指导优化，不知道怎么搞的，今天我不能做链接，

我只有把这个帖子中楼主宏代码复制过来，供参考。

'展开长宽
Dim swFeature As SldWorks.Feature
Dim FeatName As String
Dim FeatType As String
Set swFeature = swModel.FirstFeature
While Not swFeature Is Nothing '遍历零件FeatureManager并获取特征和属性
FeatName = swFeature.Name '获取特征名称
FeatType = swFeature.GetTypeName '获取特征属性
If FeatType = "CutListFolder" Then
swFeature.Name = "切割清单项目" '修改名称
End If
Set swFeature = swFeature.GetNextFeature
Wend
'swModel.AddCustomInfo3 "", "长", swCustomInfoText, """SW-边界框长度@@@切割清单项目@零件.SLDPRT""" 'VB语法，两个引号组成一个引号
'swModel.AddCustomInfo3 "", "宽", swCustomInfoText, """SW-边界框宽度@@@切割清单项目@零件.SLDPRT"""

复制代码

hengzhou9571 · 发表于 2022-6-11 17:24:59

好好学习，天天向上！

DFFDSGG114485 · 发表于 2022-6-12 19:52:11

感谢楼主分享，很不错！

xiaozhao123 · 发表于 2022-6-13 08:44:26

经典案例图书

感谢楼主分享，很不错！

yun6yun7 · 发表于 2022-7-1 20:36:05

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

懒懒的高贵 · 发表于 2022-8-4 17:28:36

经典案例图书

好好学习，天天向上！

weiyw1989 · 发表于 2024-3-15 17:25:48

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

风雨阳光 · 发表于 2024-3-18 10:13:51

很不错，找到组织了！

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