AnsweredAssumed Answered

Looking For an auto arrange dimensions macro

Question asked by Justin Pires on Sep 25, 2019
Latest reply on Sep 26, 2019 by Justin Pires

Like • Show 0 Likes0
Comment • 4

I'm looking for a macro that will grab all dimension and use Auto arrange.

Ive found the below two snip its of code, is it as simple as take the line from one and replace the center dimension line?

from Insert Auto Arrange Dimensions Macro? I've got this line

status = swModelDocExt.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)

and the select all dims from this post Select and center all dimensions on a drawing

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swDwg As SldWorks.DrawingDoc
Dim swDispDim As SldWorks.DisplayDimension
Dim swView As SldWorks.View
Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swDwg = swDoc
Set swView = swDwg.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
swDispDim.CenterText = True

insert my line here? status = swModelDocExt.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)
Set swDispDim = swDispDim.GetNext5
Wend
Set swView = swView.GetNextView
Wend

End Sub

Thanks for your time!

Fifi Riri Sep 25, 2019 11:58 PM

Correct Answer

Hello, try this:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDwg As SldWorks.DrawingDoc
Dim swDispDim As SldWorks.DisplayDimension
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDwg = swModel
swModel.ClearSelection2 True
Set swView = swDwg.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set swAnn = swDispDim.GetAnnotation
boolstatus = swAnn.Select3(True, Nothing)
Set swDispDim = swDispDim.GetNext5
Wend
boolstatus = swModel.Extension.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)
Set swView = swView.GetNextView
Wend
swModel.ClearSelection2 True
End Sub

See the reply in context

No one else had this question

Outcomes

Fifi Riri Sep 25, 2019 11:58 PM

Hello, try this:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDwg As SldWorks.DrawingDoc
Dim swDispDim As SldWorks.DisplayDimension
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDwg = swModel
swModel.ClearSelection2 True
Set swView = swDwg.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set swAnn = swDispDim.GetAnnotation
boolstatus = swAnn.Select3(True, Nothing)
Set swDispDim = swDispDim.GetNext5
Wend
boolstatus = swModel.Extension.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)
Set swView = swView.GetNextView
Wend
swModel.ClearSelection2 True
End Sub

Actions

Justin Pires @ Fifi Riri on Sep 26, 2019 9:18 AM

That worked pretty darn well! As is that's a vast improvement, there is one dim that actually moved further away and I suspect that's a limitation of the Auto Arrange feature not the macro. Am I correct?

Before

and after

And I see that the code wasn't as simple as I thought, no cut and paste haha.

Actions

Fifi Riri @ Justin Pires on Sep 26, 2019 9:31 AM

I think the Auto Arrange function moves the dimensions at the edge of the view. That's why the 3/16" moves away.

Actions

Justin Pires @ Fifi Riri on Sep 26, 2019 9:38 AM

Thanks again Fifi!

Actions

4 Replies

Fifi Riri Sep 25, 2019 11:58 PM
Unmark Correct
Correct Answer
Hello, try this:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDwg As SldWorks.DrawingDoc
Dim swDispDim As SldWorks.DisplayDimension
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDwg = swModel
swModel.ClearSelection2 True
Set swView = swDwg.GetFirstView
While Not swView Is Nothing
Set swDispDim = swView.GetFirstDisplayDimension5
While Not swDispDim Is Nothing
Set swAnn = swDispDim.GetAnnotation
boolstatus = swAnn.Select3(True, Nothing)
Set swDispDim = swDispDim.GetNext5
Wend
boolstatus = swModel.Extension.AlignDimensions(swAlignDimensionType_e.swAlignDimensionType_AutoArrange, 0.001)
Set swView = swView.GetNextView
Wend
swModel.ClearSelection2 True
End Sub
Like • Show 2 Likes2
Actions
- Justin Pires @ Fifi Riri on Sep 26, 2019 9:18 AM
  Mark Correct
  Correct Answer
  That worked pretty darn well! As is that's a vast improvement, there is one dim that actually moved further away and I suspect that's a limitation of the Auto Arrange feature not the macro. Am I correct?
  Before
  
  and after
  
  And I see that the code wasn't as simple as I thought, no cut and paste haha.
  Like • Show 0 Likes0
  Actions
  - Fifi Riri @ Justin Pires on Sep 26, 2019 9:31 AM
    Mark Correct
    Correct Answer
    I think the Auto Arrange function moves the dimensions at the edge of the view. That's why the 3/16" moves away.
    Like • Show 1 Like1
    Actions
    - Justin Pires @ Fifi Riri on Sep 26, 2019 9:38 AM
      Mark Correct
      Correct Answer
      Thanks again Fifi!
      Like • Show 1 Like1
      Actions

Looking For an auto arrange dimensions macro

Outcomes

Related Content

Recommended Content

Incoming Links