solidworks设计树特征遍历

只看该作者 · 发表于 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

只看该作者 · 发表于 2016-10-6 08:19:13

补充图片。。不知道为什么图片没上传成功

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

在API 帮助文件中有个宏，应该可能参考

' Preconditions: Part or assembly is open 条件:开启零件或装配体.
' Postconditions: None 结果:无----实现自动退回到每个特征,并作延迟
' NOTES: The delay between steps is set to 1 second.注意:每步延迟设置一钞
'---------------------------------
Option Explicit
Public Enum swDocumentTypes_e '文件类型常数
swDocNONE = 0
swDocPART = 1
swDocASSEMBLY = 2
swDocDRAWING = 3
End Enum
Public Enum swMoveRollbackBarTo_e '退回到目标常数
swMoveRollbackBarToEnd = 1
swMoveRollbackBarToPreviousPosition = 2
swMoveRollbackBarToBeforeFeature = 3
swMoveRollbackBarToAfterFeature = 4
End Enum
Sub main()
' Delay in seconds 延迟时间秒
Const DELAY As Single = 1#
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swAssy As SldWorks.AssemblyDoc
Dim swFeatMgr As SldWorks.FeatureManager
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim vFeatFace As Variant
Dim swFace As SldWorks.Face2
Dim sFeatName() As String
Dim sNow As Single
Dim nDocType As Long
Dim i As Long
Dim j As Long
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeatMgr = swModel.FeatureManager
Set swFeat = swModel.FirstFeature
nDocType = swModel.GetType
Select Case nDocType
Case swDocPART
Set swPart = swModel
Case swDocASSEMBLY
Set swAssy = swModel
End Select
'以下获取特征名称
ReDim sFeatName(0)
Do While Not swFeat Is Nothing
sFeatName(UBound(sFeatName)) = swFeat.Name
ReDim Preserve sFeatName(UBound(sFeatName) + 1)
Set swFeat = swFeat.GetNextFeature
Loop
' Loop over-allocates array by 1, so remove last (empty) entry循环数超出数组数为1,所以删除最后(空)项
ReDim Preserve sFeatName(UBound(sFeatName) - 1)
' Playback each feature in the FeatureManager design tree 在设计特征树中退回每一步
For i = 0 To UBound(sFeatName)
Debug.Print sFeatName(i)
bRet = swFeatMgr.EditRollback(swMoveRollbackBarToAfterFeature, sFeatName(i)) '退回命令
' Do not assert because you may be trying to roll back or roll forward
' to a feature that cannot be rolled back or forward to; for example,
' the Lighting or Annotations folder 灯光或注释文件夹
'Debug.Assert bRet
' Remove any previous highlights 去除原来的高亮
swModel.GraphicsRedraw2
' Highlight feature if it has any geometry 高亮相关的几何体
Select Case nDocType
Case swDocPART
Set swFeat = swPart.FeatureByName(sFeatName(i))
Case swDocASSEMBLY
Set swFeat = swAssy.FeatureByName(sFeatName(i))
End Select
vFeatFace = swFeat.GetFaces '获取特征相关面
If Not IsEmpty(vFeatFace) Then
For j = 0 To UBound(vFeatFace)
Set swFace = vFeatFace(j)
swFace.Highlight True '高亮相关面
Next j
End If
' Only pause if rollback is successful '在退回成功时延迟暂停
If bRet Then
sNow = Timer
While sNow + DELAY > Timer
' Allow SolidWorks to refresh screen 允计刷屏
DoEvents
Wend
End If
Next i
' Remove highlight from last feature 为下个特征去除高亮
swModel.GraphicsRedraw2
End Sub

复制代码

只看该作者 · 发表于 2016-10-7 21:33:52

pyczt 发表于 2016-10-7 09:20
在API 帮助文件中有个宏，应该可能参考

宏王。。大家都在这么称呼。。那我也这么称呼了。首先谢谢宏王。
我试了下你的宏，可以实现特征的退回和前进（此功能的实现为之后的操作奠定了基础）。。但是不知道是我solidworks版本的原因还是我引用的不对。。试的时候会报错（在面特征操作那里，我不清楚是什么原因试着改了几下也没成功，后来我就直接加了on error resume next）
这里我重新阐述一下我的想法。。
首先，这个想法产生于实际的应用中，由于没有solidworks PDM 所以零件的版本管理主要靠copy旧版本零件，然后给图号加一些升级符号来区别零件的版本，这样做有个明显的劣势，就是随着版本的升级，零件的数量会越来越多，查询旧版本的时候也不是很方便，比如移动了文件零件，对应的图纸很难找到原来在哪个文件夹，之前在学习solidworks自带的系列化配置的时候觉得可以用此功能管理零件的版本，结合本论坛中的配置选着宏和配置删除宏，可以高效的管理零件版本。。图纸也可以在一个文件里出（结合闷大的图纸内名称修改，解决了闷大的宏存在的一个小问题，大家要是有兴趣可以对比一下两个宏的区别）可以很方便的区分零件图纸的版本。之后我把我修改了的宏贴到5楼。供大家参考接着，问题来了，由于零件升级后可能变化很大，如果直接修改设计树中的特征很可能随着版本的升级特征弄得乱七八糟的，不容易维护，也不容易升级新版本，想了很久想出个解决方法，那就是将上一个版本的特征重新执行一遍，然后把上一个版本的特征放到设计树的文件夹中，如二楼图片中的旧版A，通过冻结栏将旧版冻结掉，新版特征修改就不会影响到原来旧版的特征，这样就可以完美解决特征混乱的问题。
最后，由于个人能力有限，API帮助不知道从何下手，所以目前没法独立完成实现上述宏的编写。。
希望大虾能出手相助。。不胜感激。。

