遍历装配体宏 增加读取外形尺寸并写入自定义属性

wangchieh

大神们，帮忙把这个遍历宏增加读取外形尺寸并写入自定义属性功能，一下是遍历宏 和读取外形尺寸宏

954833266

dengchenghui 发表于 2024-4-1 08:54
大神  运行到这一名时出现错误，Corners = swModel.GetPartBox(True)    报错438，怎么解决

提供一个解决办法 把
'------外形尺寸
If swModel.GetType = 1 Then
        
Corners = swModel.GetPartBox(True)
Y = Abs(Corners(4) - Corners(1)) * 1000 'Y
Z = Abs(Corners(5) - Corners(2)) * 1000  'Z
X = Abs(Corners(3) - Corners(0)) * 1000 'X

    blnretval = swModel.DeleteCustomInfo2("", "外形尺寸")  '删除旧数值
    blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, Format(X, "0.0") & "*" & Format(Y, "0.0") & "*" & Format(Z, "0.0"))  '添加新数值
    Else
   
      blnretval = swModel.DeleteCustomInfo2("", "外形尺寸")  '删除旧数值
    blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, "装配体")  '添加新数值
  End If

'------外形尺寸

代码替换成这个看一下,只对零件起做用,装配体的写为装配体,装配体写尺寸还没弄懂

954833266

只在你给的遍历宏基础上增加了写外形尺寸（写入自定义）  这个遍历宏的图号分离的规则和通用的有些区别

补充内容 (2024-4-1 09:09):
考虑不周,有问题,不用下载了

沉默的人

请人帮忙还要掏4金币，这两个宏早就有了不会要的

wangchieh

   经典案例图书

沉默的人 发表于 2024-3-24 15:20
请人帮忙还要掏4金币，这两个宏早就有了不会要的

不好意思，第一次发帖，不会发，以为附件要必填才能发。大神帮忙改改，愿给酬劳

wangzhengchang7

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

30202188

   经典案例图书

楼主辛苦了！

chunhui175

好东西，努力学习学习

dengchenghui

954833266 发表于 2024-3-31 16:32
只在你给的遍历宏基础上增加了写外形尺寸（写入自定义）  这个遍历宏的图号分离的规则和通用的有些区别

大神  运行到这一名时出现错误，Corners = swModel.GetPartBox(True)    报错438，怎么解决

wangchieh

954833266 发表于 2024-4-1 09:28
提供一个解决办法 把
'------外形尺寸
If swModel.GetType = 1 Then

这个办法不错，感谢感谢

补充内容 (2024-4-1 17:34):
把我发的悬赏接了吧

wangchieh

954833266 发表于 2024-4-1 09:28
提供一个解决办法 把
'------外形尺寸
If swModel.GetType = 1 Then

遍历装配体宏 增加读取外形尺寸并写入自定义属性
https://www.swbbsc.com/forum.php ... &fromuid=355643
把悬赏接了吧

kinyon

这个不错，顶起来下载收藏，谢谢额分你想

d1457810962

楼主方便提供下最终完整版吗，感谢！

随遇而安9528

SolidWorks机械工程师网，顶一下。

风雨阳光

加入QQ群
参与讨论和学习

或扫描二维码加入

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