10-14-2022
01:38 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-14-2022
01:38 PM
You can see if this works for you. (Reference Link)
If TypeOf oObj.DimensionLine Is LineSegment2d Then
' MsgBox(oObj.DimensionLine.Direction.X)
' MsgBox(oObj.DimensionLine.Direction.Y)
If oObj.DimensionLine.Direction.X = 1 Then
MsgBox("Dimension is Horizontal.")
Else If oObj.DimensionLine.Direction.Y = -1 Then
MsgBox("Dimension is Vertical.")
End If
End If
If this solved your problem or answered your question, please click ACCEPT SOLUTION.
If this helped you, please click LIKE.
If this helped you, please click LIKE.