AnsweredAssumed Answered

swOpenDocOptions_Silent doesn't work with suppressed components

Question asked by Mike Campbell on Jun 18, 2015
Latest reply on Jun 18, 2015 by Adam Hoffman

Like • Show 0 Likes0
Comment • 7

The snippet below works as expected with unsuppressed components but suppressed components are visible when opened. I'm looking for any explanation/solution.

If InStr(1, sFileNameAndPath, ".sldasm") = 0 And InStr(1, sFileNameAndPath, ".SLDASM") = 0 Then

Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocPART, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)

Else

Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocASSEMBLY, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)

End If

No one else has this question

Outcomes

7 Replies

Adam Hoffman Jun 18, 2015 10:45 AM
Mark Correct
Correct Answer
Have you tried leaving the configuration string blank?
Like • Show 0 Likes0
Actions
- Mike Campbell @ Adam Hoffman on Jun 18, 2015 11:06 AM
  Mark Correct
  Correct Answer
  I tried with no difference.
  Like • Show 0 Likes0
  Actions
  - Adam Hoffman @ Mike Campbell on Jun 18, 2015 11:53 AM
    Mark Correct
    Correct Answer
    Could you post a little more code so we can see what's going on exactly?
    Like • Show 0 Likes0
    Actions
    - Mike Campbell @ Adam Hoffman on Jun 18, 2015 12:55 PM
      Mark Correct
      Correct Answer
      Sub ListCustomProperty(strCompRef As String, sFileNameAndPath As String, strRefCfg As String)
      
      Dim swApp                  As SldWorks.SldWorks
      Dim swIndividualItemConfig As SldWorks.Configuration
      Dim swCustPropMgr          As SldWorks.CustomPropertyManager
      Dim lRetVal                As Long
      Dim vPropNames              As Variant
      Dim vPropTypes              As Variant
      Dim vPropValues            As Variant
      Dim ValOut                  As String
      Dim ResolvedValOut          As String
      Dim wasResolved            As Boolean
      Dim resolved                As Variant
      Dim nNbrProps              As Long
      Dim j                      As Long
      Dim custPropType            As Long
      Dim swIndividualItem        As SldWorks.ModelDoc
      Dim swFileError            As Long
      Dim swFileWarning          As Long
      
      '...continue building the sublist...
      Open "D:\Configurator\PropertyList.txt" For Append As #1
      
      Set swApp = Application.SldWorks
      
      'Establish whether the item is an individual part or an subassembly and open file
      If InStr(1, sFileNameAndPath, ".sldasm") = 0 And InStr(1, sFileNameAndPath, ".SLDASM") = 0 Then
          Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocPART, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)
      Else
          Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocASSEMBLY, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)
      End If
      Like • Show 0 Likes0
      Actions
      - Adam Hoffman @ Mike Campbell on Jun 18, 2015 1:08 PM
        Mark Correct
        Correct Answer
        So are you saying that the swIndividualItem is nothing, or does it return the modeldoc object but you want it displayed in the active window?
        
        I would also suggest writing your if statement like this:
        
        If InStr(1, UCase(sFileNameAndPath), ".SLDASM") = 0 Then
        Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocPART, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)
        Else
        Set swIndividualItem = swApp.OpenDoc6(sFileNameAndPath, swDocASSEMBLY, swOpenDocOptions_Silent, strRefCfg, swFileError, swFileWarning)
        End If
        Like • Show 0 Likes0
        Actions
        Mike Campbell @ Adam Hoffman on Jun 18, 2015 1:26 PM
        Mark Correct
        Correct Answer
        There's no issue with it finding and opening all the models. Everything in the macro works as intended except some of the models (the suppressed models) don't open "silent".
        Like • Show 0 Likes0
        Actions
        Adam Hoffman @ Mike Campbell on Jun 18, 2015 2:05 PM
        Mark Correct
        Correct Answer
        Well, sorry I can't be of more help. I don't see anything in the remarks in the API help to point to a solution for OpenDoc6.
        Like • Show 0 Likes0
        Actions

swOpenDocOptions_Silent doesn't work with suppressed components

Outcomes

Related Content

Recommended Content