GetCutListItems() 宏里面怎么用,最后一条过不去

shituo · 发表于 2025-9-9 11:42:21

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 shituo 于 2025-9-9 11:45 编辑

Sub GetCutListItemsProperly()

Dim swApp
Dim swModel
Dim swConfigMgr
Dim swConfig
Dim vCutListItems
Dim swPart
Dim I
Dim swCutListItem
Dim itemCount
Dim ConfigName

      Dim swClassFact
      Dim swDocMgr
      Dim swDocument10
      Dim swDocument13

      Dim swDMConfigurationMgr
      Dim config

      Dim sDocFileName As String
      Dim nDocType
      Dim nRetVal
      Dim sLicenseKey As String

' On Error GoTo ErrorHandler

' 获取SolidWorks对象
  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc

  If swApp Is Nothing Then

      Set swApp = CreateObject("SldWorks.Application")
      swApp.Visible = True
End If
Set swPart = swModel
' 检查文档类型
If swModel Is Nothing Then
      MsgBox "请先打开一个SolidWorks文档。"
      Exit Sub
End If

If swModel.GetType() <> 1 Then ' swDocPART = 1
      MsgBox "请打开一个零件文档（.SLDPRT）。"
      Exit Sub
End If

   Set swConfigMgr = swModel.ConfigurationManager

' 设置要使用的配置名称
' configName = swModel.ConfigurationManager.ActiveConfiguration.Name ' 可以改为您需要的配置名称
' 指定配置名称
ConfigName = "默认"  ' 替换为你的配置名称
' swPart.UpdateCutList
' 获取指定名称的配置
' Set swConfig = swConfigMgr.GetConfigurationByName(configName)
   Set swConfig = swModel.ConfigurationManager.ActiveConfiguration
' Set swConfig = swModel.GetActiveConfiguration(configName)
If swConfig Is Nothing Then
      MsgBox "找不到配置: " & ConfigName

End If

' 检查是否具有切割清单特征
'Dim hasCutList As Boolean
'hasCutList = CheckCutListExists(swModel)
'If Not hasCutList Then
' MsgBox "文档中未找到切割清单特征"
' Exit Sub
'End If

' 获取配置管理器

' 确保切割清单已更新
' swConfig.UpdateCutList
''    swModel.UpdateCutList
'    获取切割清单项目 -从配置中获,,,为什么用下面两条都是提示438
'vCutListItems = swModel.GetCutListItems()
vCutListItems = swConfig.GetCutListItems()

End Sub

		自动登录	找回密码
密码			注册

通知

[求助] GetCutListItems() 宏里面怎么用,最后一条过不去

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块