标题: 装配体属性零件数量遍历和批量修改零件属性 [打印本页] 作者: xiaomu007 时间: 2016-11-21 09:19 标题: 装配体属性零件数量遍历和批量修改零件属性 装配体属性零件数量遍历和批量修改零件属性能否合并呢？就是在打开装配体的时候自动遍历装配体下面所有的零件的数量和属性。谁能给合并下啊作者: bjcgm2000 时间: 2016-11-25 07:02
论坛中已经包含了渔具和鱼饵了。作者: lgzhao 时间: 2016-11-26 19:30
可是我不会弄啊。有人出来帮忙吗？作者: kai0603 时间: 2016-12-1 13:27
Dim TopDocPathOnly As String
Dim PartsCollect() As String '遍历清单（阵列）
Dim InCollectCount As Double '遍历清单长度
Dim CustomInfoQTY As String
Dim S1 As Integer
Dim S2 As Integer
Dim Path_Name As String
Dim Code_Name_C As String
Dim Code_ As String
Dim Name_ As String
Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim swConfig As SldWorks.Configuration
Dim CustPropMgr As SldWorks.CustomPropertyManager
Sub main096()
Set swApp = Application.SldWorks 'SW对象
Set TopDoc = swApp.ActiveDoc '总装对象
If TopDoc.GetType <> 2 Then Exit Sub '不是装配=退出
TopDocPathSplit = Split(TopDoc.GetPathName, "\") '分割
TopDocName = TopDocPathSplit(UBound(TopDocPathSplit)) '总装文件名称
TopDocName = Left(TopDocName, Len(TopDocName) - 7) '总装文件名称（排除.SLDASM）
TopDocPathOnly = Mid(TopDoc.GetPathName, 1, InStrRev(TopDoc.GetPathName, "\", -1)) '总装的完整目录
TopConfString = TopDoc.GetActiveConfiguration.name '总装配置名称
End If
If ChildType = 2 Then
SubAsm ChildModel, ChildConfString '如果是装配则向下遍历
End If
End If
End If
End If
Next
End Function作者: lht5610 时间: 2017-1-13 06:24
这个可以在exel表中运行吗？好像这是个sw的宏吧作者: a13058637792 时间: 2017-1-13 20:19
是的作者: houzuonanhai 时间: 2017-1-23 12:22
假设流程如下可否接受：
1. 在SW手动打开总组合件
2. 运行特定的巨集（宏）
3. 巨集自动打开指定Excel文档匯入总组合件内所有次组件及零件的属性
4. 在Excel内按照自己的意愿手动修改属性
5. 点选Excel内的特定巨集，巨集会自动将表格内的属性写进次组件及零件
6. 回到SW可发现所有的属性已经更新，保存一下即可作者: liuqw790723 时间: 2017-2-6 12:20
楼上的，这个流程也很好啊。不知道能否贴出你的代码呢？就是不知道导入EXCEL文件后。零件的路径。能不能也跟着出现呢？不过我还是想问下。就是在EXC里能不能打开一个装配体。然后他就会遍历出所有的零件及属性呢啊？作者: hhh001 时间: 2022-7-3 23:41
活到老学到老！作者: qq804848912 时间: 2022-7-8 20:06