Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
tyler.warner
in reply to: C_Haines_ENG

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.