ОБРАЗМЕРИТЬ чертёж

[BASMACH]

Доброго времени суток. Подскажите пожалуйста с помощью какой команды VBAможно отобразить размеры чертежа (координаты объекта есть)

 

[lev]

Рисуем в X6 прямоугольник, проставляем размеры

Sub Macro1()
  ActiveDocument.Unit = cdrMillimeter
  Dim s As Shape
  Set s = ActiveLayer.CreateRectangle(10, 20, 100, 70)
  ActiveLayer.CreateLinearDimension cdrDimensionHorizontal, s.SnapPoints.Edge(1, 0#), s.SnapPoints.Edge(1, 1#), True, , 75
  ActiveLayer.CreateLinearDimension cdrDimensionVertical, s.SnapPoints.Edge(1, 1#), s.SnapPoints.Edge(2, 1#), True, 5
End Sub