1 rc

Pavement Cross‑Section Drawing Generator

Inputs (match VBA variable names)

Width_of_lane (m)

no_of_leftlanesTextBox (lanes on LEFT of median)

No_of_lanesRight (lanes on RIGHT of median)

median_width (m)

kerb_height (mm)

BCthkTextBox (mm)

DBMthkTextBox (mm)

BasethkTextBox (mm)

subbasethkTextBox (mm)

HR_textbox (horizontal ratio)

Vert_TextBox (vertical ratio)

BCtopTextBox (m)

BCbottomTextBox (m)

DBMtopTextBox (m)

DBMbottomTextBox (m)

BasetopTextBox (m)

basebottomTextBox (m)

subbasetopTextBox (m)

subbasebottomTextBox (m)

Horizontal scale (mm → px)

Set 0 to auto-fit width

Vertical exaggeration (px per mm)

Adjust to see thin layers clearly

Left/Right lanes are independent (exactly as requested)

BC

DBM

Base

Subbase

Median

Canvas

(Resize your window; drawing auto‑centers)