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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как массово изменить текстовый стиль у всех атрибутов блока?

Как массово изменить текстовый стиль у всех атрибутов блока?

Ответ
Поиск в этой теме
Непрочитано 28.08.2009, 07:43 #1
Как массово изменить текстовый стиль у всех атрибутов блока?
Shaft
 
отдел открытых горных работ
 
Новокузнецк
Регистрация: 06.05.2009
Сообщений: 124

Здравствуйте уважаемые знатоки автокада. Прислали тут чертежи из стороней организации и требуется их офоримть под стандарты нашего предприятия. А в этих чертежах все блоки имеют атрибуты, текстовый стилль которых мне требутся заменить! Если править все вручную, уйдет недели 2!!! Все мои попытки попробовать массово поменять текстовый стиль не увенчались успехом! Поиском по сайту тоже ничего не нашел! Искал аж два дня, чтобы не повторятся!
Поэтому буду признателен за любую помощь в решении данного вопроса!
Просмотров: 17150
 
Непрочитано 28.08.2009, 08:03
#2
Кулик Алексей aka kpblc
Moderator

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


Если блоков немного, то можно руками установить в редакторе блоков стили для атрибутов, потом _attsync <Enter> _n <Enter> * <Enter>
Ну или в LISP. Замена текстового стиля забираешь лисп и запускаешь его
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 28.08.2009, 08:16
#3
Сергей Богатов


 
Регистрация: 21.02.2009
Сообщений: 825


Если это касается только отображения и не связано с программами обработки этих блоков или другими заморочками, то можно просто поменять шрифт в текстовом стиле ваших смежников на нужный вам. Это ещё быстрее
__________________
Я-проектировщик бывший проектировщик!
Сергей Богатов вне форума  
 
Автор темы   Непрочитано 28.08.2009, 08:49
#4
Shaft

отдел открытых горных работ
 
Регистрация: 06.05.2009
Новокузнецк
Сообщений: 124


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Если блоков немного, то можно руками установить в редакторе блоков стили для атрибутов, потом _attsync <Enter> _n <Enter> * <Enter>
Ну или в LISP. Замена текстового стиля забираешь лисп и запускаешь его
Подскажи пожалуйста Алексей где в редакторе блоков задаются стили для атрибутов??? Не могу найти!
Заранее благодарен!

ps а что касается липса, то он не хочет запускаться

СПАСИБО ВСЕМ КТО ОТКЛИКНУЛСЯ!!! ВСЕ ПОЛУЧИЛОСЬ!!!!!!

Последний раз редактировалось Shaft, 28.08.2009 в 08:57.
Shaft вне форума  
 
Непрочитано 28.08.2009, 08:58
#5
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,327


Shaft, в свойствах
Хмурый вне форума  
 
Непрочитано 28.08.2009, 09:02
#6
Кулик Алексей aka kpblc
Moderator

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


Выделить блок, правый клик, в контекстном меню выбрать "Редактировать блок" (Edit Block) для динамического блока либо "Редактировать по месту" (Edit in-place) для обычного; выделить атрибуты; в окне свойств установить текстовый стиль для выделенных атрибутов; выйти из редактирования блока с сохранением изменений.
Как это - не работает? Вроде у всех работало... Расписывай, что и как делал. И читал ли статью по ссылке из подписи VVA.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 28.08.2009, 09:08
#7
Shaft

отдел открытых горных работ
 
Регистрация: 06.05.2009
Новокузнецк
Сообщений: 124


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Выделить блок, правый клик, в контекстном меню выбрать "Редактировать блок" (Edit Block) для динамического блока либо "Редактировать по месту" (Edit in-place) для обычного; выделить атрибуты; в окне свойств установить текстовый стиль для выделенных атрибутов; выйти из редактирования блока с сохранением изменений.
Как это - не работает? Вроде у всех работало... Расписывай, что и как делал. И читал ли статью по ссылке из подписи VVA.
ВСЕ ПОЛУЧИЛОСЬ ВСЕМ БОЛЬШУЩЕЕ СПАСИБО!!!

Ну а вот что касается липса Алексей, то пока еще не разобрался с ним... вечером попробую. Щас работы много... сроки горят!!!!!!
Еще раз спасибо!!!!!!
Shaft вне форума  
 
Непрочитано 31.10.2017, 12:05
1 | #8
envir0n


 
Регистрация: 31.10.2017
Сообщений: 2


на VBA это можно сделать так:
выделяем объекты и запускаем программу, программа только из выделенных объектов выберет блоки с атрибутами и изменит их
Код:
[Выделить все]
Sub AttrChange() 
  Dim oBj As AcadObject
  Dim acBR As AcadBlockReference
  Dim vAts As Variant
  Dim acAt As AcadAttributeReference
  Dim i As Integer
  For Each oBj In ThisDrawing.PickfirstSelectionSet
    If oBj.ObjectName = "AcDbBlockReference" Then
      Set acBR = oBj
      If acBR.HasAttributes Then
        vAts = acBR.GetAttributes
        For i = LBound(vAts) To UBound(vAts)
          Set acAt = vAts(i)
          'устанавливаем нужные нам значения:
          acAt.StyleName = "gost2304" 'текстовый стиль
          acAt.Backward = False 'True - слева-направо
          acAt.Alignment = acAlignmentCenter 'выравнивание
          acAt.ScaleFactor = 0.8 'степень растяжения
          acAt.Rotation = 0 'поворот текста в радианах
          acAt.UpsideDown = False 'True - перевернутый текст
          acAt.ObliqueAngle = 0 'угол наклона текста
          acAt.Height = 250 'высота текста
          '----------------------------------
        Next
      End If
    End If
  Next
End Sub
envir0n вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как массово изменить текстовый стиль у всех атрибутов блока?

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Назначение свойств атрибутов блока без attsync Кулик Алексей aka kpblc Программирование 9 15.08.2017 06:32
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46
Как программно узнать точку пересеч. линии с подприм. блока? kp+ AutoCAD 3 21.10.2005 10:46
Как изменить угол обзора в 3D? В Autocad'e это возможно? Li2n AutoCAD 17 12.11.2004 23:45