Определение положения центра тяжести фигуры в АвтоКАДе

alexNAP · 16.10.2009, 11:25

Добрый день коллеги!
Нет ли у кого программки или модуля, я не знаю как это точно сказать, ну типа Вет Када, который определял бы положение центра тяжести фигуры. Я сейчас пользуюсь Скадом, очень не удобно, беру фигуру сохраняю отдельным файлом в DXF, и импортирую в Консул.
Заранее благодарен за ответы.

tutanhamon · 16.10.2009, 11:34

В свое время написал следующий лисп (см. ниже), который ставит Точку в центр тяжести области, полилинии (замкнутой),круга, эллипса или 3dsolid-а
Понимаю, что скорее всего "буду бит" местными программистами за качество кода, однако для меня работает надежно

Код:

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

(defun c:centroid (/)
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq numSpace (vla-get-ActiveSpace acadDocument))
  (cond	((= numSpace 1)
	 (setq ActSpace (vla-get-ModelSpace acadDocument))
	)
	((= numSpace 0)
	 (setq ActSpace (vla-get-PaperSpace acadDocument))
	)
  )
  (setq	sset (ssget '((-4 . "<OR")
		      (0 . "CIRCLE")
		      (0 . "ELLIPSE")
		      (-4 . "<AND")
		      (0 . "LWPOLYLINE")
		      (70 . 1)
		      (-4 . "AND>")
		      (0 . "REGION")
		      (0 . "3DSOLID")
		      (-4 . "OR>")
		     )
	     )
  )
  (setq	count (sslength sset)
	i     0
  )
  (while (<= i (1- count))
    (setq objType (cdr (assoc 0 (entget (ssname sset i)))))
    (setq Obj (vlax-ename->vla-object (ssname sset i)))

    (if	(= objType "LWPOLYLINE")
      (progn
	(setq vla_region
			  (car (vlax-safearray->list
				 (vlax-variant-value
				   (vla-addregion
				     (vla-objectidtoobject
				       (vla-get-document
					 Obj
				       )
				       (vla-get-ownerid
					 Obj
				       )
				     )
				     (vlax-safearray-fill
				       (vlax-make-safearray
					 vlax-vbobject
					 (cons 0 (1- (length (list Obj))))
				       )
				       (list Obj)
				     )
				   )
				 )
			       )
			  )
	      centerPtLst
			  (vlax-safearray->list
			    (vlax-variant-value (vla-get-centroid vla_region))
			  )
	      centerPtLst (append centerPtLst (list 0))
	      centerPtLst (trans centerPtLst 1 0)
	      pointCoord  (ptnList->variantArray centerPtLst)
	      PointObj	  (vla-addPoint ActSpace pointCoord)
	)
	(vla-delete vla_region)
      )
    )

    (if	(= objType "REGION")
      (progn
	(setq centerPtLst
			  (vlax-safearray->list
			    (vlax-variant-value (vla-get-centroid Obj))
			  )
	      centerPtLst (append centerPtLst (list 0))
	      centerPtLst (trans centerPtLst 1 0)
	      pointCoord  (ptnList->variantArray centerPtLst)
	      PointObj	  (vla-addPoint ActSpace pointCoord)
	)
      )
    )

    (if	(or (= objType "CIRCLE") (= objType "ELLIPSE"))
      (progn
	(setq
	  pointCoord
		      
			(vlax-variant-value (vla-get-center Obj))
	  PointObj    (vla-addPoint ActSpace pointCoord)
	)
      )
    )

    (if	(= objType "3DSOLID")
      (progn
	(setq pointCoord
	       
			 (vlax-variant-value
			   (vla-get-centroid Obj)
			 )
	      ;;;centerPtLst (trans centerPtLst 1 0)
	      ;;;pointCoord  (ptnList->variantArray centerPtLst)
	      PointObj	 (vla-addPoint ActSpace pointCoord)
	)
      )
    )
    (setq i (1+ i))
  )
  (princ)
)

запускается по команде Centroid после подгрузки lisp-а

alexNAP · 16.10.2009, 11:41

Спасибо это именно то что надо, но можно подробнее описать как это подгрузить?

tutanhamon · 16.10.2009, 11:47

alexNAP,
по ссылке http://dwg.ru/art/8 описано как подгрузить лисп

alexNAP · 16.10.2009, 11:53

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

tutanhamon · 16.10.2009, 13:54

