I think the attached Excel file with VBA program will do what you want, or close to it.
Give a worksheet that looks like this:

It will generate a script that looks like this:

Here's the result in AutoCAD:

Here's the code:
Sub main()
' Creates AutoCAD script to make window drawings
' LRM 12/29/2020
'
Dim nWin As Integer, widthWin As Double, heightWin As Double, dimOff As Double
Dim p1x As Double, p1y As Double, p2x As Double, p2y As Double
Dim dim1x As Double, dim1y As Double, dim2x As Double, dim2y As Double
Dim dim3x As Double, dim3y As Double, i As Integer
Dim msg As String
Dim fn_file
Application.ScreenUpdating = False
'get file name
fn_file = InputBox("Enter file name: ", , "Drawing-Data")
fn_file = fn_file & ".scr"
Open fn_file For Output As #2
' get window data
Range("b2:b2").Select
msg = ""
p1x = 0
p1y = 0
deltax = 500 ' distance between windows
labely = -200 ' distance label is below window
While ActiveCell.Value <> ""
nWin = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
widthWin = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
heightWin = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
dimOff = ActiveCell.Value ' offset value for dim text
ActiveCell.Offset(1, 0).Select
glasslabel = ActiveCell.Value
p2y = p1y + heightWin
dim1x = p1x
dim1y = p2y
' create rectangle statements for each window
For i = 1 To nWin
p2x = p1x + widthWin
msg = "rectang " & p1x & "," & p1y & " " & p2x & "," & p2y
p1x = p2x
Print #2, msg
Next i
' compute point for horizontal dimension line and add it
dim2x = p2x
dim3x = (dim1x + dim2x) / 2
dim3y = p2y + dimOff
msg = "dimlinear " & dim1x & "," & dim1y & " " & dim2x & "," & dim1y & " " & dim3x & "," & dim3y
Print #2, msg
' compute point for vertical dimension line and add it
dim4x = p2x
dim5x = p2x + dimOff
dim5y = (dim1y + dim2y) / 2
msg = "dimlinear " & dim4x & "," & dim1y & " " & dim4x & "," & dim2y & " " & dim5x & "," & dim5y
Print #2, msg
ylabel = p1y - 4 * dimOff
' create labe text
msg = "(command " & Chr(34) & "_.TEXT" & Chr(34) & " " & Chr(34) & dim1x & "," & ylabel & Chr(34) & " " & _
Chr(34) & Chr(34) & " " & Chr(34) & Chr(34) & " " & Chr(34) & glasslabel & Chr(34) & ")"
Print #2, msg
ActiveCell.Offset(-4, 1).Select
p1x = p1x + deltax
Wend
Close #2
Application.ScreenUpdating = True
End Sub
I had a hard time getting the text command to work. There is probably a better way. I used Chr to create quotes that are needed by the VLISP statement to avoid confusion with the VBA processing of quotes for text.
Be sure to set text height and dimension style size accordingly before running the script.
lee.minardi