找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

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

[求助] solidworks设计树特征遍历

[复制链接]
跳转到指定楼层
1
发表于 2016-10-6 08:17:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
各位大侠:
由于没用PDM所以想用系列化配置特征功能做零部件的版本管理,思考了好久觉得这是一种可行的办法。由于不确定工件改动量有多大,所以想的是给零件升级的话先吧上一个版本的设计特征都重新执行一遍,然后再在此特征中修改,所以想的是有个宏能把之前的设计树特征遍历出来重新执行一遍,然后把之前的特征放到设计树的一个旧的版本的文件夹中效果如图
,所以需要一个可以遍历设计树特征的宏。。结合冻结栏的使用可完美管理零部件版本,并且图纸可直接出在一张工程图。
之前
xiaoxifeng 童鞋写了如下的特征遍历,但是只实现了名称的遍历





Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeature As SldWorks.Feature
Dim FeatName As String
Dim FeatType As String


Sub main()
    Set swApp = Application.SldWorks
    If Not swApp Is Nothing Then
        Set swModel = swApp.ActiveDoc
        If Not swModel Is Nothing Then
            Set swFeature = swModel.FirstFeature
            While Not swFeature Is Nothing
                FeatName = swFeature.Name
                FeatType = swFeature.GetTypeName
                MsgBox "Feature screen name = " & FeatName & vbCrLf & _
                        "Feature type name = " & FeatType
                Set swFeature = swFeature.GetNextFeature
            Wend
                End If
        Set swModel = Nothing
    End If
    Set swApp = Nothing
End Sub



所以还的请大虾们帮助一下小虾。
先@闷大,@pyczt @gt.adan @iCAx开思网 @xiaoxifeng
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏3 分享淘帖 赞一下!赞一下!
2
 楼主| 发表于 2016-10-6 08:19:13 | 只看该作者

本帖子中包含更多资源

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

x
3
发表于 2016-10-7 09:20:27 | 只看该作者

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

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

x
4
 楼主| 发表于 2016-10-7 21:33:52 | 只看该作者

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

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

x
5
 楼主| 发表于 2016-10-7 22:03:57 | 只看该作者

本帖子中包含更多资源

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

x
6
发表于 2016-10-8 08:28:47 | 只看该作者

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

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

x
7
 楼主| 发表于 2016-10-9 19:41:22 | 只看该作者

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

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

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

本版积分规则

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

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

GMT+8, 2024-11-15 05:04 , Processed in 0.040936 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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