How to check if a DrawingDimension is in a Selected set?
It looks like your code is trying to do something very similar to what is being discussed within another post right now. Check out some of the iLogic code being shown here:
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.
If you have time, please... Vote For My IDEAS 💡and Explore My CONTRIBUTIONS
Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum
Wesley Crihfield
(Not an Autodesk Employee)
I see. And you do you want to get all dimensions that are oriented vertically on you drawing, or just the ones that evaluate to kVerticalDiminsionType?
Also, I don't know if you have already considered this yet, but perhaps you could set up two different DimensionStyles to use for this scenario (one for vertical dims and one for horizontal dims). Then instead of attempting to manipulate many aspects of each dim, you could just set its Style to one of the two that fits the situation. Hopefully a Style can contain all needed specifications for these two scenarios, because that would make the job much easier.
If you need also need to inspect all other types of dimensions (besides the kVerticalDimensionType), we'll just have to look into getting the DimensionLine or similar object within each, then hopefully its 'Geometry', then maybe its Evaluator, so we can check the orientation that way. It may get kind of complicated, but may not be impossible.
Wesley Crihfield
(Not an Autodesk Employee)
What you said is pretty much exactly what I am doing. I have all the other code done. I just need to get the dims sorted out. As long as a dim <> kAngularDimensionType/ kAngularForeshortenedDimensionType/ kArcLengthDimensionType/ kArcLengthForeshortenedDimensionType/ kDiametricDimensionType I'll try to arrange them. Ill attach an image. The H = Horizontaltype, A = Alignedtype. The circled dims are my "Horizontal Dimensions" that ill arrange using whatever display style settings I set. The remainder will be arranged using another style setting. That way when I select I know for sure at least to me that they are my "horizontal" dimensions.
I think I may have a good starting point for you here. This iLogic code starts off by building a series of List objects. The first List is to hold all the different DrawingTypeEnum variations that aren't linear, so we can use this weed them out later. Since there were 6 non-linear types and 7 linear types, it was almost a toss-up as to which way to filter them. The next 3 List objects are to hold the dimensions, according to their orientation, as we filter through them. One for Horizontal dims, one or Vertical dims, and one for (other) dims that are neither Horizontal nor Vertical (most likely aligned). Then I start to loop through each sheet, then each DrawingDimension on each sheet. The first check in the filter system checking to see if this is any of the non-linear types. Then I check for the two simplest types Horizontal and Vertical. Then I start checking the orientation of their DimensionLine geometry. Then any that don't match any of these filters, get added to the last List (oODims). After all the loops and checks are done, you should have 3 filtered lists to work with. Now you can loop through each list applying your Style and/or any arrangement/alignment methods to them.
Here's the code:
If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOKOnly, "WRONG DOCUMENT TYPE")
Return
End If
Dim oDDoc As DrawingDocument = ThisDrawing.Document
'Build list of all non-linear DimensionTypeEnum variants to check against
Dim oNLTypes As New List(Of DimensionTypeEnum)
oNLTypes.Add(DimensionTypeEnum.kAngularDimensionType)
oNLTypes.Add(DimensionTypeEnum.kAngularForeshortenedDimensionType)
oNLTypes.Add(DimensionTypeEnum.kArcLengthDimensionType)
oNLTypes.Add(DimensionTypeEnum.kArcLengthForeshortenedDimensionType)
oNLTypes.Add(DimensionTypeEnum.kDiametricDimensionType)
oNLTypes.Add(DimensionTypeEnum.kParallelDiametricDimensionType)
'Build a list to hold all the Horizontally oriented dims
Dim oHDims As New List(Of DrawingDimension)
'Build a list to hold all the Vertically oriented dims
Dim oVDims As New List(Of DrawingDimension)
'Build a list to hold all the other Aligned (neither Horizontal nor Vertical) dims
Dim oODims As New List(Of DrawingDimension)
Dim oNonLinear As Boolean
For Each oSheet As Inventor.Sheet In oDDoc.Sheets
For Each oDDim As DrawingDimension In oSheet.DrawingDimensions
oNonLinear = False
For Each oDType As DimensionTypeEnum In oNLTypes
If oDDim.DimensionType = oDType Then oNonLinear = True
Next
If oNonLinear = False Then
If oDDim.DimensionType = DimensionTypeEnum.kHorizontalDimensionType Then
oHDims.Add(oDDim)
ElseIf oDDim.DimensionType = DimensionTypeEnum.kVerticalDimensionType Then
oVDims.Add(oDDim)
ElseIf TypeOf oDDim.DimensionLine Is LineSegment2d Then
Dim oLS2d As LineSegment2d = oDDim.DimensionLine
If oLS2d.Direction.X = 1 Or _
oLS2d.Direction.X = -1 Then
'It's Horizontal, so add it to our oHDims list
oHDims.Add(oDDim)
ElseIf oLS2d.Direction.Y = 1 Or _
oLS2d.Direction.Y = -1 Then
'It's Vertical, so add it to our oVDims list
oVDims.Add(oDDim)
End If
Else
'It's neither Horizontal or Vertical, so it must be at an angle
oODims.Add(oDDim)
End If
End If
Next
Next
'Now you can start iterating through each List and applying which ever Styles to them
'and do whatever alignment you want with them.
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.
Wesley Crihfield
(Not an Autodesk Employee)
