Все размещенные здесь примеры опробованы на практике в AutoCAD
2000, в некоторых исправлены замеченные незначительные ошибки и добавлены
краткие пояснения.
Если я что упустил или не заметил, если кто-нибудь заметит какие либо
ошибки просьба сообщить мне на E-Mail tb5@ugm.zsmk.ru
Команды
AutoCAD на VBA
Пример
функции, выполняющей над заданным объектом любую команду AutoCAD
Определение
и отмена текущей команды AutoCAD
Запуск
процедуры VBA из командной строки AutoCAD
Прямоугольный
массив копий группы объектов
Набор
функций для разрыва отрезка по двум заданным точкам
Пример
перемещения текстовых объектов
Копирование
и поворот выбранных объектов
Эквидистантная
копия на заданный слой
Удаление
из базы данных чертежа неиспользуемых блоков
Удаление
из базы данных чертежа неиспользуемых типов линий
Удаление
из базы данных чертежа неиспользуемых слоев
Удаление
из базы данных чертежа неиспользуемых слоев, блоков или типов линий по
выбору
Удаление
из базы данных чертежа неиспользуемых групп объектов
Удаление
из базы данных чертежа всех неиспользуемых объектов с помощью диалогового
окна
Обрезка
одной линии по другой
Масштабирование
изображения по габаритам заданного примитива
Объекты
AutoCAD
Пример
процедуры, добавляющей к AutoCAD новое меню
Отображение
экранного меню
Загрузка
меню из файла mnc
Создание
кнопки меню с закрепленной процедурой VBA
Создание
панели инструментов для заморозки слоя по выбранному объекту и разморозки
всех слоев
Скрытие
и отображение всех панелей инструментов
Сохранение
и восстановление состояния слоев (информация о состоянии слоев сохраняется
в текстовом файле)
Создание
базы данных с информацией о слоях
Создание
массива с данными о всех слоях чертежа
Изменение
имени слоев чертежа
Проверка
наличия в чертеже слоя с заданным именем
Выбор
слоя по объекту
Заморозка
слоя по выбранному объекту
Разморозка
всех слоев чертежа
Удаление
всех объектов с заданного слоя
Сортировка
примитивов чертежа по типам лини на разные слои
Управление
активностью слоя
Проверка
состояния слоя
Пример
диалогового окна с информацией о слоях
Процедура
для заполнения списка наименованиями слоев
Заморозка
всех слоев чертежа кроме последнего
Защита
от изменений всех слоев вставленных в чертеж внешних ссылок
Проверка
наличия в чертеже типа линии с заданным именем
Создание
текстовых стилей на основании текстового файла
Определение
значения системной переменной
Задание
значения системной переменной
Копирование
координат точки в буфер обмена
Перевод
координат из WCS в UCS
Определение
текущего пространства
Создание
копии пространства листа (Layouts)
Примитивы
чертежа AutoCAD
Пример
создания класса для работы с примитивами AutoCAD
Процедура
сохранения всех объектов заданного слоя в отдельном чертеже
Работа
с SelectionSet (Набор объектов)
Проверка,
есть ли в заданной точке текстовый объект
Получение
набора объектов, пересекающихся с выбранной линией
Определение
габаритов группы выбранных объектов
Использование
фильтра для выбора объектов
Обеспечение
фильтра выбора объектов
Использование
меток объектов для создания набора
Отслеживание
выбора пользователем примитивов
Изменение
цвета объектов с помощью диалогового окна, вызываемого из файла ACAD.EXE
Определение
длины выбранного отрезка
Определение
координат середины выбранного отрезка
Отрисовка
двойной ломанной линии заданной ширины через указываемые точки
Замена
значения размера его текстовым выражением
Группировка
примитивов по слоям
Защита
от изменений всех слоев вставленных в чертеж внешних ссылок
Отрисовка
типовых элементов
Маркировка
центров окружностей и дуг
Создание
выносной полки для указанного Мультитекста
Вспомогательные
функции
Функция
GetLenght, определяющая расстояние между двумя точками (disstance)
Число
Pi
Перевод
угла, заданного в радианах, в градусы
Перевод
угла, заданного в градусах, в радианы
Ближайшая
точка (NearestTo)
Точка
для построения перпендикуляра (Perpendicular)
Запрос
у пользователя ключевых слов
Запрос
у пользователя примитива чертежа
Запрос
у пользователя нескольких примитивов чертежа
Запрос
у пользователя параметра со значением по умолчанию
Открытие
и сохранение файлов с помощью API
Выбор
папки в диалоговом окне с помощью API
Открытие
всех файлов dwg из выбранной папки и выполнение над всеми примитивами
чертежей этих файлов одинаковых преобразований.
Определение
текущего пространства
Очистка
журнала команд
Определение
полного пути к приложению
Определение
значения системной переменной
Выбор
цвета в диалоговом окне с помощью функции API
Перевод
стандартных цветов AutoCAD в формат RGB
Перевод
цветов AutoCAD в формат RGB (учтены все 256 цветов)
|