| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp`ик написать бы ?

Lisp`ик написать бы ?

Ответ
Поиск в этой теме
Непрочитано 01.12.2004, 15:25 #1
Lisp`ик написать бы ?
ilka_t
 
Москва
Регистрация: 20.01.2004
Сообщений: 154

Обращаюсь опять к вам с просьбой, так как Lisp я не знаю как писать, может кто поможет...

Суть просьбы в следующем:

Есть замкнутая полилиния и необходимо найти центр етой фигуры, и отметить его (точкой).

а то приходится каждый раз линию перегонять в регион и дальше мучится......
Просмотров: 2413
 
Непрочитано 01.12.2004, 16:01
#2
AY


 
Сообщений: n/a


Может это подойдет:
Цитата:
***********************************************************
МОМЕНТ_ИНЕРЦИИ.LSP
Расчет геометрических характеристик сечения соствлен-
ного из замкнутых полилиний, с построением эллипса
инерции и отрисовкой осей. См. пример в файле
Sample.dwg

ПЛОЩАДЬ_КОНТУРА.LSP
Определение площади сложного составного сечения с
указанием точки внутри сечения. Можно ипользовать
как определитель площади заштрихованной области.
См. пример в файле Sample.dwg

**********************************************************

Сергей Пурошев г.Донецк
@-mail : [email protected]
т. 335-46-49
***********************************************************
скачивал здесь:
Цитата:
geom.zip 17.03.02 14Кб Расчет геометрических характеристик сечения составленного из замкнутых полилиний, с построением эллипса инерции и отрисовкой осей
http://helpstud.narod.ru/download.html
 
 
Непрочитано 01.12.2004, 16:10
#3
Apelsinov

Проектировщик ВК. LISP-любитель.
 
Регистрация: 15.12.2003
Москва
Сообщений: 1,186
<phrase 1=


>ilka_t
Цитата:
Сообщение от Журнал Компьютерра
Сколько различных центров может быть у треугольника? Думаете, всего один? Ставлю вам двойку. Три? Четыре? Ладно, так и быть — тройка с минусом. Любители математики, наверное, насчитают семь или восемь точек, которые могут претендовать на звание того или иного центра треугольника. А вот Кларк Кимберлинг (Clark Kimberling) собрал в своей книге информацию о четырехстах таких точках, а на сайте и вовсе описал более тысячи!...
http://offline.computerra.ru/2004/567/36684/
Какой надо центр?
( См. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=7366KS
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=7492iC )
Apelsinov вне форума  
 
Непрочитано 01.12.2004, 17:48
#4
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Я так понимаю что нужно найти центроид региона образованного от замкнутой полилинии. Вот такой экспресс-вариант:
Код:
[Выделить все]
(defun c:polycen (/ polySet polyList Model newPl obArr newReg newPt)
  (princ "\n*** Select closed polylines *** ")
  (if
  (setq polySet(ssget '((0 . "LWPOLYLINE"))))
   (progn
     (setq polyList(mapcar 'vlax-ename->vla-object 
                            (vl-remove-if 'listp 
                              (mapcar 'cadr(ssnamex polySet))))
	   Model(vla-get-ModelSpace
		   (vla-get-ActiveDocument
		     (vlax-get-acad-object)))
	   ); end setq
     (foreach p polyList
       (if(= :vlax-true(vla-get-Closed p))
	 (progn
       (setq newPl(vla-copy p)
	     obArr(vlax-make-safearray vlax-vbObject '(0 . 0))
	     ); end setq
       (vlax-safearray-put-element obArr 0 newPl)
       (setq newReg(car(vlax-safearray->list
		     (vlax-variant-value
		       (vla-AddRegion Model obArr))))
             newPt(vlax-3d-point
		    (append
		    (vlax-safearray->list
		      (vlax-variant-value
			(vla-get-Centroid newReg)))(list 0.0)))
	 ); end setq
       (vla-AddPoint Model newPt)
       (vla-delete newPl)(vla-delete newReg)
       ); end progn
	 ); end if
       ); end foreach
     ); end progn
  (princ "\n*** Notning polylines selected! *** ")
  ); end if
  (princ)
  ); end of c:polycen
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 02.12.2004, 15:50
#5
ilka_t


 
Регистрация: 20.01.2004
Москва
Сообщений: 154


Всем спасибо, то что нужно.
ilka_t вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp`ик написать бы ?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск