[yline]

Пытаюсь сделать так:

(defun C:MY (/)
(setq aa0 (entget(ssname (ssget "_:S") 0)))
(setq aax (cadr (assoc 10 aa0)))
...

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

[Дима_]

(vla-getboundingbox...) - координаты указанных точек габаритного контейнера любого примитива (ну или взять все точки и вычислить самому)

[Кулик Алексей aka kpblc]

(с)перто:

Код:

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

                             ;|
*    Функция получения координат легкой полилинии (LWPOLYLINE) в WCS. Возвращает
* список 3Д-точек
*    Автор: BOZ (http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26461HC)
*    Оригинальный код:
|;

(defun lwpoly_vert (lwpoly / plinee elev vnv)
  (setq  plinee (entget lwpoly)
  elev   (cdr (assoc 38 plinee))
  vnv    (cdr (assoc 210 plinee))
  ) ;_ end of setq
  (mapcar
    (function (lambda (x) (trans (list (cadr x) (caddr x) elev) vnv 0)))
    (vl-remove-if-not (function (lambda (x) (= (car x) 10))) plinee)
    ) ;_ end of mapcar
  ) ;_ end of defun

[VVA]

Дополню ответ Алексея примером

Код:

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

;|
*    Функция получения координат легкой полилинии (LWPOLYLINE) в WCS. Возвращает
* список 3Д-точек
*    Автор: BOZ (http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26461HC)
*    Оригинальный код:
|;

(defun lwpoly_vert (lwpoly / plinee elev vnv)
  (setq  plinee (entget lwpoly)
  elev   (cdr (assoc 38 plinee))
  vnv    (cdr (assoc 210 plinee))
  ) ;_ end of setq
  (mapcar
    (function (lambda (x) (trans (list (cadr x) (caddr x) elev) vnv 0)))
    (vl-remove-if-not (function (lambda (x) (= (car x) 10))) plinee)
    ) ;_ end of mapcar
  ) ;_ end of defun
;| ! ***************************************************************************
;; !           lib:pt_extents
;; ! ***************************************************************************
;; ! Function : Возвращает границы MIN, MAX X,Y,Z списка точек
;; ! Argument : 'vlist' - Список точек
;; ! Returns  : Список точек (ЛевНижн ПравВерхн)
;; ! ***************************************************************************|;
(defun  lib:pt_extents (vlist / tmp)
  (setq tmp (apply 'mapcar (cons 'list vlist)))
  (list (mapcar '(lambda(x)(apply 'min x)) tmp)(mapcar '(lambda(x)(apply 'max x)) tmp)));_defun

Пример использования

Код:

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

(defun C:TEST ()
  (setq ss (ssget "_:E:S" '((0 . "LWPOLYLINE")))) ;_выбрали полилинию
  (setq lw (ssname ss 0)) ;_извлекли из набора полилинию
  (setq lst (lwpoly_vert lw)) ;_получили координаты вершин полилинии
  (setq min-max (lib:pt_extents lst)) ;_получили список ((min_X min_Y min_Z)(max_X max_Y max_Z))
  )

[yline]

Спасибо вам огромное за помощь, все получилось. AutoLisp просто чудо.

[VVA]

yline, Можно еще предварительно проверить, а прямоугольник ли выбранная полилиния?
программно определить фигуру
На всякий случай выкладываю здесь.
Команда DZ8.
Программно распознаются:
1. Параллелограмм (и его разновидности ромб, квадрат, прямоугольник)
2. Трапеция
3. Треугольник (и его разновидности равносторонний, равнобедренный, прямоугольный)
4. Круг (состоящий из 2-х дуговых сегментов полилинии)
Текст сдабдил достаточно подробными (надеюсь) коментариями