alexNAP,
как вариант:
Выбрать штриховку, в контекстном меню по правой кнопке мыши выбрать Hatch Edit ("Редактирование..."). Откроется окно редактирования штриховки. Нажать Recreate Boundary ("Восстановить контур..."), выбрать Region (Область) или Polyline (Полилинию) в командной строке. На запрос Associate hatch with new boundary? ("Связать штриховку с новым контуром?") ответить Да или Нет - без особой разницы. И после запустить Centroid и выбрать полученную полилинию (ну или область).

RFL · 16.10.2009, 21:09

А стандартно - превращение фигуры в область и менюшки Сведения Геометрия и масса - чем не устраивает?

SLADE · 16.10.2009, 21:46

Можно ли модернизировать лисп для расчета стале бетона?
с разными модулями упругостями?

Александр Бауск · 16.10.2009, 23:13

Вы чего, народ? Какие лиспы? _MASSPROP и всё.

wetr · 20.01.2011, 05:25

Цитата:

Сообщение от Александр Бауск

Вы чего, народ? Какие лиспы? _MASSPROP и всё.

а так как большинству нужно узнать характеристики полилинии, то
_REGION, а потом _MASSPROP

eng · 20.01.2011, 07:23

эспри

Лиспер · 20.01.2011, 08:33

Цитата:

Сообщение от eng

эспри

Чего???

Дрюха · 20.01.2011, 08:37

Скорее всего он имел ввиду прогу от Лира-софт Э.СПР.И (электронный справочник инженера), позволяющую вычислять характеристики сечения.

Хмурый · 20.01.2011, 08:37

Цитата:

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

Чего???

ЭСПРИ- Электронный СПРавочник Инженера от Лира-софт

wepp · 16.08.2012, 15:23

Цитата:

Сообщение от tutanhamon

запускается по команде Centroid после подгрузки lisp-а

В 2013 Автокаде выдаёт ошибку:

Код:

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

; ошибка: no function definition: PTNLIST->VARIANTARRAY

Можно ли подправить лисп под актуальную версию Автокада?

Проверил в 2006 Автокаде, аналогично:

Код:

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

; ошибка: no function definition: PTNLIST->VARIANTARRAY

Нашёл рабочий вариант на турецком форуме (ссылка).

