我用ChatGpt自动写的遍历装配体下的零件并自动进行图号分离和填材质属性的尝试

wsbty2018 · 发表于 2023-4-16 16:34:02

问题描述：[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
      PartNumberArray = Split(PartNumber, "-")

      '设置子零件的图号属性
      swComponent.CustomInfo2("图号") = PartNumberArray(0)
      swComponent.CustomInfo2("序号") = PartNumberArray(1)

      '设置子零件的材质属性
      Dim MaterialName As String
      MaterialName = swComponent.MaterialIdName()
      MaterialName = Right(MaterialName, Len(MaterialName) - InStr(MaterialName, "|"))
      swComponent.Extension.CustomPropertyManager("").Set "材料名", MaterialName

      '获取下一个子零件
      Set swComponent = swAssembly.GetNextVisibleComponent(swComponent)
Wend

'提示操作完成
MsgBox "图号分离和材质属性设置完成"

End Sub

完了后还有解释

[backcolor=rgba(148, 163, 184, 0.03)]这个宏程序可以遍历打开的装配体，并对装配体下的每个零件进行图号分离的操作，并自动填入材质属性。具体实现过程如下：