[SNIIP]

Язык: LISP. Автокад 2012. Понимаю, что легко нагуглить, но на работе доступ только форуму dwg, поэтому надеюсь на помощь...

Я спросил у пользователя выберите объекты: и он выбрал пусть 10 прямоугольников.
мне нужно из этого массива объектов сформировать список из координат верхнего левого и нижнего правого угла. друг за другом просто цифры...

Тут 2 строчки но блин не могу нагуглить (((

[roaa]

Без проверок как-то так:

Код:

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

 
(defun _bound_lst (ss)
;;; Функция получения координат габаритных точек
;;; минимально левой и максимально правой
(defun _sensor_prim_sel ( ss typ)
;;; ss - набор в список VLA или ename примитивов
;;; Возврат:
;;; если typ nil, то ename, t - vla 
;;; список примитивов
  (setq primlst nil)
  (cond
    ( (not (eq (type ss) 'PICKSET))
      (princ "/nThis is not a PICKSET") nil
    )
    ( (setq primlst 
                    (repeat 
                      (setq item (sslength ss))
	                    (setq primlst (cons (ssname ss (setq item (1- item))) primlst))
	                  )
	    )
	    (if typ (mapcar 'vlax-ename->vla-object primlst) primlst)           
    )
  )
)

  (mapcar 
    (function 
      (lambda (x)
        (vla-GetBoundingBox x 'MinPt 'MaxPt)
        (list (vlax-safearray->list MinPt)(vlax-safearray->list MaxPt))
      )
    )
  (_sensor_prim_sel ss t))
)

[Profan]

Сообщение от roaa ;;; минимально левой и максимально правой

А ему нужно "максимально левой и минимально правой".

[gomer]

для начала определитесь что есть для вас прямоугольники... ну и не забываем про основы лиспа - car и cdr

Код:

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

 (list (car MinPt) (cadr MaxPt)) ; левый верхний
(list (car MaxPt) (cadr MinPt)) ; правый нижний

[SNIIP]

пока разбирался нашел готовое решение на VB. ну т.к. знаю тольок лисп... попытаюсь свое доделать из спортивного интереса)))


Позже......

НЕ работает тот код на VB... выкладываю свой... рабочий... берешь, обрамляешь в прямоугольники чертежи... вводишь команду printser
и печатаются все прямоугольники

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

Пока работа немного "подвисла", на коленке:

Код:

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

 (vl-load-com)

(defun test (/ selset)
  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget '((0 . "LWPOLYLINE")
                                           (90 . 4)
                                           (-4 . "<OR")
                                           (70 . 1)
                                           (70 . 129)
                                           (-4 . "OR>")
                                           )
                                         ) ;_ end of ssget
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (setq selset (apply (function append)
                          (mapcar
                            (function
                              (lambda (ent / _min _max)
                                (vla-getboundingbox (vlax-ename->vla-object ent) '_min '_max)
                                (list (vlax-safearray->list _min) (vlax-safearray->list _max))
                                ) ;_ end of lambda
                              ) ;_ end of function
                            ((lambda (/ tab item)
                               (repeat (setq tab  nil
                                             item (sslength selset)
                                             ) ;_ end setq
                                 (setq tab (cons (ssname selset (setq item (1- item))) tab))
                                 ) ;_ end of repeat
                               ) ;_ end of lambda
                             )
                            ) ;_ end of mapcar
                          ) ;_ end of apply
            ) ;_ end of setq
      (list (cons "min" (mapcar '(lambda (n) (apply 'min (mapcar '(lambda (x) (nth n x)) selset))) '(0 1 2)))
            (cons "max" (mapcar '(lambda (n) (apply 'max (mapcar '(lambda (x) (nth n x)) selset))) '(0 1 2)))
            ) ;_ end of list
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 46 сек. -----
Правда, на "прямоугольность" не проверяю - лениво

[SNIIP]

Ну я вот сделал... все вроде работает... (взял и первого поста функцию и командными методами разбавил). С точки зрения программирования не очень но мне пойдет... вот печатал дня 3... потом вдруг раз и в 1 файле не печатает(прикрепляю его).. вернее почему то все координаты смещает... В чем косяк может быть? привязка не причем.. отключал... включал...


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

[baksconstructor]

Сообщение от SNIIP В чем косяк может быть? привязка не причем.. отключал... включал...

Может быть найдёте ответ здесь - Пакетная печать множества рамок (форматов) из пространства модели. , проанализируете существующее и может найдёте (я в лиспе не понимаю).

[SNIIP]

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

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

Систему координат проверяй

[baksconstructor]

Сообщение от SNIIP не могу понять почему именно в нем координаты слетают и прямоугольники берутся вообще с других мест...

Почему слетают не знаю, но если послать на печать вариантом №1, а потом сохранить файл то эта ошибка исчезнет.

[SNIIP]

Алексей прав... в непечатаемых файлах ПСК сбитая стояла, СПАСИБО)

----- добавлено через ~21 ч. -----
АХ вот не тут то было) Начали использовать в отделе... у всех нормально а у одного сотрудника на этой строчке:

Код:

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

(if typ (mapcar 'vlax-ename->vla-object primlst) primlst)

вылетает: ошибка: no function defenition

Я так понимаю это ошибка - на его компе что не так, т.к. у остальных работает... в чем дело?

----- добавлено через ~23 ч. -----
а может это быть из за отсутствия (vl-load-com) в первом посте??
почему тогда у остальных работает?

[skkkk]

Сообщение от SNIIP почему тогда у остальных работает?

У остальных (vl-load-com) есть в каком-либо лиспе в автозагрузке, например, или эта строчка прописана в acaddoc20XX.lsp.