[Alma3]

Доброго времени суток, уважаемые форумчане!
Можете мне посоветовать какие размеры обычно используют проектировщики в своих деяниях? (высоту текста) И заодно проверить мои... =)
P.S. Я принимаю Основную надпись - 7-10; Оси - 3,5; Отметки+размеры+пояснения в узлах - 2,5; Площади на планах - 3,5; Текст в примечаниях - 3,5;...
Премного благодарен!

[Profan]

Это в каких единицах? В кабельтовых?

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

На переименование темы - 12 часов.

[lee]

ГОСТ 2.304-81 Шрифты чертежные

[Alma3]

Это в каких единицах? В кабельтовых?

В СПДС... В Автокаде

[Reka]

Сообщение от Alma3 В СПДС... В Автокаде

От души посмеялся...

[BM60]

Alma3, посмотри название раздела - ни о чем не догадываешься? Причем тут "Архитектура и стр-во"? И это уже второй раз!

Скачай сначала ВСЕ ГОСТЫ ЕСКД!!! Сначала их изучают, а уж потом садятся за AutoCAD!

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

BM60, тему переносил я (сначала вообще была в "Архитектуре"). Предложи свой раздел ("пожаловавшись" на стартовый топик) - посмотрим, что можно сделать

[cancercat]

И чего на человека накинулись? Такое впечатление, что все под дурачков косят и ничего не понимают. Высота текста, естественно, в миллиметрах. Основной ряд по ГОСТу приведён автором чётко - 2,5; 3,5; 5; 7; 10. И чего ему ещё изучать надо? Вопрос был про то, кто какие высоты для чего использует.
Теперь ответ по теме. У меня в размерах текст 2,5; на выносках обычно 3,5, ели надо, чтобы "бросалось" в глаза, иначе - как и на размерах, 2,5. Отметки уровня - 3,5; что на плане, что на профиле. Однако, в зависимости от насыщенности чертежа могут быть и 2,5; и даже 1,8 (ГОСТ допускает!). Заголовки (то, что сверху пишется, как на плакате) - 7 или 10 в зависимости от формата. В основной надписи "разработал, проверил" и т.д. 2,5; наименование объекта и чертежа - 3,5; шифр чертежа - 5.
P.S. И чего стебаться было? Явно выходные, заняться нечем!

[ButcheR]

В принципе, тоже самое, как и у ТС.
Редко, чтобы обратили внимание на какие-либо элементы чертежа, ввожу курсив/жирный шрифт.

[Profan]

Сообщение от cancercat И чего на человека накинулись? Такое впечатление, что все под дурачков косят и ничего не понимают. Высота текста, естественно, в миллиметрах. Основной ряд по ГОСТу приведён автором чётко - 2,5; 3,5; 5; 7; 10. И чего ему ещё изучать надо? Вопрос был про то, кто какие высоты для чего использует. Теперь ответ по теме. У меня в размерах текст 2,5; на выносках обычно 3,5, ели надо, чтобы "бросалось" в глаза, иначе - как и на размерах, 2,5. Отметки уровня - 3,5; что на плане, что на профиле. Однако, в зависимости от насыщенности чертежа могут быть и 2,5; и даже 1,8 (ГОСТ допускает!). Заголовки (то, что сверху пишется, как на плакате) - 7 или 10 в зависимости от формата. В основной надписи "разработал, проверил" и т.д. 2,5; наименование объекта и чертежа - 3,5; шифр чертежа - 5. P.S. И чего стебаться было? Явно выходные, заняться нечем!

Чего ты притворяешся? Ты видел первое название темы? Там ни слова не было про AutoCAD. А первый вопрос? Высота текста на бумаге? В пространстве модели? В пространстве листа, если уж речь идет об AutoCAD'е? В каком масштабе вообще выполняется черчение?

[Alma3]

cancercat, огромное спасибо!
Profan, я ещё тока учуся... Да и красноречием особым не отличаюсь... Поэтому излагаю мысли как есть! Извините пожалуйста, в будущем постараюсь исправится...

[cancercat]

Profan, и ты туда же? И какая разница, в каком масштабе чертёж? Речь о высоте букв-цифр на распечатке. Не знаю, может, у меня немного другая психология, но иной раз студенты задают такие вопросы, что посторонний человек может прийти в ужас. Однако, при ближайшем рассмотрении оказывается всё просто. Поставь себя на место другого человека и подумай так, как думает он.
P.S. А первоначального названия я не видел...

[Profan]

cancercat, ты же преподаватель. Здесь инженеры общаются, а не ясельники. Много о чем можно догадаться, имея опыт общения со студентами, чайниками и т.п. Но твоя задача и состоит как раз в том, чтобы привить этим категориям пользователей стремление к точности в выражении своих мыслей и составлении вопросов и формулировок.

[Gefest1]

