[Born]

Привет всем!

Подскажите пожалуйста как отрисовать профиль двутавра с уклоном внутренних граней полок. Данные в ГОСТ 8239-89 размеры h, b, s, t, R, r, кажутся мне недостаточными для точного описания наклона полки.

[BM60]

В поиске набрать "профиль" и/или "прокат" - куча материала.
В Данлоуде есть программка (не одна), вставляющая любой профиль, аж 3Д

Хм-м, наклон полок первой строкой после таблицы указан в этом же ГОСТе, или последней строкой в Анурьеве. И зачем он, если известны два радиуса? Или надо ОСОБО точно? Для масштаба 1:100?

[Born]

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

[Солидворкер]

1. Заданных в ГОСТе размеров двутавра должно хватать
2. Тему переименуй!

Про поиск BM60 уже сказал

[BM60]

Ни центры надо брать, а точку конца полки. Где угодно нарисовал окружности, а потом точку квадранта пихнул на край полки. Трим, зеркало и т.д.
А вот зачем это самому рисовать и тем более для программирования? Скачай, установи и балдей от щастья.
Так и быть, подскажу, если искать не хочешь или не умеешь.
Для балок 8239 уклон внутренних граней полок д.б. 6-12%
Для швеллеров 8240 - не более 10%.
Только не спрашивай, что такое уклон 10 процентов. Не знаю, но где-то тут видел.

[Born]

Про программирование- хочу сам разобраться и сделать так как надо мне. Про конец полки не понял... а как поступить с радиусом стенки и полки. А самое главное как начертить прямой наклонный участок полки и состыковать его с вышеперечисленными радиусами. Мне бы понять геометрически.

[SetQ]

1. Сообщение от ГОСТ 8239-89 Примечание. Уклон внутренних граней полок должен быть 6-12%

2. Толщина t задается на расстоянии (b-s)/4 от грани.

Теперь достаточно?

[BM60]

Не понял, что значит, как состыковать? А привязки для чего? Касательная, например.
Если ГОСТом не оговорен ТОЧНЫЙ уклон, значит прими некий условный, но удобный для построения угол наклона. И когда линия уклона от конца полки упрется в стенку, рисуй окружности r и R и ищи касательные к ним.
Писать "7 страниц убористого" текста мне писать как-то не удобно. Пробуй и всё получится.

Так для чего конкретно это надо-то?

Во-во, ВЕРНО! Я забыл про t. Уклон при этом знать уже не особо нужно (вел-на справочная). Для швеллеров в этой ф-ле расстояния для этой t (толщины) в знаменателе 2. Главное - t на правильном расстоянии. Да что, у тебя ГОСТа нет что ли? Это ж из него-любимого все тебе переписываем.

[Born]

Надо это мне вот для чего. Хочу программно описать данный прокат и рисовать автоматически. Далее считать объем тела в 3D. C прямыми полками сделал потому, что понимаю как по координатным точкам описать объект для LISP.

[BM60]

Дык что написано-то в посте № 2? Ну ты даешь?
Программа называется aProfile 1.6.1.1.
Другая, Prokat от Василия Кондрата.
А "массу" в виде объема считает и сам КАД, останется умножить на 7,85.
Неужели охота самому? Фантастика! НэПанимаю... Но желаю удачи, может будет долгожданная автоматическая отрисовка нужной длины с нужной ориентацией. Но очень хочется одним (не более) кликом.

Переназови тему-то "Какой уклон полок у двутавра?"

[Born]

ГОСТ у меня есть. На него я ссылался в моем вопросе. И про t я конечно знаю. Но как выбрать наклон зная t/ Что провести прямую из конца полки через t. Глядя на картинку в ГОСТе мне так не кажется....

Извини за возможно глупые вопросы, но ответа я до конца не получил.

Спасибо за помощь! Поищу вышеуказанные программки.

[Foksolic]

