[red]

на чертеже много блоков (рисунок+надпись к нему при помощи атрибутов).... я хочу размер текста увеличить во всех этих блоках!
КААК?
В каждом блоке отдельно менять? нельзя во всех сразу?.....блок один и тот же, только значения разные...
Если при помощи редактирования блока, то он меняет только размер текста атрибута, а его значения нет! Есть способ?

[Натальяяяяяяяяя]

Сообщение от ProPeller Для полного понимания, еще раз уточню. Вы убрали галочку из блока который лежит в библиотеке и сохранили это определение или вы убираете галочку тогда, когда этот блок из библиотеки помещен в чертеж? Это важно. В библиотеке должен лежать блок с заведомо убранным флагом "Скрытый". В противном случае, каждый раз переоределяя блок из библиотеки он вновь будет становиться скрытым и вы так никогда и не увидите свой атрибут. Скиньте пожалуйста файл блока и чертежа сюда. Может попробую помочь не только словами.

Спасибо за помощь, но у меня получилось)) я стала взрывать блок и переопределять его заново))) после добавления новых атрибутов)))

[baikkott]

Подскажите, пожалуйста, можно ли поменять высоту текста в атрибуте блока при этом что бы динамика блока и местоположение атрибута сохранилось. Через диспетчер атрибутов блока все изменения сделанный до этого в блоке слетают к исходному состоянию.

[Кулик Алексей aka kpblc]

После редактирования в редакторе блоков или все же после выполнения _.attsync?

[baikkott]

Без разницы. В редакторе блоков или через команду battman если изменять высоту все равно атрибут возвращается к исходному положению. Версия Autocad 2014. Во вложении файл нужно изменить высоту шрифта атрибута, при этом чтобы местоположение не изменилось ни атрибута ни самого блока (если была применена динамика).

[Хмурый]

baikkott, что-то с AutoCAD'ом

[Nike]

команда hAtt (массовое редактирование высоты атрибутов) в прилагаемом лиспе

[merkur1y]

еще 3 года спустя =)
есть ли вариант не вручную менять размер текста в блоках с разными именами, оставляя при этом все примитивы старого размера, и не разбивая блок
каждый создаваемый сторонней программой блок имеет своё имя, но одинаковый размер и параметры текста...
и начало названия, может это как-то облегчает задачу?

[kp+]

Сообщение от merkur1y каждый создаваемый сторонней программой блок имеет своё имя, но одинаковый размер и параметры текста...

В рамках "лечения по фотографии", без примера блоков в DWG напрашивается тривиальный ответ - дустом стиль текста поменять не пробовали?

[merkur1y]

Сообщение от kp+ стиль текста поменять

что вы имеете в виду? мне надо изменить высоту текста, а не стиль

[kp+]

Сообщение от merkur1y что вы имеете в виду?

Имею ввиду, что Вами предоставлены весьма скудные исходные данные - скриншоты и упоминание о том, что "каждый создаваемый сторонней программой блок имеет своё имя, но одинаковый размер и параметры текста..."
Исходя из них, приняты следующие допущения:
- все тексты в блоках оформлены в одном стиле;
- во всех текстовых объектах сохранены настройки, заданные стилем, без переопределения внутри объекта.
Соответственно, чтобы поменять высоту текста во всех блоках, достаточно один раз поменять настройки соответствующего стиля.
Если же какие-либо допущения неверны, то дальнейший разговор бесполезен до тех пор, пока Вы не предоставите на рассмотрение образцы Ваших блоков в формате DWG.

А если по простому, "пациента" (т.е. образцы блоков в формате DWG) на стол, по фотографии не лечим

[merkur1y]

Сообщение от kp+ поменять настройки соответствующего стиля

через эту панель?

[kp+]

Сообщение от merkur1y через эту панель?

Так не выйдет. Высота текста переопределена в самих объектах.

Нашел в загашнике старенький лисп

Код:

