Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Замена шрифта во всех текстовых стилях в autocad 2007

Замена шрифта во всех текстовых стилях в autocad 2007

Ответ
Поиск в этой теме
Непрочитано 28.10.2016, 11:36 #1
Замена шрифта во всех текстовых стилях в autocad 2007
olga87
 
Регистрация: 28.05.2007
Сообщений: 207

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как исправить код ниже, чтобы он работал в AutoCAD 2007.
Сейчас код работает только в AutoCAD 2008.

Код:
[Выделить все]
(defun c:chngfontallstyle ()
(vl-load-com)
(setq new (strcat (getenv "systemroot") "\\Fonts\\Arial.ttf"))
(vlax-for x (vla-get-textstyles
   (vla-get-activedocument (vlax-get-acad-object))
            )
(vla-put-fontfile x new)
)
(princ (strcat "\nARIAL finished."))
(princ)
)

Последний раз редактировалось olga87, 28.10.2016 в 11:58.
Просмотров: 992
 
Непрочитано 28.10.2016, 12:21
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Во-первых, http://forum.dwg.ru/showthread.php?t=24790
Во-вторых, стили с ttf-шрифтами немного более "замороченные". В крайнем случае - кто запрещает использовать dws?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Замена шрифта во всех текстовых стилях в autocad 2007

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
связь текстовых полей AutoCad с ячейками в Excel April AutoCAD 9 29.06.2014 12:35
Замена текстовых блоков Sputnik-e AutoCAD 2 11.09.2009 09:22
Проблема установки шрифта на всех машинах с Autocad Xefan AutoCAD 5 23.03.2009 09:06
Русский HELP для AutoCAD 2007 VASS AutoCAD 20 01.03.2008 18:46
Опция "Поворот" в команде "ШАГ" в AutoCAD 2007 olga87 AutoCAD 2 08.11.2007 11:17