Вспоминай инженерную графику и начерталку - там плавные переходы от прямо к линии и под любыми углами проходили.

[BM60]

Born, ну проще простого же. Вроде бы или я всё в "полусловом" написал?
Правильно,

Глядя на картинку в ГОСТе мне так не кажется....

, но для этого есть понятие касательная и привязка такая же. Сначала рисуешь отрезок от конца полки до точки t, потом окружность r с центром в этой точке полки и поднимаешь отрезок с включённой (только) привязкой "касательная". И потом удлиняешь отрезок до грани. Лишнее "оттримливаешь" (специально каверкаю).
Если касательная "ползет" (неопределенная), измерь нужные углы, восстанови перпендикуляры и дальше по соображению (или вдохновению)...

[Krieger]

Сообщение от Born Привет всем! Подскажите пожалуйста как отрисовать профиль двутавра с уклоном внутренних граней полок. Данные в ГОСТ 8239-89 размеры h, b, s, t, R, r, кажутся мне недостаточными для точного описания наклона полки.

Когда-то тоже поизвращался, но так до конца и не доделал. Лови функцию, которая отрисовывает такой профиль:

Код:

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

;|=======================================================================================================
Kr_double_tee_angle_profil
h (nth 0 parameter)=
b (nth 1 parameter)=
s (nth 2 parameter)=
t1 (nth 3 parameter)=
r1 (nth 4 parameter)=
r2 (nth 5 parameter)=
u (nth 6 parameter) - уклон в долях
layerSeen - слой для профиля
функция по отрисовке профиля двутавра
Пример:
                   h   b  s  t1  r1 r2  u
(Kr_double_tee_angle_profil (list 100.0 55.0 4.5 7.2 7.0 2.5 0.1) "vidno")
Примечание: Все цифры писать с точкой!
===========================================================================================================|;

