Содержание
- 2. Окно менеджера проектов - если нет в списке проектов ни одного проекта с локацией Global( 1
- 3. Набираем имя процедуры создаваемой- box и жмем Create
- 4. В открывшемся окне выбираем Global( 1 или 2)- ОК
- 5. Появляется окно с началом программы и концом, между этими двумя операторами набираете текст. Операторы с апострофом
- 6. Рассмотрим синтаксис VBA на примере фрагмента кода, рисующего параллелепипед. ' Вставка параллелепипеда Public Sub Box ()
- 7. dCenter (2) = 0# ' задание размеров параллелепипеда: dLength = 10# dWidth = 20# dHeight =
- 8. Если вы уже сохранили свою программу, и открываете автокад, то прежде чем запустить процедуру, ее следует
- 9. Задание Создание, сохранение и запуск процедур Создайте новый чертеж. По команде Tools - Macro - Visual
- 10. Dim dRadius1 As Double ' радиус тора Dim dRadius2 As Double ' радиус трубки тора Dim
- 11. Запуск процедуры Поскольку эта процедура активна, ее не нужно загружать. Щелкните по кнопке SAVE стандартной панели
- 12. Пример Sub AddCircle () Dim vPt As Variant Dim dRadius As Double Dim myCircle As AcadCircle
- 13. Задание 2 Создать процедуру, получающую информацию от пользователя Создайте новый чертеж. Выберите команду Tools - Macro
- 14. prompt2 = vbCrLf & "Задайте радиус: “ 'получение центральной точки и радиуса от пользователя cen =
- 16. Скачать презентацию