只看该作者 · 发表于 2016-10-7 22:03:57

本帖最后由 knowbaby 于 2016-10-7 22:28 编辑

首先，原贴地址https://www.icax.org/thread-925975-2-1.html

闷大的宏中存在的问题见下

我在闷大的宏的基础上重新修改了一下解决了此问题

Sub main()
Dim PathName As String
Dim SheetName() As String
Dim ConfigName As String
Dim SplittedPathName() As String
Dim ModelName As String
On Error Resume Next
Set swApp = Application.SldWorks
Set drawing = swApp.ActiveDoc
If drawing Is Nothing Then
MsgBox "请打开图纸"
Exit Sub
End If
If drawing.GetType <> 3 Then Exit Sub
SheetName = drawing.GetSheetNames
SheetCount = drawing.GetSheetCount
'For i = 0 To SheetCount - 1
' drawing.ActivateSheet SheetName(i)
' Set swSheet = drawing.GetCurrentSheet
' swSheet.SetName "[ DISCUZ_CODE_0 ]quot; & i
'Next
SheetName = drawing.GetSheetNames
For i = 0 To SheetCount - 1 '更改图纸名称形式为图号+配置+N个"," 方便后面重新命名
drawing.ActivateSheet SheetName(i)
Set swView = drawing.GetFirstView.GetNextView
PathName = swView.GetReferencedModelName
ConfigName = swView.ReferencedConfiguration
SplittedPathName = Split(PathName, "")
ModelName = SplittedPathName(UBound(SplittedPathName))
ModelName = Left(ModelName, Len(ModelName) - 7)
Set swSheet = drawing.GetCurrentSheet
If ConfigName = "Default" Or ConfigName = "默认" Or ConfigName = "預設" Then
thissheetname = ModelName
Else
thissheetname = ModelName & ConfigName
End If
swSheet.SetName thissheetname
CurrentSheetName = swSheet.GetName
c = 1
While CurrentSheetName <> thissheetname
thissheetname = thissheetname & ","
swSheet.SetName thissheetname
CurrentSheetName = swSheet.GetName
c = c + 1
Wend
Next
SheetName = drawing.GetSheetNames
For i = 0 To SheetCount - 1 '更改同配置图纸形式为图号+配置+（第几张图纸）
drawing.ActivateSheet SheetName(i)
Set swView = drawing.GetFirstView.GetNextView
SheetName = drawing.GetSheetNames
Temp = 1
If Right(SheetName(i), 1) = "," Then
While Right(SheetName(i), 1) = ","
SheetName(i) = Left(SheetName(i), Len(SheetName(i)) - 1)
Temp = Temp + 1
Wend
Set swSheet = drawing.GetCurrentSheet
swSheet.SetName SheetName(i) & "(" & Temp & ")"
Else
Set swSheet = drawing.GetCurrentSheet
swSheet.SetName SheetName(i) & "(" & Temp & ")"
End If
Next
SheetName = drawing.GetSheetNames
drawing.ActivateSheet SheetName(0)
End Sub

复制代码

其中注释掉了闷大的$$ & i
因为一般情况下不会出现此类情况，并且如果批量零件图纸操作的时候影响运行速度 @Francis

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

knowbaby 发表于 2016-10-7 21:33
宏王。。大家都在这么称呼。。那我也这么称呼了。首先谢谢宏王。
我试了下你的宏，可以实现特征的退回和 ...

请直呼PYCZT就可以，我水平有限，配不上那个称呼。
用配置的方法去管理新旧版文件，我觉得不妥。我个人认为旧版文件应该锁定或断开外部参考，另存为同名带后缀名的文件保存，工程图也复制出来，工程图再转DWG和PDF保存。

只看该作者 · 发表于 2016-10-9 19:41:22

pyczt 发表于 2016-10-8 08:28
请直呼PYCZT就可以，我水平有限，配不上那个称呼。
用配置的方法去管理新旧版文件，我觉得不妥。我个人 ...

好的 PYCZT
我发现可以把零件另存为其它名称。。然后插入该零件可以完美把特征都插入到设计树中。但是有个问题就是需要处理一下特征。。不过是个进步了

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

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

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源