(defun Kr_double_tee_angle_profil (parameter layerSeen /
                 VCenter
                 x1 x2 x3 x4 x5 x6
                 y1 y2 y3 y4 y5 y6)
(Setq     parameter (mapcar 'float parameter)
    VCenter    (getvar "VIEWCTR")
    x1    (car VCenter)
    y1    (cadr VCenter)
    drob    (/ 1 (sqrt (+ 1 (* (nth 6 parameter) (nth 6 parameter)))))
    x2    (+ x1 (/ (+ (nth 1 parameter) (nth 2 parameter)) 2))
    x3    (+ x2 (nth 4 parameter) (* (nth 4 parameter) (nth 6 parameter) drob -1))
    x5    (+ x1 (nth 1 parameter))
    x4    (- x5 (nth 5 parameter) (* (nth 5 parameter) (nth 6 parameter) drob -1))
    x6    (+ x1 (- x5 x4))
    x7    (+ x1 (- x5 x3))
    x8    (+ x1 (- x5 x2))
    x9    (+ x1 (/ (nth 1 parameter) 2))
    y2    (+ y1
           (* 0.5
              (+
            (* 2 (nth 3 parameter))
            (* -1 (/ (float (nth 1 parameter)) 2) (nth 6 parameter))
            (* 2 (nth 5 parameter) (nth 6 parameter))
            (* (/ (nth 2 parameter) 2) (nth 6 parameter))
            (* -2 (nth 5 parameter) drob)
            (* -2 (nth 5 parameter) (nth 6 parameter) (nth 6 parameter) drob)
            )
            )
         )
    y3    (+ y1
          (* 0.5
           (+
             (* 2 (nth 3 parameter))
             (* -1 (/ (nth 1 parameter) 2) (nth 6 parameter))
             (* 2 (nth 5 parameter) (nth 6 parameter))
             (* (/ (nth 2 parameter) 2) (nth 6 parameter))
             (* -2 (nth 5 parameter) (nth 6 parameter) (nth 6 parameter) drob)
            )
           )
          );end *
    y4    (+ y1
          (* 0.5
           (+
             (* 2 (nth 3 parameter))
             (* (/ (nth 1 parameter) 2) (nth 6 parameter))
             (* -2 (nth 4 parameter) (nth 6 parameter))
             (* -1 (/ (nth 2 parameter) 2) (nth 6 parameter))
             (* 2 (nth 4 parameter) (nth 6 parameter) (nth 6 parameter) drob)
            )
           )
          )
    y5    (+ y1
           (* 0.5
              (+
            (* 2 (nth 3 parameter))
            (* -14 (nth 6 parameter))
            (* (/ (nth 1 parameter) 2) (nth 6 parameter))
            (* -1 (/ (nth 2 parameter) 2) (nth 6 parameter))
            (* 2 (nth 4 parameter) drob)
            (* 2 (nth 4 parameter) (nth 6 parameter) (nth 6 parameter) drob)
            )
            )
         )
    y6    (+ y1 (/ (nth 0 parameter) 2))
    y11    (+ y1 (nth 0 parameter))
    y7    (- y11 (- y5 y1))
    y8    (- y11 (- y4 y1))
    y9    (- y11 (- y3 y1))
    y10    (- y11 (- y2 y1))
    par42    (/ (sin (/ (- 1.5708 (atan (nth 6 parameter))) 4))
           (cos (/ (- 1.5708 (atan (nth 6 parameter))) 4))
           )
  )                    ;end setq

  (entmake
    (list
      '(0 . "LWPOLYLINE")
      '(100 . "AcDbEntity")
      (cons 8 layerSeen)
      '(100 . "AcDbPolyline")
      '(90 . 20)
      '(70 . 1)
      (cons 10 (list x1 y1))        ;1
      (cons 10 (list x5 y1))        ;2
      (cons 10 (list x5 y2))        ;3
      (cons 42 par42)
      (cons 10 (list x4 y3))        ;4
      (cons 10 (list x3 y4))        ;5
      (cons 42 (* par42 -1))
      (cons 10 (list x2 y5))        ;6
      (cons 10 (list x2 y7))        ;7
      (cons 42 (* par42 -1))
      (cons 10 (list x3 y8))        ;8
      (cons 10 (list x4 y9))        ;9
      (cons 42 par42)
      (cons 10 (list x5 y10))        ;10
      (cons 10 (list x5 y11))        ;11
      (cons 10 (list x1 y11))        ;12
      (cons 10 (list x1 y10))        ;13
      (cons 42 par42)
      (cons 10 (list x6 y9))        ;14
      (cons 10 (list x7 y8))        ;15
      (cons 42 (* par42 -1))
      (cons 10 (list x8 y7))        ;16
      (cons 10 (list x8 y5))        ;17
      (cons 42 (* par42 -1))
      (cons 10 (list x7 y4))        ;18
      (cons 10 (list x6 y3))        ;19
      (cons 42 par42)
      (cons 10 (list x1 y2))        ;20
    )                    ;end list
  )                    ;end entmake
;точка вставки и имя блока:
  (cond ((= flag1 1) (setq BasePt (list x1 y1) name (Strcat name "_1")))
      ((= flag1 2) (setq BasePt (list (+ x1 (/ (nth 1 parameter) 2)) y1) name (Strcat name "_2")))
      ((= flag1 3) (setq BasePt (list x6 y1) name (Strcat name "_3")))
      ((= flag1 4) (setq BasePt (list x1 y6) name (Strcat name "_4")))
      ((= flag1 5) (setq BasePt (list (+ x1 (/ (nth 1 parameter) 2)) y6) name (Strcat name "_5")))
      ((= flag1 6) (setq BasePt (list x6 y6) name (Strcat name "_6")))
      ((= flag1 7) (setq BasePt (list (+ x1 (/ (nth 1 parameter) 2)) (+ y1 (/ param1 2))) name (Strcat name "_7")))
);end cond
  );end defun

[Born]

Спасибо за код. Работает. Буду изучать.