[Homer]

Дана плита с пустотами! как расчитать центр ее массы??
расчет необходим для привязки монтажных петель!!!

[stas_org]

В акаде строите регион(контур плиты) вычитаете из него отверстия, поставте ноль ПСК куда-нибудь, затем команда massprop вернет вам cenroid относительно вашего нуля.

[Supermax]

Ну, на сколько я еще что-то помню, то надо построить сетку и определить плотность в каждой точке сетки. Затем найти скажем по оси Х центр тяжести на всех горизонталях и вес в этих центрах, построить график перемещения центра тяжести по Y. Сделать сечение по этой кривой и найти в ней центр тяжести.

[Makswell]

Нужно построить 3D модель плиты и затем вызвать _massprop. См. приложенный файл.

[Homer]

Сообщение от Makswell Нужно построить 3D модель плиты и затем вызвать _massprop. См. приложенный файл.

координаты всякий раз "прыгают" и причем наглядно видно что не в центре масс(((

[Makswell]

Сообщение от Homer координаты всякий раз "прыгают" и причем наглядно видно что не в центре масс(((

Расшифруй, что значит "прыгают"?

[Homer]

Сообщение от Homer координаты всякий раз "прыгают" и причем наглядно видно что не в центре масс(((

а нет, прошу прощения, считает одинаково!
НО!!!! оно тупо в центр прямоугольной плиты ставит координаты!! как будто нет проемов!!!

[Makswell]

Сообщение от Homer а нет, прошу прощения, считает одинаково! НО!!!! оно тупо в центр прямоугольной плиты ставит координаты!! как будто нет проемов!!!

Да вроде не совсем в центр. Думаешь не правильно?

[Homer]

да!! не совсем!!!
наверное придется согласиться с автокадом!!
хотя визуальное восприятие отказывается соглашаться)))

[viking1963]

Странно, в SCAD-e выдает почти ту же картинку, хотя, вроде-бы должно быть не совсем так.

[Homer]

значит надо думать правильно!!
потому как в двух независимых программах одинаковый результат!!

[Foksolic]

Кто нибудь помнит сопромат??? Статический момент инерци и т.д.
Откройте книжку!!!!
эти формулы не чего не напоминают? (смотри вложения)

[Homer]

Сообщение от Foksolic Кто нибудь помнит сопромат??? Статический момент инерци и т.д. Откройте книжку!!!! эти формулы не чего не напоминают? (смотри вложения)

ну это на много маленьких объектов надо разбивать мою плиту!!
проще в программе посчитать!!

[eilukha]

вот по Компасу (см. файл)

[viking1963]

Ну, блин "замес", пошел, Автокад, Скад, Компас, "рукопашка"
надоб Лиру еще с Мономахом...
(Homer, может, просто Вашу плиту на пенек поставить и туды-сюды качнуть, центр масс и определится?)
(замерить микрометром, отмечать мелом, отрубать топором (+ - полметра в строительстве допустимо)...

[Foksolic]

Сообщение от viking1963 Ну, блин "замес", пошел, Автокад, Скад, Компас, "рукопашка" надоб Лиру еще с Мономахом... (Homer, может, просто Вашу плиту на пенек поставить и туды-сюды качнуть, центр масс и определится?) (замерить микрометром, отмечать мелом, отрубать топором (+ - полметра в строительстве допустимо)...

D

[Supermax]

А вы разрежте плиту пополам, через точку, которую _massprop выдает и тем же _massprop сравните объем обеих частей. Центр тяжести плиты, это такая точка, если через нее резать по прямой плиту, то всегда, не зависимо от градуса поворота оси разреза, должны быть одинаковые объемы (массы) обеих частей.
Да, и не путать с равновесием! Равновесие может зависеть от точки подвески. Плита-то толщину имеет. Надо считать будто она на острие поставлена. Да и не факт, что равновесие может быть стабильным. Если на ось подвески при наклоне плиты наедет сектор проема в плите, то равновесие нарушится. У некоторых предметов может быть несколько равновесных состояний (все из-за того, что они толщину имеют и неоднородности в ней).

[sbi]

Все ! Господа трудящиеся я балдею! Живот лопнет от смеха, в отпуск, иду и буду изучать с внуком таблицу умножения (скоро в школу), а то он сразу в инете игры находит, безобразие какое-то... Центр масс не найти. Да в свое время - вручную находили.

[Homer]

Сообщение от sbi Все ! Господа трудящиеся я балдею! Живот лопнет от смеха, в отпуск, иду и буду изучать с внуком таблицу умножения (скоро в школу), а то он сразу в инете игры находит, безобразие какое-то... Центр масс не найти. Да в свое время - вручную находили.

ну простите если ваз раздрожает мой вопрос!!!
но представьте если мне надо посчитать таких плит 10, или 50!?!?
и проемы в них на разных местах!!!! тогда как??? тоже вручную!??!

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

Ну тогда лови код. Правда, только для 3D. В твоем варианте я бы задумывался о полноценном применении 3-мерки с последующими разрезами уже по твердому телу

Код:

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

(defun c:set-center-3d (/ adoc blk ent blk_name)
  (vl-load-com)
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (car (entsel "\nУкажите 3D-твердое тело <Отмена> : "))
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (cdr (assoc 0 (entget ent))) "3DSOLID")
           ) ;_ end of and
    (progn
      (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
      (setq ent      (vlax-ename->vla-object ent)
            blk_name "kpblc_dwgru_CenterPoint3D"
            blk      ((lambda (/ item lst_layers pt)
                        (if (vl-catch-all-error-p
                              (setq item (vl-catch-all-apply
                                           (function
                                             (lambda ()
                                               (vla-item (vla-get-blocks adoc) blk_name)
                                               ) ;_ end of lambda
                                             ) ;_ end of function
                                           ) ;_ end of vl-catch-all-apply
                                    ) ;_ end of setq
                              ) ;_ end of vl-catch-all-error-p
                          (progn
                            (setq item       (vla-add (vla-get-blocks adoc) (vlax-3d-point '(0. 0. 0.)) blk_name)
                                  lst_layers (mapcar (function
                                                       (lambda (x / tmp)
                                                         (setq tmp (list x
                                                                         (cons "freeze" x)
                                                                         (cons "lock" x)
                                                                         ) ;_ end of list
                                                               ) ;_ end of setq
                                                         (foreach prop '("freeze" "lock")
                                                           (vl-catch-all-apply
                                                             (function
                                                               (lambda ()
                                                                 (vlax-put-property x prop :vlax-false)
                                                                 ) ;_ end of lambda
                                                               ) ;_ end of function
                                                             ) ;_ end of vl-catch-all-apply
                                                           ) ;_ end of foreach
                                                         ) ;_ end of lambda
                                                       ) ;_ end of function
                                                     ((lambda (/ _res)
                                                        (vlax-for item (vla-get-layers adoc)
                                                          (setq _res (cons item _res))
                                                          ) ;_ end of vlax-for
                                                        ) ;_ end of lambda
                                                      )
                                                     ) ;_ end of mapcar
                                  ) ;_ end of setq
                            (foreach norm '((0. 0. 1.) (0. 1. 0.) (1. 0. 0.))
                              (setq pt (vla-addpoint item (vlax-3d-point '(0. 0. 0.))))
                              (vla-put-layer pt "0")
                              (vla-put-color pt 0)
                              (vla-put-lineweight pt aclnwtbyblock)
                              (vla-put-linetype pt "ByBlock")
                              (vla-put-normal pt (vlax-3d-point norm))
                              ) ;_ end of foreach
                            (foreach layer lst_layers
                              (foreach prop (cdr layer)
                                (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (vlax-put-property (car layer) (car prop) (cdr prop))
                                      ) ;_ end of lambda
                                    ) ;_ end of function
                                  ) ;_ end of vl-catch-all-apply
                                ) ;_ end of foreach
                              ) ;_ end of foreach
                            ) ;_ end of progn
                          ) ;_ end of if
                        item
                        ) ;_ end of lambda
                      )
            ) ;_ end of setq
      (vla-insertblock
        (vla-objectidtoobject
          adoc
          (vla-get-ownerid ent)
          ) ;_ end of vla-objectidtoobject
        (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-centroid ent))))
        blk_name
        1.
        1.
        1.
        0.
        ) ;_ end of vla-InsertBlock
      (vla-endundomark adoc)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

---
Добавлено:
Код для нескольких элементов. Обрабатывает 3DSOLID и REGION.

Код:

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

(defun c:set-center-3d-m (/                      adoc                   blk                    selset
                          ent                    ins                    blk_name               _kpblc-conv-ent-to-vla
                          *error*                _kpblc-conv-ent-to-ename                      _kpblc-conv-vla-to-list
                          _kpblc-conv-selset-to-ename                   _kpblc-conv-selset-to-vla
                          )
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (defun _kpblc-conv-ent-to-vla (ent_value / res)
                                ;|
*    Функция преобразования полученного значения в vla-указатель.
*    Параметры вызова:
*	ent_value	значение, которое надо преобразовать в указатель. Может
*			быть именем примитива, vla-указателем или просто
*			списком.
*			Если не принадлежит ни одному из указанных типов,
*			возвращается nil
*    Примеры вызова:
(_kpblc-conv-ent-to-vla (entlast))
(_kpblc-conv-ent-to-vla (vlax-ename->vla-object (entlast)))
|;
    (cond
      ((= (type ent_value) 'vla-object) ent_value)
      ((= (type ent_value) 'ename) (vlax-ename->vla-object ent_value))
      ((setq res (_kpblc-conv-ent-to-ename ent_value))
       (vlax-ename->vla-object res)
       )
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-conv-ent-to-ename (ent_value /)
                                  ;|
*    Функция преобразования полученного значения в ename
*    Параметры вызова:
*	ent_value	значение, которое надо преобразовать в примитив. Может
*			быть именем примитива, vla-указателем или просто
*			списком.
*			Если не принадлежит ни одному из указанных типов,
*			возвращается nil
*    Примеры вызова:
(_kpblc-conv-ent-to-ename (entlast))
(_kpblc-conv-ent-to-ename (vlax-ename->vla-object (entlast)))
|;
    (cond
      ((= (type ent_value) 'vla-object)
       (vlax-vla-object->ename ent_value)
       )
      ((= (type ent_value) 'ename) ent_value)
      ((= (type ent_value) 'str) (handent ent_value))
      ((= (type ent_value) 'list) (cdr (assoc -1 ent_value)))
      (t nil)
      ) ;_ end of cond
    ) ;_ end of defun


  (defun _kpblc-conv-vla-to-list (value / res)
                                 ;|
*    Преобразовывает vlax-variant или vlax-safearray в список.
|;
    (cond
      ((listp value)
       (mapcar '_kpblc-conv-vla-to-list value)
       )
      ((= (type value) 'variant)
       (_kpblc-conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (_kpblc-conv-vla-to-list (vlax-safearray->list value))
         ) ;_ end of if
       )
      ((and (member (type value) (list 'ename 'str 'vla-object))
            (setq value (_kpblc-conv-ent-to-vla value))
            (and (= (type value) 'vla-object)
                 (vlax-property-available-p value 'count)
                 ) ;_ end of and
            ) ;_ end of and
       (vlax-for sub (_kpblc-conv-ent-to-vla value)
         (setq res (cons sub res))
         ) ;_ end of vlax-for
       )
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-conv-selset-to-ename (selset / tab item)
                                     ;|
*    Преобразование набора, полученного через ssget, в список ename-представлени
* примитивов.
*    Параметры вызова:
	selset	набор примитивов
*    Примеры вызова:
(_kpblc-conv-selset-to-ename (ssget))
|;
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((= (type selset) 'vla-object)
       (_kpblc-conv-vla-to-list selset)
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-conv-selset-to-vla (selset)
                                   ;|
*    Преобразование набора примитивов в список vla-представлений примитивов
*    Параметры вызова:
	selset	набор, сформированный (ssget)
|;
    (mapcar (function vlax-ename->vla-object)
            (_kpblc-conv-selset-to-ename selset)
            ) ;_ end of mapcar
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget '((0 . "3DSOLID,REGION")))
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (setq blk_name "kpblc_dwgru_CenterPoint3D"
            blk      ((lambda (/ item lst_layers pt)
                        (if (vl-catch-all-error-p
                              (setq item (vl-catch-all-apply
                                           (function
                                             (lambda ()
                                               (vla-item (vla-get-blocks adoc) blk_name)
                                               ) ;_ end of lambda
                                             ) ;_ end of function
                                           ) ;_ end of vl-catch-all-apply
                                    ) ;_ end of setq
                              ) ;_ end of vl-catch-all-error-p
                          (progn
                            (setq item       (vla-add (vla-get-blocks adoc) (vlax-3d-point '(0. 0. 0.)) blk_name)
                                  lst_layers (mapcar (function
                                                       (lambda (x / tmp)
                                                         (setq tmp (list x
                                                                         (cons "freeze" x)
                                                                         (cons "lock" x)
                                                                         ) ;_ end of list
                                                               ) ;_ end of setq
                                                         (foreach prop '("freeze" "lock")
                                                           (vl-catch-all-apply
                                                             (function
                                                               (lambda ()
                                                                 (vlax-put-property x prop :vlax-false)
                                                                 ) ;_ end of lambda
                                                               ) ;_ end of function
                                                             ) ;_ end of vl-catch-all-apply
                                                           ) ;_ end of foreach
                                                         ) ;_ end of lambda
                                                       ) ;_ end of function
                                                     ((lambda (/ _res)
                                                        (vlax-for item (vla-get-layers adoc)
                                                          (setq _res (cons item _res))
                                                          ) ;_ end of vlax-for
                                                        ) ;_ end of lambda
                                                      )
                                                     ) ;_ end of mapcar
                                  ) ;_ end of setq
                            (foreach norm '((0. 0. 1.) (0. 1. 0.) (1. 0. 0.))
                              (setq pt (vla-addpoint item (vlax-3d-point '(0. 0. 0.))))
                              (vla-put-layer pt "0")
                              (vla-put-color pt 0)
                              (vla-put-lineweight pt aclnwtbyblock)
                              (vla-put-linetype pt "ByBlock")
                              (vla-put-normal pt (vlax-3d-point norm))
                              ) ;_ end of foreach
                            (foreach layer lst_layers
                              (foreach prop (cdr layer)
                                (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (vlax-put-property (car layer) (car prop) (cdr prop))
                                      ) ;_ end of lambda
                                    ) ;_ end of function
                                  ) ;_ end of vl-catch-all-apply
                                ) ;_ end of foreach
                              ) ;_ end of foreach
                            ) ;_ end of progn
                          ) ;_ end of if
                        item
                        ) ;_ end of lambda
                      )
            ) ;_ end of setq
      (foreach item (_kpblc-conv-selset-to-vla selset)
        (if (not
              (vl-catch-all-error-p
                (vl-catch-all-apply
                  (function
                    (lambda ()
                      (setq ins (vla-insertblock
                                  (vla-objectidtoobject adoc (vla-get-ownerid item))
                                  (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-centroid item))))
                                  blk_name
                                  1.
                                  1.
                                  1.
                                  0.
                                  ) ;_ end of vla-InsertBlock
                            ) ;_ end of setq
                      ) ;_ end of lambda
                    ) ;_ end of function
                  ) ;_ end of vl-catch-all-apply
                ) ;_ end of vl-catch-all-error-p
              ) ;_ end of not
          (if (= (vla-get-objectname item) "AcDbRegion")
            (vla-put-normal ins (vla-get-normal item))
            ) ;_ end of if
          ) ;_ end of if
        ) ;_ end of foreach
      (vla-endundomark adoc)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Makswell]

Алексей, а чем это лучше _massprop?

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

Makswell, в _massprop ты получаешь координаты точки и все. А здесь в эту точку вставляется блок специальный. Насколько я помню из общения со своими конструкторами, им как раз проставленная точка была нужна, чтобы монтажные петли и траверсы "раскидывать".
Кстати, пока не забыл... Что там в файле (исходном) на метр с гаком? После очистки он стал весить (в 2010-м) около 70 кб...

[Makswell]

Сообщение от Кулик Алексей aka kpblc Кстати, пока не забыл... Что там в файле (исходном) на метр с гаком? После очистки он стал весить (в 2010-м) около 70 кб...

Аналогично. Скачал, сразу почистил (это у меня уже рефлекс такой ), в этом же файле построил 3D модель, вызвал _massprop и сохранил, чтобы выложить на форум. И тоже искренне удивился, когда на выходе получил файл размером 238Кб. Что там было, уже не узнать, т.к. исходный файл не сохранился, а снова его качать никакого желания нет.

[Supermax]

Kpblc, не все так просто. Та точка, что ты устанавливаешь лиспом ничем не отличается от _massprop, а _massprop дает не центр масс, а усредненные показатели геометрии. Если провести через эту точку линию разреза, то половинки имеют разный объем, а значит и разную массу.
Я сделал плиту с квадратной дыркой в левом верхнем углу и разрезал через точку.

45430054.0437
44478669.1256

Да и еще она в толще плиты, ровно по центру. А подвес идет за точку на поверхности! В центре нет устойчивого равновесия!
Centroid - центроид фигуры имеет два значения - среднее арифметическое координат и центр масс, но в Автокаде только координаты! С массами Автокад пока не работает, хотя в _massprop они фигурируют равные 1 от объема.
Есть такие точки, если за них подвешивать, то равновесие можно достигнуть только если плита будет перекошена. Надо условия равновесия закладвать. Указывать уровень подвески, а потом искать такую точку, в которой плита будет иметь заданное положение при равновесии.
Если плиту разрезать пополам поперек, и вдоль, и если будет соблюдаться условие, что при разрезе обе половины равны по массе, то пересечение этих разрезов и есть ось равновесия масс.

Не, про плечи забыл. Моменты считать надо, чтобы одинаковые были.
Равные массы, еще не значит одинаковые моменты. Плечи ведь разные. Равновесие масс надо перефразировать для задачи. Равный вес масс тут не катит.

Я тут еще подумал и вычислил что надо.
Надо разместить объект на плоскости и задать высоту по Z на которой надо найти точку подвески так, чтобы плоскость, привязанная к телу была строго перпендикулярна по отношению к оси гравитации. В этом и заключается равновесие тела.
Да, при определенных условиях (особенно когда Z равно 0) могут возникнуть несколько состояний равновесия, но одно из них искомое - то есть такое, при котром плоскость перпендикулярна оси гравитации.

Вот эту задачу решить есть смысл.

[sbi]

Сообщение от Supermax Kpblc, . Вот эту задачу решить есть смысл.

В чем смысл? Можно и за шею подвесить. Только бы работало.

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc Код для нескольких элементов. Обрабатывает 3DSOLID и REGION.

Нашел эту отличную программу по просьбе трудящих.
Прекрасно ставит точки-блоки для всех указанных тел-областей.
Есть вопрос о вставляемых блоках - в них по 3 точки. Это намеренно?

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

Ну как бы если поменяешь представление точки, увидишь ее как раз в 3Д. Так что да, намеренно.

[АлексЮстасу]

Да, точка-блок видна "ежиком", и в 3D ее так лучше заметно.

[w7ra]

Дожили уже и эту хрень в СКАД или ЛИРУ загоняем(петли для плиты с пустотами,как расчитать центр ее массы), зачем. На прямоугольнике, в плане, крест никто нарисовать не может - и от него плясать
"Расчет необходим для привязки монтажных петель" - вы серьезно, а в серии посмотреть... Серьезно, ну получите координаты с точностью в сотые, а как ее добиться при заливке (бетонировании)?

[АлексЮстасу]

Сообщение от w7ra Дожили уже и эту хрень в СКАД или ЛИРУ загоняем

Не волнуйтесь так. Этот вопрос задавался в 2008 году, 11 лет назад.

Сообщение от Кулик Алексей aka kpblc увидишь ее как раз в 3Д

Кстати, и не подозревал, что точки можно поворачивать в 3D!

[w7ra]

[quote=АлексЮстасу;1840179]Не волнуйтесь так. Этот вопрос задавался в 2008 году, 11 лет назад.
Кстати, и не подозревал, что точки можно поворачивать в 3D![/QUO

Действительно - чего это я волнуюсь 2008 год ведь