Рисуем в 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...