[Выделить все]

 (defun bl_h (height / blCol actDoc)
  (if
   (setq blCol(vla-get-Blocks
  (setq actDoc(vla-get-ActiveDocument
      (vlax-get-acad-object)))))
   (progn
     (vlax-for curBl blCol
       (vlax-for Entity curBl
   (if
     (=(vla-get-ObjectName Entity)"AcDbText")
     (progn
       (if
         (not
           (vl-catch-all-error-p
             (vl-catch-all-apply
         'vla-put-height (list Entity height))))
         T
         ); end if
       ); end progn
     ); end if
   ); end vlax-for
       ); end vlax-for
     (vla-Regen actDoc acAllViewports)
     ); end progn
   ); end if
  (princ)
  ); end of Text_Inside_Change

вызов (bl_h 3.5) или какая высота текста нужна.
Будут обработаны все блоки в чертеже, так что пользоваться осторожно.
обратите внимание, что у Вас блоки вставлены в масштабе 1,5.

[merkur1y]

спасибо! всё работает отлично... с любой величиной шрифта

[Nike]

Для выборочного изменения:

Код:

[Выделить все]

 
(defun C:th (/ text1 ttext1 tttext1 w1 med1 textw1)
  (setq text1 (nentsel "\N Выберите текст: "))
  (setq tttext1 (car text1)) ;имя
  (setq ttext1 (entget (car text1))) ;описание объекта
  (setq textw1 (cdr (assoc 40 ttext1))) ;значение 
  (setq w1 (getreal "Укажите высоту текста"))
  (setq med1 ttext1)
  (setq med1 (subst (cons 40 w1) (assoc 40 med1) med1))
  (entmod med1)
  (command "_regen")
)

[merkur1y]

Nike, код работает, но
для моих задач неудобно выбирать по одному тексту из каждого блока
удобно выделить нужные блоки и перенести их в новый файл, чтобы не затрагивались остальные
таких блоков на чертеже может быть и под сотню
и ещё почему у меня при вводе названия вашей команды текст в командной строке кривой?

выглядит примерно так:
N Выберите текст: Укажите высоту текста11

[skkkk]

Сообщение от merkur1y задач неудобно выбирать по одному тексту из каждого блока удобно выделить нужные блоки и перенести их в новый файл, чтобы не затрагивались остальные таких блоков на чертеже может быть и под сотню

Если так сделать, не удалив эти блоки из исходного чертежа и после этого не почистив его, чтобы следов этих блоков (описаний блоков) не осталось в файле, возвращенные блоки, вставленные после обработки в другом файле, будут иметь прежний, не измененный вид.

[kp+]

Сообщение от merkur1y выглядит примерно так: N Выберите текст: Укажите высоту текста11

С теорией такого сбоя кодировок не разбирался, но на практике надо, чтобы при копировании из источника и вставке в Акад была включена русская раскладка

[merkur1y]

Сообщение от skkkk Если так сделать, не удалив эти блоки из исходного чертежа и после этого не почистив его, чтобы следов этих блоков (описаний блоков) не осталось в файле, возвращенные блоки, вставленные после обработки в другом файле, будут иметь прежний, не измененный вид.

понимаю, это нетрудно =) под словом

Сообщение от merkur1y перенести

имеем ввиду вырезать

----- добавлено через ~4 мин. -----
при вводе этого кода

Сообщение от Nike Для выборочного изменения: Код: [Выделить все] (defun C:th (/ text1 ttext1 tttext1 w1 med1 textw1) (setq text1 (nentsel "\N Выберите текст: ")) (setq tttext1 (car text1)) ;имя (setq ttext1 (entget (car text1))) ;описание объекта (setq textw1 (cdr (assoc 40 ttext1))) ;значение (setq w1 (getreal "Укажите высоту текста")) (setq med1 ttext1) (setq med1 (subst (cons 40 w1) (assoc 40 med1) med1)) (entmod med1) (command "_regen") )

выскакивает это и раскладка не помогает =(

N Выберите текст: Укажите высоту текста11

[Кулик Алексей aka kpblc]

Сохранять надо как lsp-файл в кодировке ANSI.

[merkur1y]

Сообщение от Кулик Алексей aka kpblc Сохранять надо как lsp-файл в кодировке ANSI.

элементарно! спасибо!