Specifies the endpoint of the first extension line.
Supported platforms: Windows only
VBA:
object.ExtLine1EndPoint
Type: Dim3PointAngular, DimAngular
The objects this property applies to.
Read-only: No
Type: Variant (three-element array of doubles)
A 3D coordinate representing the endpoint of the first extension line.
The ExtLine1EndPoint and ExtLine2EndPoint properties contain the endpoints of the extension lines. If no extension lines exist for a given dimension, these points will equal ExtLine1StartPoint and ExtLine2StartPoint.
VBA:
Sub Example_ExtLine1EndPoint() ' This example creates an angular dimension. It then changes ' the location of the ExtLine1EndPoint. Dim dimObj As AcadDimAngular Dim angVert(0 To 2) As Double Dim FirstPoint(0 To 2) As Double Dim SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double ' Define the dimension angVert(0) = 0#: angVert(1) = 5#: angVert(2) = 0# FirstPoint(0) = 1#: FirstPoint(1) = 7#: FirstPoint(2) = 0# SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0# TextPoint(0) = 3#: TextPoint(1) = 5#: TextPoint(2) = 0# ' Create the angular dimension in model space Set dimObj = ThisDrawing.ModelSpace.AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint) ZoomAll MsgBox "The current value of ExtLine1EndPoint is " & dimObj.ExtLine1EndPoint(0) & ", " & dimObj.ExtLine1EndPoint(1) & ", " & dimObj.ExtLine1EndPoint(2), vbInformation, "ExtLine1EndPoint Example" ' Change the endpoint of the first extension line SecondPoint(0) = 0: SecondPoint(1) = 3: SecondPoint(2) = 0 dimObj.ExtLine1EndPoint = SecondPoint dimObj.Update ' Return the endpoint of the first extension line ' Note that the return value is a Variant Dim retPnt As Variant retPnt = dimObj.ExtLine1EndPoint MsgBox "The new value of ExtLine1EndPoint is " & dimObj.ExtLine1EndPoint(0) & ", " & dimObj.ExtLine1EndPoint(1) & ", " & dimObj.ExtLine1EndPoint(2), vbInformation, "ExtLine1EndPoint Example" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_ExtLine1EndPoint() ;; This example creates an angular dimension. It then changes ;; the location of the ExtLine1EndPoint. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the dimension (setq AngleVertex (vlax-3d-point 0 5 0) FirstPoint (vlax-3d-point 1 7 0) SecondPoint (vlax-3d-point 1 3 0) TextPoint (vlax-3d-point 3 5 0)) ;; Create the angular dimension in model space (setq modelSpace (vla-get-ModelSpace doc)) (setq dimObj (vla-AddDimAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint)) (vla-ZoomAll acadObj) (setq extLineEndPoint (vlax-safearray->list (vlax-variant-value (vla-get-ExtLine1EndPoint dimObj)))) (alert (strcat "The current value of ExtLine1EndPoint is " (rtos (nth 0 extLineEndPoint) 2) ", " (rtos (nth 1 extLineEndPoint) 2) ", " (rtos (nth 2 extLineEndPoint) 2))) ;; Change the endpoint of the first extension line (setq SecondPoint (vlax-3d-point 0 3 0)) (vla-put-ExtLine1EndPoint dimObj SecondPoint) (vla-Update dimObj) ;; Return the endpoint of the first extension line ;; Note that the return value is a Variant (setq retPnt (vlax-safearray->list (vlax-variant-value (vla-get-ExtLine1EndPoint dimObj)))) (alert (strcat "The new value of ExtLine1EndPoint is " (rtos (nth 0 retPnt) 2) ", " (rtos (nth 1 retPnt) 2) ", " (rtos (nth 2 retPnt) 2))) )