API: How to move all dimensions in a drawing to another layer (VBA, VB.NET, C#)

File uploaded by Joyce Bossom

on Dec 22, 2010•Last modified by Joyce Bossom

on Nov 2, 2017

Version 4Show Document

Like • Show 6 Likes6
Comment • 2
View in full screen mode

This example shows how to move all dimensions in a drawing to another layer.

Extract the archive to a convenient location.
Open a drawing with dimensions.
Create the "HIDE" layer in the drawing.
Run the macro (VBA, VB.NET, or C#) in the Macro Editor.
Select a dimension in the view.
The layer dropdown displays the new layer of the dimension.

Note:

- Subscription Services required for full access.

- Looking for more API Examples?

Copyright © 2011 Dassault Systèmes SolidWorks Corp. All rights reserved.
Do not distribute or reproduce without the written consent of Dassault Systèmes SolidWorks Corp.

Attachments

MoveDimensionsToLayer.zip3.3 MB

Outcomes

Brian McEwen Jun 12, 2012 9:01 AM

I'm new to macros and API stuff, but this didn't work for me. Solidworks 2010. The drawing I'm using does not have the dimensions on any layer. Seems like this could be useful I could make it work.

"Compile Error: Can't find project or library"

When I run the macro I'm selecting the "MoveDimensionsToLayer.swp" file.

Thanks

Actions

Arlene Garfield Jul 11, 2019 1:55 PM

I have an modified version of the macro (very small change) that will move views with True Dim to a different Layer "Truedims" and move the rest to a "DIMS" layer (instead of "Hide")

It was created as some user that work with multi-parts and weldments will believe they are getting projected dim when in fact they are getting True Dimensions. By setting the "Truedims" layer to a color of your choice you can quickly see problem dims in a drawing and decide how you want to correct the issue.

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

Option Explicit

' name of layer to move display dimensions to
' note that this must exist
Const ToLayer As String = "DIMS"
Const MLayer As String = "TrueDims"

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Dim swDispDim As SldWorks.DisplayDimension
Dim NumShts As Long
Dim i As Long

Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel

NumShts = swDraw.GetSheetCount
For i = 1 To NumShts
' blindly go to the first sheet
swDraw.SheetPrevious
Next i

For i = 1 To NumShts
Set swView = swDraw.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set swAnn = swDispDim.GetAnnotation

If swView.ProjectedDimensions = False Then

swAnn.Layer = MLayer
Debug.Print "Layer is " & swAnn.Layer

Else
swAnn.Layer = ToLayer
Debug.Print "Layer is " & swAnn.Layer

End If

Set swDispDim = swDispDim.GetNext5
Wend

Set swView = swView.GetNextView
Wend

swDraw.SheetNext
Next i
End Sub

Actions

2 Comments

Brian McEwen Jun 12, 2012 9:01 AM
I'm new to macros and API stuff, but this didn't work for me. Solidworks 2010. The drawing I'm using does not have the dimensions on any layer. Seems like this could be useful I could make it work.

"Compile Error: Can't find project or library"

When I run the macro I'm selecting the "MoveDimensionsToLayer.swp" file.

Thanks
Like • Show 0 Likes0
Actions
Arlene Garfield Jul 11, 2019 1:55 PM
I have an modified version of the macro (very small change) that will move views with True Dim to a different Layer "Truedims" and move the rest to a "DIMS" layer (instead of "Hide")

It was created as some user that work with multi-parts and weldments will believe they are getting projected dim when in fact they are getting True Dimensions. By setting the "Truedims" layer to a color of your choice you can quickly see problem dims in a drawing and decide how you want to correct the issue.

'-------------------------------------------------------
Option Explicit
' name of layer to move display dimensions to
' note that this must exist
Const ToLayer As String = "DIMS"
Const MLayer As String = "TrueDims"
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Dim swDispDim As SldWorks.DisplayDimension
Dim NumShts As Long
Dim i As Long

Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel

NumShts = swDraw.GetSheetCount
For i = 1 To NumShts
' blindly go to the first sheet
swDraw.SheetPrevious
Next i

For i = 1 To NumShts
Set swView = swDraw.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set swAnn = swDispDim.GetAnnotation

If swView.ProjectedDimensions = False Then

swAnn.Layer = MLayer
Debug.Print "Layer is " & swAnn.Layer

Else
swAnn.Layer = ToLayer
Debug.Print "Layer is " & swAnn.Layer

End If

Set swDispDim = swDispDim.GetNext5
Wend

Set swView = swView.GetNextView
Wend

swDraw.SheetNext
Next i
End Sub
Like • Show 1 Like1
Actions

API: How to move all dimensions in a drawing to another layer (VBA, VB.NET, C#)

Attachments

Outcomes

Related Content

Recommended Content

Incoming Links