[ilia22]

Есть чертеж в Autocad. Для примера любой многоугольник. Нужно занести размеры фигуры из пространства модели в AutoLisp/ Работаю в 6-м AutoCad. Если кто знает как делать подскажите. Или скиньте листинг.

[gomer]

Шо, опять? Вам на парах так и объясняют?

[ilia22]

Эт не по учебе. Эт по работе.

[gomer]

Сообщение от ilia22 Эт по работе.

так что за фигура? из скольки пальцев?

Сообщение от ilia22 Если кто знает как делать подскажите

Как-то знают, а вот ЧТО? покрыто звездной пылью

[ilia22]

"Для примера любой многоугольник". Если такой дотошный то неправильный семиугольник. Мне важен сам принцип считывания координат

[Елпанов Евгений]

Сообщение от ilia22 "Для примера любой многоугольник". Если такой дотошный то неправильный семиугольник. Мне важен сам принцип считывания координат

Он не дотошный!
Вопрос в том, из какого примитива акада надо вытащить площадь.
Если сложно ответить, то просто приложи файл с семиугольником или опиши более подробно, что ты называешь фигурой.

как пример, многоугольник можно нарисовать:
1. отдельными линиями, причем не все вершины будут совпадать
2. Полилинией
3. линиями
4. трехмерной полилинией
5. регионом
6. штриховкой без контура
7. наложением нескольких солидов - те, которые 2д
8. то же, но в блоке или внешей ссылке

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

[ilia22]

полилиния. без штриховки в пространстве модели

[Дима_]

А поискать "координаты вершин поллилинии" не пробовал.

[ilia22]

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

[gomer]

(massoc 10 (entget (car (entsel))))

[Дима_]

Сообщение от ilia22 Эт не по учебе. Эт по работе.

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

[ciril]

Код:

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

 (defun c:getxy	(/ x00 x01 x02)
  (while (not (and (setq x00 (car (entsel "\nВыберите полилинию...")))
		   (eq "LWPOLYLINE" (cdr (assoc 0 (setq x00 (entget x00))))))))
  (setq x01 (list))
  (repeat (cdr (assoc 90 x00))
    (setq x01 (append x01 (list (cdr (setq x02 (assoc 10 x00)))))
	  x00 (cdr (member x02 x00))))
  (princ x01)
  (princ))

Координаты выводит на экран списком, не проверяет на совпадение вершин Вообще, предыдущие высказывания правомерны, задачу нужно описывать четко

[ilia22]

ciril спасибо за помощь. вот только еще возникло несколько вопросов. Почему то не сравниваются координаты

Код:

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

 (defun c:get (/ x00 x01 x02)
 (while (not (and (setq x00 (car (entsel "\n Âûáåðèòå ïîëèëèíèþ")))
          (eq "LWPOLYLINE" (cdr (assoc 0 (setq x00 (entget x00)))))))) ;âûáèðàåì ïîëèëèíèþ
 (setq x01 (list)
       x01 (cdr (setq x02 (assoc 10 x00)))
       x000 x00
       x00 (cdr (member x02 x00))			;ñïèñîê îñòàâøèõñÿ êîîðäèíàò
       x_start_1 (car x01)				;ïåðâàÿ êîîðäèíàòà
       y_start_1 (car(cdr x01))
       x_prev x_start_1					;äëÿ âòîðîé òî÷êè âûñòàâëÿåì ïðåäóùóþ êîîðäèíàòó
       y_prev y_start_1
       )
 (setq x01 (cdr (setq x02 (assoc 10 x00)))
       x00 (cdr (member x02 x00))			;ñïèñîê îñòàâøèõñÿ êîîðäèíàò
       x_start_2 (car x01)	;âòîðàÿ êîîðäèíàòà
       y_start_2 (car(cdr x01))
       x_shield1 x_start_2				
       y_shield1 y_start_2
       )
 (setq x01 (cdr (setq x02 (assoc 10 x00)))
       x00 (cdr (member x02 x00))			;ñïèñîê îñòàâøèõñÿ êîîðäèíàò
       x_start_3 (car x01)	;òðåòüÿ êîîðäèíàòà
       y_start_3 (car(cdr x01))
       x_shield2 x_start_3				
       y_shield2 y_start_3
       )
 (repeat (-(cdr (assoc 90 x000))3)
   (setq x01 (cdr (setq x02 (assoc 10 x00))) 	;áóäóùàÿ êîîðäèíàòà
	 x00 (cdr (member x02 x00))		;ñïèñîê îñòàâøèõñÿ êîîðäèíàò
	 x_next (car x01)
	 y_next (car(cdr x01)))
   (if (and(/= x_next x_shield2)(/= y_next y_shield2))
     (print
        (alert "/=")
	(print x_shield2)
	(prin1 )
	(prin1 y_shield2)
	(print x_next)
	(prin1 )
	(prin1 y_next)
     )
     )
  (setq x_prev x_shield1
	y_prev y_shield1
	x_shield1 x_shield2
	y_shield1 y_shield2
	x_shield2 x_next
	y_shield2 y_next)

   )
  )

Рисунок который считываю приложил