问题描述:[backcolor=rgba(148, 163, 184, 0.03)]帮我写一个solidworks2020的宏程序,该程序可以遍历正在打开的装配体,并对装配体下的每个零件斤进行图号分离的操作,并自动填入材质属性。
以下是Gpt自动写的代码
Option Explicit
Sub SeparatePartNumbersAndSetMaterialProperties()
'获取当前打开的装配体
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
'检查是否打开了装配体
If swModel.GetType swDocASSEMBLY Then
MsgBox "请先打开一个装配体"
Exit Sub
End If
'获取所有子零件
Dim swAssembly As SldWorks.AssemblyDoc
Set swAssembly = swModel
Dim swComponent As SldWorks.Component2
Set swComponent = swAssembly.GetFirstVisibleComponent
'遍历所有子零件
While Not swComponent Is Nothing
'获取子零件的图号
Dim PartNumber As String
PartNumber = swComponent.GetModelName2()
'分离图号
Dim PartNumberArray() As String
Part
...查看全文