利用AutoLisp、Microsoft VBA批量生成断面