Creates an ordinate dimension given the definition point and the leader endpoint.
Supported platforms: Windows only
VBA:
RetVal = object.AddDimOrdinate(DefinitionPoint, LeaderEndPoint, UseXAxis)
Type: Block, ModelSpace, PaperSpace
The objects this method applies to.
Access: Input-only
Type: Variant (three-element array of doubles)
The 3D WCS coordinates specifying the point to be dimensioned.
Access: Input-only
Type: Variant (three-element array of doubles)
The 3D WCS coordinates specifying the endpoint of the leader. This will be the location at which the dimension text is displayed.
Access: Input-only
Type: Integer
Ordinate dimensions display the X or Y coordinate of an object along with a simple leader line. The absolute value of the coordinate is used according to the prevailing standards for ordinate dimensions.
An ordinate dimension measuring the absolute X position of a point tangent to a circle
VBA:
Sub Example_AddDimOrdinate() ' This example creates an ordinate dimension in model space. Dim dimObj As AcadDimOrdinate Dim definingPoint(0 To 2) As Double Dim leaderEndPoint(0 To 2) As Double Dim useXAxis As Long ' Define the dimension definingPoint(0) = 5#: definingPoint(1) = 5#: definingPoint(2) = 0# leaderEndPoint(0) = 10#: leaderEndPoint(1) = 5#: leaderEndPoint(2) = 0# useXAxis = 5# ' Create an ordinate dimension in model space Set dimObj = ThisDrawing.ModelSpace.AddDimOrdinate(definingPoint, leaderEndPoint, useXAxis) ZoomAll End Sub
Visual LISP:
(vl-load-com) (defun c:Example_AddDimOrdinate() ;; This example creates an ordinate dimension in model space. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the dimension (setq definingPoint (vlax-3d-point 5 5 0) leaderEndPoint (vlax-3d-point 10 5 0) useXAxis 5) ;; Create an ordinate dimension in model space (setq modelSpace (vla-get-ModelSpace doc)) (setq dimObj (vla-AddDimOrdinate modelSpace definingPoint leaderEndPoint useXAxis)) (vla-ZoomAll acadObj) )