Порядок выполнения работы
6. В качестве переменной, ссылающейся на документ AutoCAD использовать глобальную переменную AcadDocument типа OleVariant, значение которой присвоить с помощью функции CreateOleObject(‘AutoCAD.Drawing.16’).
Чтобы использовать функцию CreateOleObject, необходимо подключить библиотеку ComObj
в разделе uses.
7. Создать свою конфигурацию среды AutoCAD, используя объект Preferences (см. объектную модель AutoCAD).
8. Создать файл CadDev1.mnu.
//
// Пустой файл без меню и панелей инструментов
// Используется только для выполнения лабораторной работы
//
***MENUGROUP=CADDEV1
***POP1
**FILE
ID_MnFILE [&Файл]
ID_APP_EXIT [В&ыход\tCtrl+Q]^C^C_quit
***TOOLBARS
***HELPSTRING
ID_MnFILE [Файл]
ID_APP_EXIT [Выход из AutoCAD]
Файл меню должен быть сохранен в папке, в которой указан путь в конфигурации CadDev1
и указан в этой же конфигурации, как файл меню AutoCAD.
9. Написать процедуру, которая вычертит деталь в пространстве модели, изображенную в задании, согласно своего варианта. Для удобства написания кода, рекомендуется создать переменную MSpace типа OleVariant и присвоить ей значение AcadDocument.ModelSpace.
Все указанные размеры на задании принять как параметры, согласно которых будет вычерчиваться деталь.
10. Сохранить файл чертежа.
