AnsweredAssumed Answered

Adding Model to second sheet of drawing

Question asked by Robert Caste on Aug 8, 2018
Latest reply on Aug 8, 2018 by Deepak Gupta

Like • Show 0 Likes0
Comment • 3

I’m new to VB and thought this would be a simple task but it’s not proving to be. I need to activate the second sheet of a drawing template after it has been opened by a macro that places views and a BOM on the front page and insert the model in the predefined views on the second page template. I know I can use Insermodelinpredefinedview and I’m pointing to the sheet to activatesheet (sheetname) with the name of the sheet, but it errors to “empty” on this line. Does anyone have any sample code of something close to this or suggestions?

No one else has this question

Outcomes

3 Replies

Deepak Gupta Aug 8, 2018 12:12 PM
Mark Correct
Correct Answer
When you are using InsertModelInPredefinedView, are you giving the model full path as the parameter? If not then do that and try again.

Here are two examples you can look at

API: How to load a reference model into a drawing view
API equivalent of "Make drawing from part/assembly"
Like • Show 0 Likes0
Actions
- Robert Caste @ Deepak Gupta on Aug 8, 2018 1:04 PM
  Mark Correct
  Correct Answer
  Even when removing the insertmodelinpredifinedview code I still can’t get an open document to activate the second page.
  
  Dim swdrawmodel As SldWorks.ModelDoc2
  Dim sheetnames() As String
  Dim i As Long
  Dim currentsheet As String
  
  Dim swModel As SldWorks.ModelDoc2
  Dim vSheetNames As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swSheet As SldWorks.Sheet
  'Dim bRet As Boolean
  Dim swApp As SldWorks.SldWorks
  
  Sub main()
  
  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc
  Set swDraw = swModel
  Set swdrawmodel = swDraw
  Set swSheet = swDraw.GetCurrentSheet
  currentsheet = swSheet.GetName
  sheetnames = swDraw.GetSheetNames
  
  swDraw.ActivateSheet (apucolumn2)
  Like • Show 0 Likes0
  Actions
  - Deepak Gupta @ Robert Caste on Aug 8, 2018 1:51 PM
    Mark Correct
    Correct Answer
    Try these codes and modify as needed.
    
    Option Explicit
        Dim swApp                       As SldWorks.SldWorks
        Dim swModel                     As SldWorks.ModelDoc2
        Dim swDraw                      As SldWorks.DrawingDoc
        Dim vSheetName                  As Variant
        Dim swSheet                     As Sheet
    
    Sub main()
        Set swApp = Application.SldWorks
        Set swModel = swApp.ActiveDoc
        Set swDraw = swModel
    
           vSheetName = swDraw.GetSheetNames
           swDraw.ActivateSheet vSheetName(1)
    
            Set swSheet = swDraw.GetCurrentSheet
            If (swSheet.IsLoaded) Then
               Debug.Print vSheetName(1) & " is loaded."
            Else
                 Debug.Print vSheetName(1) & " is not loaded."
            End If
    
    End Sub
    Like • Show 0 Likes0
    Actions

Adding Model to second sheet of drawing

Outcomes

Related Content

Recommended Content