Рискую нарваться на очередную порцию гнева, но ведь самый глупый вопрос, это не заданный, верно?)
Есть ли норматив по ОТЛИЧИЮ размеров текста на чертеже? Например, выбираем для размеров 2,5, тогда марки осей и текст на чертеже на 1-2 шага больше, но между собой одинаковые (оба либо 3,5, либо 5), отметки уровня , либо такого же размера, либо на шаг больше, и т.д.
И сколько всего РАЗНЫХ размеров текста (включая цифры) может быть на 1 чертеже?
И если чертежи из одного альбома, то обязан ли на разных чертежах одного назначения текст (размеров, например) быть одинаковым?
Понятно, что у каждого пользователя автокада есть свои предпочтения, проверенные опытом, но интересует именно НОРМАТИВНАЯ БАЗА. Подскажете, или накинетесь?

[zenon]

Сообщение от Gefest1 Рискую нарваться на очередную порцию гнева, но ведь самый глупый вопрос, это не заданный, верно?) Есть ли норматив по ОТЛИЧИЮ размеров текста на чертеже? Например, выбираем для размеров 2,5, тогда марки осей и текст на чертеже на 1-2 шага больше, но между собой одинаковые (оба либо 3,5, либо 5), отметки уровня , либо такого же размера, либо на шаг больше, и т.д. И сколько всего РАЗНЫХ размеров текста (включая цифры) может быть на 1 чертеже? И если чертежи из одного альбома, то обязан ли на разных чертежах одного назначения текст (размеров, например) быть одинаковым? Понятно, что у каждого пользователя автокада есть свои предпочтения, проверенные опытом, но интересует именно НОРМАТИВНАЯ БАЗА. Подскажете, или накинетесь?

ЕСКД СПДС наше фсе

[v.psk]

В отсутствии нормоконтроля делаю размерный шрифт высотой 2.2. Иногда это позволяет сэкономить листы, и не переходить на м50 с м100. Обычный шрифт почти везде 2.5, заголовки 4. На мой взгляд, ГОСТ писался во времена чертежей, выполненных вручную.

[zenon]

Сообщение от v.psk На мой взгляд, ГОСТ писался во времена чертежей, выполненных вручную.

Не поверишь!!!

[v.psk]

Да, я не дописал о том, что машинные шрифты более читабельны, часто на стройке распечатывают А3 вместо А2 и даже А1. А насчёт последней реплики, уже современные переиздания довольно консервативны в этом плане.

[Bull]

Сообщение от Gefest1 но интересует именно НОРМАТИВНАЯ БАЗА. Подскажете, или накинетесь?

Накинусь. Срочно обратно в ВУЗ - чтобы узнать, что такое ЕСКД. Ну и СПДС ваш (строителей).

[Ilez]

Сообщение от Gefest1 Рискую нарваться на очередную порцию гнева, но ведь самый глупый вопрос, это не заданный, верно?)

верно

Сообщение от Gefest1 Есть ли норматив по ОТЛИЧИЮ размеров текста на чертеже? Например, выбираем для размеров 2,5, тогда марки осей и текст на чертеже на 1-2 шага больше, но между собой одинаковые (оба либо 3,5, либо 5), отметки уровня , либо такого же размера, либо на шаг больше, и т.д.

http://forum.dwg.ru/showpost.php?p=1430373&postcount=24
отметки, кстати, относятся к размерным элементам.

Сообщение от Gefest1 И сколько всего РАЗНЫХ размеров текста (включая цифры) может быть на 1 чертеже?

если следовать ссылкам выше, то получается 2 или 3.
Например, размеры - размер шрифта Х;
Выноски, оси - размер шрифта 1,5Х
Наименования изображений - размер шрифта 2Х или 1,5Х.

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

Прямо не встречал, чтобы об этом где-либо говорилось, но косвенно это вытекает из следования вышеназванным требованиям. Например, если вы применили для одних размеров шрифт 2,5, для других - 3,5, то применив выноски с размером шрифта 5 будет соблюден п. 5.4.7 ГОСТ Р 21.1101-2013 относительно первых размеров и не соблюден относительно вторых.

Сообщение от Gefest1 Подскажете, или накинетесь?

подскажем.
Согласен, что современные нормы слишком консервативны. Например, многие для выносок делают шрифт как у размеров и ничего такого в этом не вижу, но нормам формально это не соответствует.

[zenon]

Сообщение от v.psk часто на стройке распечатывают А3 вместо А2 и даже А1

сними копию, отсканируй и распечатай на каком нить заюзаным принтером, и тогда будет понятно зачем шрифт такой высоты в ГОСТ.

[Profan]

Сообщение от zenon распечатай на каком нить заюзаным принтером

А если распечатать на задрипанном принтере? Или на задолбанном? Или на затраханном?

[Gefest1]

Не ссорьтесь. Лучше сходите на стройку, почитайте чертеж формата А2 рас печатаный на А3 в подвале при свете 2 лампочек 100Вт на этаж, когда чертеж сгибали 2 недели по одному и тому же месту через нужные Вам цифры)) Не забывайте, что их не только нормокнотролер в офисе читать будет!
2 Ilez: Спасибо, четко и по делу, почерк профессионала)

[v.psk]

