AngleVertex Property (ActiveX)

Specifies the angle vertex for the three-point angular dimension.

Supported platforms: Windows only

Signature

VBA:

object.AngleVertex 

object

Type: Dim3PointAngular

The object this property applies to.

Property Value

Read-only: No

Type: Variant (three-element array of doubles)

A 3D coordinate representing the angle vertex.

Remarks

No additional remarks.

Examples

VBA:

Sub Example_AngleVertex()
    ' This example creates a Dim3PointAngular object in model space
    ' and then alters its angle vertex
    
    Dim DimPointAngularObj As AcadDim3PointAngular
    Dim AngleVertex(0 To 2) As Double, NewAngleVertex(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    Dim CurrentVertex As Variant
    
    ' Define the new Dim3PointAngular object
    AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
    NewAngleVertex(0) = 1: NewAngleVertex(1) = 1: NewAngleVertex(2) = 0
    FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
    SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
    TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

    ' Create the new Dim3PointAngular object in model space
    Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
    ThisDrawing.Application.ZoomAll

    ' Display current vertex
    CurrentVertex = DimPointAngularObj.AngleVertex
    MsgBox "The angle vertex of the new object is set to:" & vbCrLf & _
            CurrentVertex(0) & vbCrLf & _
            CurrentVertex(1) & vbCrLf & _
            CurrentVertex(2)

    ' Alter vertex setting for this object
    DimPointAngularObj.AngleVertex = NewAngleVertex
    ThisDrawing.Regen acAllViewports
    
    ' Display new vertex settings
    CurrentVertex = DimPointAngularObj.AngleVertex
    MsgBox "The angle vertex of the object has been reset to:" & vbCrLf & _
            CurrentVertex(0) & vbCrLf & _
            CurrentVertex(1) & vbCrLf & _
            CurrentVertex(2)
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_AngleVertex()
    ;; This example creates a Dim3PointAngular object in model space
    ;; and then alters its angle vertex
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Define the new Dim3PointAngular object
    (setq AngleVertex (vlax-3d-point 2 5 0)
          NewAngleVertex (vlax-3d-point 1 1 0)
          FirstPoint (vlax-3d-point 2 2 0)
          SecondPoint (vlax-3d-point 1 4 0)
          TextPoint (vlax-3d-point 6 6 0))

    ;; Create the new Dim3PointAngular object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)

    ;; Display current vertex
    (setq CurrentVertex (vla-get-AngleVertex DimPointAngularObj))
    (alert (strcat "The angle vertex of the new object is set to:\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 0) 2) "\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 1) 2) "\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 2) 2)))

    ;; Alter vertex setting for this object
    (vla-put-AngleVertex DimPointAngularObj NewAngleVertex)
    (vla-Regen doc acAllViewports)
    
    ;; Display new vertex settings
    (setq CurrentVertex (vla-get-AngleVertex DimPointAngularObj))
    (alert (strcat "The angle vertex of the object has been reset to:\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 0) 2) "\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 1) 2) "\n"
                   (rtos (vlax-safearray-get-element (vlax-variant-value CurrentVertex) 2) 2)))
)