Код:

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

 (defun c:qw (/)
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq numSpace (vla-get-ActiveSpace acadDocument))
  (cond	((= numSpace 1)
	 (setq ActSpace (vla-get-ModelSpace acadDocument))
	)
	((= numSpace 0)
	 (setq ActSpace (vla-get-PaperSpace acadDocument))
	)
  )
  (setq	sset (ssget '((-4 . "<OR")
		      (0 . "CIRCLE")
		      (0 . "ELLIPSE")
		      (-4 . "<AND")
		      (0 . "LWPOLYLINE")
		      (70 . 1)
		      (-4 . "AND>")
		      (0 . "REGION")
		      (-4 . "OR>")
		     )
	     )
  )
  (setq	count	  (sslength sset)
	i	  0
	n	  0
	m	  0
	k	  0
	summX	  0
	summY	  0
	summareas 0
	listX	  (list)
	listY	  (list)
	listAreas (list)
  )
  (while (<= i (1- count))
    (setq objType (cdr (assoc 0 (entget (ssname sset i)))))
    (setq Obj (vlax-ename->vla-object (ssname sset i)))
    (if	(= objType "LWPOLYLINE")
      (progn
	(setq vla_region
			  (car (vlax-safearray->list
				 (vlax-variant-value
				   (vla-addregion
				     (vla-objectidtoobject
				       (vla-get-document
					 Obj
				       )
				       (vla-get-ownerid
					 Obj
				       )
				     )
				     (vlax-safearray-fill
				       (vlax-make-safearray
					 vlax-vbobject
					 (cons 0 (1- (length (list Obj))))
				       )
				       (list Obj)
				     )
				   )
				 )
			       )
			  )
	      centerPtLst
			  (vlax-safearray->list
			    (vlax-variant-value (vla-get-centroid vla_region))
			  )
	      CurrArea
			  (vla-get-Area vla_region)
	)
	(setq ListX	(append ListX (list (car centerPtLst)))
	      ListY	(append ListY (list (cadr centerPtLst)))
	      ListAreas	(append ListAreas (list CurrArea))
	)
	(vla-delete vla_region)
      )
    )

    (if	(= objType "REGION")
      (progn
	(setq centerPtLst
			  (vlax-safearray->list
			    (vlax-variant-value (vla-get-centroid Obj))

			  )
	      CurrArea
			  (vla-get-Area obj)
	)
	(setq ListX	(append ListX (list (car centerPtLst)))
	      ListY	(append ListY (list (cadr centerPtLst)))
	      ListAreas	(append ListAreas (list CurrArea))
	)
      )
    )
    (if	(or (= objType "CIRCLE") (= objType "ELLIPSE"))
      (progn
	(setq centerPtLst
			  (vlax-safearray->list
			    (vlax-variant-value (vla-get-center Obj))
			  )
	      CurrArea
			  (vla-get-Area obj)
	)
	(setq ListX	(append ListX (list (car centerPtLst)))
	      ListY	(append ListY (list (cadr centerPtLst)))
	      ListAreas	(append ListAreas (list CurrArea))
	)
      )
    )
    (setq i (1+ i))
  )
  (setq	summXlist (mapcar '* ListX ListAreas)
	summYlist (mapcar '* ListY ListAreas)
  )
  (foreach n summXList (setq summX (+ summX n)))
  (foreach m summYList (setq summY (+ summY m)))
  (foreach k ListAreas (setq summAreas (+ summAreas k)))
  (setq	centerPtList (list (/ summX summAreas) (/ summY summAreas) 0)
	pointCoord   (ptnList->variantArray centerPtList)
	PointObj     (vla-addPoint ActSpace pointCoord)
  )
  (princ)
)

(defun ptnList->variantArray (ptsList / arrayActSpace sArray)
  (setq	arrayActSpace
	 (vlax-make-safearray
	   vlax-vbdouble
	   (cons 0
		 (- (length ptsList) 1)
	   )
	 )
  )
  (setq sArray (vlax-safearray-fill arrayActSpace ptsList))
  (vlax-make-variant sArray)
)

P.S. Один минус в коде (для меня). При выделении множества полилиний центр тяжести находится один, для всего множества. Можно ли внести в код небольшое изменение, которое позволило бы найти центр тяжести для каждой полилинии отдельно?

art_09 · 17.09.2012, 14:00

centroid Почему не определяет ц.т. в замкнутых полилиниях неопределенной формы к то может ответить?

Хмурый · 17.09.2012, 14:12

art_09, у областей определяет.
полилинию- в область.

art_09 · 17.09.2012, 16:55

а можно тут подробней если не тяжело как сделать из замкнутых полилиний область или я не тка понял чего то?

Хмурый · 17.09.2012, 18:12

_region команда

art_09 · 17.09.2012, 18:27

Спасибо Хмурый теперь понял все

mutukpuv · 20.09.2012, 17:51

объём определяет цт, если фигура плоская, задайте толщину, нажмите на объём и не берите во внимание "Z" или я чего-то не догнал...

Татьяна С · 26.12.2012, 08:55

Чтобы заработал липс, который указал wepp нужно ввести какую-то команду?

wepp · 26.12.2012, 09:21

Цитата:

Сообщение от Татьяна С

нужно ввести какую-то команду

_qw

Агент СмиТ · 23.01.2014, 12:28

У меня в 2011 автокаде почему то программа Сentroid при выборе одного объекта создаёт поверх него область, при множественном выборе, все кроме одного игнорируются, на оставшийся накладывается копия в виде области, как и в случае с одним объектом, при этом центроиды ни там ни там не появляются (см. вложение).
Лисп qw работает, но как говорилось выше, при выборе нескольких объектов центр масс расчитывается общий... Однако, подгрузив оба лиспа и вызвав команду Сentroid, зараз получил отдельные центроиды для каждого из объектов!!!

Может кто то сможет скомпоновать обе программы воедино, что бы при множественном выборе создавались отдельные ЦМ для каждого объекта?

16.10.2009, 11:25		#1
Определение положения центра тяжести фигуры в АвтоКАДе alexNAP инженер-конструктор Калуга Регистрация: 11.01.2007 Сообщений: 565 Добрый день коллеги! Нет ли у кого программки или модуля, я не знаю как это точно сказать, ну типа Вет Када, который определял бы положение центра тяжести фигуры. Я сейчас пользуюсь Скадом, очень не удобно, беру фигуру сохраняю отдельным файлом в DXF, и импортирую в Консул. Заранее благодарен за ответы.
Просмотров: 44999

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Центр тяжести фигуры	scarface	AutoCAD	5	20.12.2019 11:03
Площадь фигуры и центр её тяжести	rust-resisting	AutoCAD	32	17.11.2010 08:53
Нагрузка на сваи в кусте со смещением центра тяжести относительно нагрузки	baryshnikoff	Основания и фундаменты	3	19.08.2008 13:12
Центр тяжести плоской фигуры , геом. центр контура ?	bdfy	AutoCAD	1	10.05.2005 17:21
определение центра масс здания в SCAD	vv	SCAD	2	27.01.2004 11:59

	Реклама i