Insert Model Annotations

This example shows how to automatically insert a model's dimensions marked for drawings into a drawing.

'--------------------------------------------------

'

' Preconditions: Any model document is active.

'

' Postconditions:

'             (1) New drawing document is opened.

'             (2) Drawing view of the specified model is created.

'             (3) Any dimensions in the specified model that

'                 are marked for drawings, including

'                 any duplicate dimensions, appear

'                 in the drawing view in the newly opened

'                 drawing document.

'

'--------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swPart As SldWorks.PartDoc

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim swDrawing As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim swAnnotations As Variant

Dim retval As String

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

Set swSelMgr = swModel.SelectionManager

retval = swApp.GetUserPreferenceStringValue(swDefaultTemplateDrawing)

Set swModel = swApp.NewDocument(retval, 0, 0, 0)

Set swDrawing = swModel

' Substitute the name of your model that contains dimensions marked for drawings

Set swView = swDrawing.CreateDrawViewFromModelView3("C:\Test\InsertModelAnnotations.SLDPRT", "*Front", 0.1314541543147, 0.1407887187817, 0)

boolstatus = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)

boolstatus = swDrawing.ActivateView("Drawing View1")

swModel.ClearSelection2 True

swAnnotations = swDrawing.InsertModelAnnotations3(0, swInsertDimensionsMarkedForDrawing, True, False, False, False)

End Sub