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