Максимальные и минимальные коородинаты

@DimaZHL · Регистрация: 10.11.2013

Author24 — интернет-сервис помощи студентам

есть свойства примитива которые содержаться в edata

Lisp

1	(setq edata (entget (entlast)))

Нужно найти максимальные и минимальные координаты по х и у

@Catstail · 09.12.2013, 18:50

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

(setq edata (entget (entlast)))

- эта запись с точки зрения Лиспа означает:
переменной edata присвоить значение функции entget, аргументом которой является результат вызова функции entlast без параметров. Так? Где здесь координаты?

@DimaZHL · 09.12.2013, 19:20 **[ТС]**

Lisp

1 2	(setq ename (entlast)) (setq edata (entget (entlast)))

вот так

@Catstail · 09.12.2013, 19:40

А... Это автолисп. Тогда надо ждать Lambdik-а и Ur-naz-а.

Добавлено через 2 минуты
Хороший сайт по Автолиспу

@DimaZHL · 09.12.2013, 19:43 **[ТС]**

да, это автолисп. извиняюсь, что забыл сразу уточнить

@Lambdik · 09.12.2013, 20:52

Ну, допустим так.

Lisp

;;Максимальные и минимальные координаты по х и у.
 
;Последний примитив.
(setq edata (entget (entlast)))
 
;Координаты примитива.
(setq coord
(mapcar '(lambda (x) (cdr x))
  (vl-remove-if '(lambda (x)
     (and (/= (car x) 11) (/= (car x) 10))) edata)))
 
((98.8135 762.813) (964.476 1206.33) (1455.02 517.614) (946.441 211.116))
 
 
;Сортировка по X.
(setq m-x
  (vl-sort coord '(lambda (mn mx) (< (car mn) (car mx)))))
 
;Сортировка по Y.
(setq m-y
  (vl-sort coord '(lambda (mn mx) (< (cadr mn) (cadr mx)))))
 
;min & max of X.
Command: (list (car m-x) (last m-x))
 
((98.8135 762.813) (1455.02 517.614))
 
;min & max of Y.
Command: (list (car m-y) (last m-y))
 
((946.441 211.116) (964.476 1206.33))

@DimaZHL · 09.12.2013, 21:32 **[ТС]**

спасибо

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	09.12.2013, 18:50	2
	Сообщение от DimaZHL (setq edata (entget (entlast))) - эта запись с точки зрения Лиспа означает: переменной edata присвоить значение функции entget, аргументом которой является результат вызова функции entlast без параметров. Так? Где здесь координаты? 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	09.12.2013, 19:40	4
	А... Это автолисп. Тогда надо ждать Lambdik-а и Ur-naz-а. Добавлено через 2 минуты Хороший сайт по Автолиспу 1

@DimaZHL 0 / 0 / 0 Регистрация: 10.11.2013 Сообщений: 11
	09.12.2013, 19:43 [ТС]	5
	да, это автолисп. извиняюсь, что забыл сразу уточнить 0

@DimaZHL 0 / 0 / 0 Регистрация: 10.11.2013 Сообщений: 11
	09.12.2013, 21:32 [ТС]	7
	спасибо 0