[Artiznov]

Здравствуйте уважаемые форумчане. Столкнулся с такой проблемой: надо определить центр тяжести сечения гофра профлиста. Можно это как-нибудь сделать при помощи автокада? Было дело, наталкивался я как-то на примочку к автокаду - она рисовала геометрические оси сечения, т.е.показывала где Ц.Т. Может у кого есть подобное? Помогите кто чем может.

[Хмурый]

ЦТ c осями показывается в MDT
В чистом AutoCAD'е есть команда _massprop , которая выдаёт координаты ЦТ

Centroid: X: -157.0748 Y: 124.3568

Команда работает только с областями и твердыми телами.
PS Что, свой собственный профлист разрабатываешь?

[CB]

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

Код:

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

 
(defun test (/ sys-var ent obj pt)
  (vl-load-com)
  (setq sys-var (mapcar 'getvar '("cmdecho")))
  (if
    (vl-catch-all-error-p
      (vl-catch-all-apply
 '(lambda ()
    (setvar "cmdecho" 0)
    (prompt "Выберите замкнутый контур :")
    (setq ent (entlast))
    (vl-cmdf "_.boundary"
      "_a"
      "_o"
      "_r"
      "_b"
      "_n"
      (ssget)
      ""
      ""
      (getpoint "\nТочка внутри контура :")
      ""
    ) ;_ end of vl-cmdf
    (if (setq ent (entnext ent))
      (progn
        (setq obj (vlax-ename->vla-object ent))
;;;Центр тяжести региона
        (setq pt
        (vlax-safearray->list
   (vlax-variant-value
     (vla-get-Centroid obj)
   ) ;_ end of vlax-variant-value
        ) ;_ end of vlax-safearray->list
        ) ;_ end of setq
        (vla-delete obj)
      ) ;_ end of progn
      (alert "Выбранная область разомкнута")
    ) ;_ end of if
  ) ;_ end of lambda
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of vl-catch-all-error-p
     (princ "*Cansel*")
  ) ;_ end of if
  (mapcar 'setvar '("cmdecho") sys-var)
  (princ "\nЦентр тяжести: ")
  (princ pt)
  (princ)
)