что-то вроде
kompas=Новый COMОбъект("Kompas.Application.5");
n=0;
n=kompas.ksGetDocumentType(0);
Если н = 0 ТОгда
сообщить(""2D-чертеж");
ИначеЕсли
....
КонецЕсли;
// 2:button1.Caption:='Текстовый документ';
// 3:button1.Caption:='2D-фрагмент';
// 4:button1.Caption:='Спецификация';
// 5:button1.Caption:='3D';
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший