более того ... конструкция типа
Set s = ActiveLayer.CreateLinearDimension(cdrDimensionHorizontal, pt1, pt2, True, , , cdrDimensionStyleDecimal, , , , *, , , , , , , , , , k)
предполагет прямое указание textPlacement в месте обозначенном звездочкой
можно там указывать что угодно - хоть напрямую...