21, Feb, 2019

AutoCAD VBA Sample codes – add aligned dimensions

Home Forums AutoCAD VBA Discussions AutoCAD VBA Sample codes – add aligned dimensions

Tagged: 

This topic contains 0 replies, has 1 voice, and was last updated by  CAAadmin 1 week, 5 days ago.

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #1044

    CAAadmin
    Keymaster

    sample code
    Insert Aligned Dimension
    Private Sub CommandButton1_Click()
    Me.Hide
    ‘ This example creates an aligned dimension in model space.

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double

    ‘ Define the dimension
    point1(0) = 5#: point1(1) = 5#: point1(2) = 0#
    point2(0) = 10#: point2(1) = 5#: point2(2) = 0#
    location(0) = 5#: location(1) = 7#: location(2) = 0#

    ‘ Create an aligned dimension object in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ZoomAll
    End Sub

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.