Gefest1, это к чему? К тому, что на стройке лампочек нет? Или принтера? Или к тому что мнут чертежи по две недели? Кому то с условиями труда повезло больше.

----- добавлено через ~6 мин. -----
... на стройке уже давно не таскают комплект, или не ксерят нужный лист, а обычно печатают из пдф то, что требуется для текущих СМР.

[zvezdochiot]

Привет всем.

По поводу высоты текста в контексте "LISP для замены высоты текста на чертеже":

Сообщение от Palka#7 Замените код

А ежели так?:

Код:

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

 
(defun round-to-nearest (val base)
  ;; Функция округления до ближайшего кратного base
  (* base (fix (+ 0.5 (/ val base))))
)

(defun c:AdjustTextHeight (/ ss i ent textHeight newHeight base)
  (setq base (getdist "\nBase: "))
  (setq ss (ssget "X" '((0 . "TEXT,MTEXT")))) ; Получаем все текстовые объекты
  (if ss
    (progn
      (setq i 0)
      (while (< i (sslength ss))
        (setq ent (ssname ss i))               ; Получаем объект текста
        (setq textHeight (cdr (assoc 40 (entget ent)))) ; Текущая высота текста

        ;; Рассчитываем новую высоту текста, кратную base
        (setq newHeight (round-to-nearest textHeight base))

        ;; Обновляем высоту текста, если она отличается
        (if (/= textHeight newHeight)
          (progn
            (entmod (subst (cons 40 newHeight) (assoc 40 (entget ent)) (entget ent)))
            (entupd ent)
          )
        )

        (setq i (1+ i))
      )
      (princ "\nВысота текста обновлена для всех объектов.")
    )
    (princ "\nНет текстовых объектов на чертеже.")
  )
  (princ)
)

На работоспособность не проверял.

[name02]

Совет-рекомендация:
1 Если функция round-to-nearest у тебя не является библиотечной (т.е. ее ты написал конкретно для этой программы), то запихни ее в тело основной программы. И саму вспомогательную функцию объяви как переменную основной:

Код:

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

 (defun c:AdjustTextHeight (/ round-to-nearest ss i ent textHeight newHeight base)
   (defun round-to-nearest (val base)
     ;; Функция округления до ближайшего кратного base
     (* base (fix (+ 0.5 (/ val base))))
   )

  (setq base (getdist "\nBase: "))
  ...
)

Т.е. вспомогательная функция не будет доступна пользователю отдельно от основной

2 Перебор объектов набора у тебя идет с помощью конструкции

Код:

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

 (setq i 0)
(while (< i (sslength ss))
   ...
   (setq i (1+ i))
)

В принципе не скажу, что это неправильно. Но среди опытных людей, когда не нужен именно порядок прохода от 0 к последнему, обычно делают так:

Код:

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

 (repeat (setq i (sslength ss))
   (setq ent (ssname ss (setq i (1- i)))
   ...
)

На мой дилетантский взгляд, такой подход удобнее тем, что счетчик объявляется непосредственно в процедуре обхода объектов.
Но опять-таки, оба решения рабочие

3 Я бы добавил маркеры отмены - читай тут https://autolisp.ru/2016/12/06/undomarks/

4 По работе самой программы - если я имея текст высотой 3,5 решу изменить с шагом 10 например, то round-to-nearest вернет 0. И высота текста сбросится до размера определенного при вызове МТЕКСТ. На мой взгляд нужно что-то с этим сделать - может подогнать такие размеры до указанного шага или предупреждать о наличии таких текстов. В общем сделать так, чтобы пользователь был уведомлен

5 На забывай, что автокад может быть и не английским - в строке 8 твоего кода нужно писать (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))

[zvezdochiot]

Сообщение от name02 Совет-рекомендация:

Думаешь стоит? Ну может быть, может быть...

Код:

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

 
(defun c:AdjustTextHeight (/ ss i j ent textHeight neatHeight newHeight base)
  (setq base (getdist "\nBase: "))
  (if (> base 0)
    (progn
      (setq ss (ssget "_X" '((0 . "TEXT,MTEXT")))) ; get all text objects
      (if ss
        (progn
          (setq i 0)
          (setq j 0)
          (while (< i (sslength ss))
            (setq ent (ssname ss i)) ; get text object
            (setq textHeight (cdr (assoc 40 (entget ent)))) ; current Height
            
            ;; Calc neat and new Height
            (setq neatHeight (* base (fix (+ 0.5 (/ textHeight base)))))
            (setq newHeight (if (> neatHeight 0) neatHeight base))
            
            ;; Apply new Height
            (if (/= textHeight newHeight)
              (progn
                (entmod (subst (cons 40 newHeight) (assoc 40 (entget ent)) (entget ent)))
                (entupd ent)
                (setq j (1+ j))
              )
            )
            
            (setq i (1+ i))
          )
          (princ (strcat "\nUpdate " (itoa j) " text height."))
        )
        (princ "\nNot found text.")
      )
    )
    (princ "\nBase incorrect.")
  )
  (princ)
)

Работоспособность не проверял.