How to check rotated dimension is horizontal or vertical

[tim11_manhhieu]

I have searched that there seems to be no direct method to determine whether the rotated dimension is horizontal or vertical, and if base on the text position and line dimension positions to calculate, there also seems to be no method to get the coordinates.

[Ed__Jobe]

This thread has the solution. Although it's in C#, you should be able to understand the principles.

[tim11_manhhieu]

There is no solution in that article.

The article mentions rotation, but VBA does not support it.

I have to ask the user to input the type of dimension.

[Ed__Jobe]

---

@tim11_manhhieu wrote:

There is no solution in that article.

---

That thread has two solutions as summarized in this post, and an AcadDimRotated object does have a Rotation property. Here's a sample to get you started.

Public Function IsHoriz(ent As AcadEntity) As String
    
    Select Case ent.ObjectName
        Case Is = "acDimRotated"
            Dim dr As AcadDimRotated
            Set dr = ent
            If dr.Rotation = 0 Or dr.Rotation = PI Then
                IsHoriz = "horizontal"
            ElseIf dr.Rotation = PI / 2 Or dr.Rotation = 3 * PI / 2 Then
                IsHoriz = "vertical"
            Else
                IsHoriz = "n/a"
            End If
            
        Case Is = "acDimAligned"
            'You can add the code for an aligned dimension.
        Case Else
            IsHoriz = "Error: Not a dimension object."
        
    End Select
End Function

Public Function PI() As Double
  PI = Atn(1) * 4
End Function

[tim11_manhhieu]

thanks for your respond.

I tested, both case Horizontal or Vertical, dr.Rotation return zero 0.

[Ed__Jobe]

It’s no wonder you get 0, you commented out all the code! Dr is an object that needs to be instantiated. When you comment out the code that sets it, it is null. So all its properties will be default values. Use the function as I wrote it and call it from your main method. 

Sub Main
  Dim ent As AcadEntity
  Dim results As String
  ' code to select an entity 
  results = IsHoriz(ent)
  Select Case = results 
    Case = "horizontal"
      'Do something 
    Case = "vertical"
      'Do something
  End Select
End Sub 

[tim11_manhhieu]

I modified code but it is not working.

Option Explicit

Sub Main()

    Dim ent As acadEntity
    Dim results As String
    Dim pt As Variant
    
    ThisDrawing.Utility.GetEntity ent, pt, "Pick dim: "
    
    results = IsHoriz(ent)
    
    Select Case results
    
    Case Is = "horizontal"
        Debug.Print "horizontal"
    Case Is = "vertical"
        Debug.Print "vertical"
    
    End Select

End Sub

Public Function IsHoriz(ent As acadEntity) As String
    
    Select Case ent.ObjectName
    
        Case Is = "AcDbRotatedDimension"
        
            Dim dr As AcadDimRotated
            Set dr = ent
            If dr.Rotation = 0 Or dr.Rotation = PI Then
                IsHoriz = "horizontal"
            ElseIf dr.Rotation = PI / 2 Or dr.Rotation = 3 * PI / 2 Then
                IsHoriz = "vertical"
            Else
                IsHoriz = "n/a"
            End If
            
        Case Else
            IsHoriz = "Error: Not a dimension object."
        
    End Select
    
End Function

Public Function PI() As Double
    PI = Atn(1) * 4
End Function

[Ed__Jobe · Accepted solution]

Although the AcadDimRotated object has a Rotation property, it seems to always be zero. So there's no way to figure out horizontal or vertical in ActiveX. You would need to use C# or possibly lisp.

[tim11_manhhieu]

thank you.