先行研究
https://zenn.dev/1step621/articles/df285be712d9d5
途中までやって放置していたら，同じような機能を実装されている方がいました．
こちらは簡易版として，ここに供養します．以下をコピペすると機能が使えるようになります．
#let copy_array(height, rows) = {
if type(height) != array {
let heights = ()
for i in range(rows){
heights.push(height)
}
return heights
}
else {return height }
}
#let ansbox(..args, type: "default", daimon: "1", shomon: "(1)", height:1.5cm,content:(), hide-content:false, shomon_width:2em, daimon_width:2em, box_width:1fr, shomon_start:1, inset: 4pt) = {
let list = args.pos()
let rows = list.len()
let heights = copy_array(height, rows)
let box_widths = copy_array(box_width, rows)
//ansbox_num.step()
let row_list = ()
let cur_sho = shomon_start
let total = 0
for i in range(rows) {
let cells = ()
let col_cel = ()
let algn = ()
for j in range(list.at(i)){
algn.push(center+horizon)
algn.push(left)
col_cel.push(shomon_width)
col_cel.push(box_widths.at(i))
cells.push([#numbering(shomon, cur_sho)])
cells.push([#if content != () {if hide-content == true{hide[#content.at(total+j)]}else{content.at(total+j)} }])
cur_sho = cur_sho + 1
}
row_list.push(table(inset:inset,stroke: (x,y) => {if calc.odd(x) {(left:(dash:"dotted"), right:1pt, y:1pt) } else {(x:1pt, y:1pt)}}, columns:col_cel,..cells,rows:heights.at(i), align:algn))
total = total + list.at(i)
}
let colls
show figure: it => {
if daimon != none{
grid(columns:(daimon_width, 1fr),
grid.cell(rowspan: rows,
stroke: 1pt,
align:center+horizon,
[#numbering(daimon,..it.counter.at(it.location()))],
), ..row_list
)
} else {
grid(columns:(1fr),
..row_list
)
}
}
figure([1],kind:"answerbox",supplement: none)
}
使い方の例
#ansbox(1,4,3)
//基本的に，数字を入れていくと，各行にいくつのボックスを作るかを指定できます．
#ansbox(4,2,3, daimon:"1", shomon:"(a)", height:(1cm,2cm,3cm))
//高さを行ごとに指定できます
#ansbox(1,2,3,
content:([1],[2],[3],[4],[5],[$ (sum d^3)/(sum d^3)$]),
height:(2cm,auto,auto)
)
//contentでボックスの中に書き込めます．contentはarray方式で，すべての小問の中身の列を作る必要があります
#ansbox(1,2,3,
content:([1],[2],[3],[4],[5],[$
(sum d^3)/(sum d^3)
$]),
height:auto,
hide-content:true
)
//contentを隠すこともできます
#ansbox(3,2,
inset:0pt,
daimon:none,
shomon:"問1.",
shomon_width:4em,
shomon_start:7,
content:([],[],[],[],ansbox(2,2,daimon:none)),
box_width:(2cm,1fr,auto),
height:(1cm,auto,auto)
)
//contentの中にansboxを書き込むことで，入れ子にもできます．heightはauto, insetは0ptにしておくと，きれいになります（多分）．
コンパイルすると以下のようになります.
