Private Sub CommandButton1_Click()
ThisDrawing.MSpace = True
Dim pt1, pt2, pt3 As Variant
pt1 = ThisDrawing.Utility.GetPoint(, "Point1") 'Выбираю точку в PaperSpace с активным видом (низ стакана)
pt2 = ThisDrawing.Utility.GetPoint(, "Point2") 'Выбираю точку в PaperSpace с активным видом (верхстакана)
ThisDrawing.MSpace = False
pt3 = ThisDrawing.Utility.GetPoint(, "33") 'выбираю точку в PaperSpace с выключенным видовым экраном, это будет точка выноски текста
pt11 = ThisDrawing.Utility.TranslateCoordinates(pt1, acWorld, acPaperSpaceDCS, False)
pt22 = ThisDrawing.Utility.TranslateCoordinates(pt2, acWorld, acPaperSpaceDCS, False)
ThisDrawing.MSpace = False
Dim R As AcadDimAligned
R = ThisDrawing.PaperSpace.AddDimAligned(pt11, pt22, pt3)
End Sub