макрос solidworks для расстановки видов детали по листам чертежа

Макрос создан из кусков, писался под свои потребности и задачи. Задача макроса - автоматически раскидать все детали по листам, 1 деталь=1 лист чертежа. Имеем сборку, в которой 1 деталь соответствует 1 файлу. После запуска макроса загружаем в него названия всех деталей, открытых в солиде, выбираем шаблон чертежа, в этом шаблоне выбираем лист, который будем копировать. Запускаем исполнение макроса. Лист копируется по количеству деталей. При расположении на листе сначала перебираем для главного вида положения спереди, сзади, сверху, снизу, слева, справа. В процессе переборки выясняем сторону, с которой видно максимальное количество граней. Этот вид устанавливается в качестве главного и автоматически создаются два проекционных вида: слева и сверху. Для деталей основной вид может быть каким угодно, главное условие - больше граней. Для сборок основной вид устанавливается спереди. После выбора вида макрос автоматически подгоняет размер вида на листе. Программист из меня совсем никудышный, поэтому все коррективы и замечания будут только на пользу. Сам макрос периодически дополняется и видоизменяется: