AnsweredAssumed Answered

Activate document (on top)

Question asked by Willem Van Opstal on Mar 4, 2016
Latest reply on Mar 5, 2016 by Deepak Gupta
  • Comment • 5

I created a small script which opens a document of your choice. Check the code below to see how.

Here's my problem: It is still possible to open a document, even when it's already open. This makes it confusing, so I'd like to have this document on top of the other open files. (is this clear??).

I would like to add another script which 'activates' the document which is already open.

 

How can this be achieved?

 

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim pathMacro As String

Dim pathModels As String

Dim pathModel As String

 

Private Sub OpenMe_Click()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

pathMacro = swApp.GetCurrentMacroPathFolder

pathModels = pathMacro & "\Models\"

 

Select Case Me.ComboBox.value

    Case "Bicycle Rack"

        Set Part = swApp.OpenDoc6(pathModels & "Bicycle Rack\Bicycle Rack.SLDASM", 2, 0, "", longstatus, longwarnings)

Case etcetera etcetera.....        

End Select

End

End Sub

Deepak Gupta
Deepak Gupta Mar 5, 2016 7:58 AM
Correct Answer

Try these codes

 

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim errors As Long

Sub main()

    Set swApp = Application.SldWorks   

    swApp.ActivateDoc3 "Already open file name here", False, swRebuildOnActivation_e.swRebuildActiveDoc, errors  

End Sub

See the reply in context
No one else had this question

Outcomes

    Visibility: API/Macros1214 Views
    Last modified on Mar 4, 2016 12:14 PM