找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 11111|回复: 4
打印 上一主题 下一主题

[讨论] 建立外形属性的宏

[复制链接]
跳转到指定楼层
1
发表于 2014-12-24 11:38:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
之前发贴求助过https://www.icax.org/forum.php?m ... ;extra=#pid11527543
现进行到了一个阶段,大家看一下





代码如下:
'Outline外形属性设置
'2014.12.24于福州
Sub main()

    Dim swApp   As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    Dim A, B, C, T As Double
    Dim DM As String

    '取各属性值
    A = swModel.GetCustomInfoValue("", "A")
    B = swModel.GetCustomInfoValue("", "B")
    C = swModel.GetCustomInfoValue("", "C")
    DM = swModel.GetCustomInfoValue("", "DM") '圆柱或螺纹等的前缀

    swModel.DeleteCustomInfo2 "", "Outline" '删除原Outline属性

    If (A <> -1) Then '如果A尺寸不是-1,说明它是一个方形的零件

    '对三个尺寸排序
        T = IIf(A > B, A, B)
        B = IIf(A > B, B, A)
        A = T

        T = IIf(A > C, A, C)
        C = IIf(A > C, C, A)
        A = T

        T = IIf(B > C, B, C)
        C = IIf(B > C, C, B)
        B = T
        swModel.AddCustomInfo3 "", "Outline", swCustomInfoText, Trim(Str(A)) & "X" & Trim(Str(B)) & "X" & Trim(Str(C)) '建立Outline属性

    Else '如果A尺寸不是-1,说明它是一个圆柱形的或一个螺纹形的零件

        swModel.AddCustomInfo3 "", "Outline", swCustomInfoText, DM & Trim(Str(B)) & "X" & Trim(Str(C)) 'Str()会去掉尾0
    End If
End Sub




本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 赞一下!赞一下!
2
发表于 2014-12-24 17:16:04 | 只看该作者

本帖子中包含更多资源

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

x
3
 楼主| 发表于 2014-12-24 18:19:08 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
4
 楼主| 发表于 2014-12-25 09:13:33 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
5
 楼主| 发表于 2015-1-19 15:01:12 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-13 21:22 , Processed in 0.028942 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表