Back to Methods Reference

VL : RetVal = (vla-AddDimAligned object ExtLine1Point ExtLine2Point TextPosition)

(vla-AddDimAligned mspace pt1 pt2 pt3)

• Object : ModelSpace Collection, PaperSpace Collection, Block
  The object or objects this method applies to.
• ExtLine1Point : Variant (three-element array of doubles); input-only
  The 3D WCS coordinates specifying the first endpoint of the extension line.
• ExtLine2Point : Variant (three-element array of doubles); input-only
  The 3D WCS coordinates specifying the second endpoint of the extension line.
• TextPosition : Variant (three-element array of doubles); input-only
  The 3D WCS coordinates specifying the text position.
• RetVal : DimAligned object
  The newly created aligned dimension.

Remarks

In aligned dimensions, the dimension line is parallel to the extension line origins. The extension line origins are specified using the ExtLine1Point and ExtLine2Point properties.

Example :

(defun c:al-adddimaligned ()

(vl-load-com)

(setq thisdrawing (vla-get-activedocument 
                       (vlax-get-acad-object)))

(setq mspace (vla-get-modelspace thisdrawing))

(setq pt1 (vlax-3d-point (setq pt 
               (getpoint "First alignment point: "))))

(setq pt2 (vlax-3d-point 
               (getpoint "Second alignment point: " pt)))

(setq pt3 (vlax-3d-point 
               (getpoint "Text insertion point: ")))

(vla-AddDimAligned mspace pt1 pt2 pt3)

(princ)

);defun