Программа смены Стиля и Высоты текста
Первая из предлагаемых вашему вниманию программ – программа смены стиля текста и высоты. Это одна из относительно старых программ, написанная мною с использованием информации с форумов и с сайтов, как и большинство других.
Задача программы запросить все текстовые стили, существующие в данном чертеже, выделить текущий, и для него запросить высоту текста. Затем эту информацию вывести в диалоговое окно на экран, а пользователь может выбрать стиль текста из существующих и изменить высоту текста, при необходимости.
Ниже – диалоговое окно.
Выбор текстового стиля происходит из раскрывающегося списка, а высота задается с клавиатуры поставив курсор в окно высоты текста.
В моем примере всего 2 текстовых стиля, а высота текста равно «3».
Программный код написан на языке AutoLISP, также используется файл диалога, в котором описывается диалоговое окно.
Внимание !!!
Перед началом советую сохранить все настройки, как рекомендуют разработчики, https://knowledge.autodesk.com/ru/support/autocad/learn-explore/caas/sfdcarticles/sfdcarticles/RUS/How-to-import-and-export-backup-settings-to-and-from-AutoCAD.html
Я не стал закрывать код программы и диалогового окна, может кому будет интересно посмотреть или модифицировать программу. Можно посмотреть пример кода для раскрывающегося списка и окна редактирования. Так же в архиве есть картинка иконки для вставки в меню палитры.
Откройте архив, поместите три файла в папку доступную для AutoCAD. Если такой папки нет – создайте и пропишите к ней путь в выделенный на рисунке пункт.
Затем в командной строке выполните загрузку файла в систему.
Command: (load “mTxtSet”)
При удачной загрузке система выдаст сообщение:
C:MTXTSET
Смело вводите команду:
Command: MTXTSET
Программа запускается и на экране появляется описанное выше диалоговое окно.
Программа вставки Текущей Даты
Тут все просто, запускаете программу, тыкаете по тексту мышкой и текст изменяется на текущую дату. Формат текста «ДД.ММ.ГГ». Удобна для замены даты в штампе чертежа. Скачать _mCurrentDate(845кБ) Стиль оригинальной записи сохраняется.
Откройте архив, поместите три файла в папку доступную для AutoCAD. Если такой папки нет – создайте и пропишите к ней путь в выделенный на рисунке пункт.
Затем в командной строке выполните загрузку файла в систему.
Command: (load “c:mCurrentDate”)
При удачной загрузке система выдаст сообщение:
С:mCurrentDate
Смело вводите команду:
Command: mCurrentDate
Программа запускается и на экране у курсора и в командной строке появится текст
Select DateText for change :
Указываете на старую дату и она мгновенно меняется на текущую.
Вот как-то так!