[DY]

Код:

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

 
(setq B (vlax-ename->vla-object (car(entsel))))
(vla-GetBoundingBox B 'minp 'maxp)
(print (vlax-safearray->list minp))

Почему выдает результат как
(17.287 164.327 -1.0e-008) (17.287 164.327 -1.0e-008)

вместо
(17.287 164.327 -1.0e-008)

Так и должно быть???

И еще один вопрос:
vla-GetBoundingBox для одного объекта
а есть ли аналог vla-GetBoundingBox для списка объектов?

Спасибо.

[VVA]

1.Так лучше?

Код:

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

(setq B (vlax-ename->vla-object (car(entsel))))
(vla-GetBoundingBox B 'minp 'maxp)
(print (vlax-safearray->list minp))(princ)

Найди 1 отличие.
2. На почившем в бозе autocad.ru Евгений Елпанов выкладывал такую ф-цию.

Код:

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

;|
;**************** lst-getboundingbox.lsp *************
;   Функция    определения габаритного контейнера
;   для списка VLA объектов
;   Автор  Евгений Елпанов.
;*****************************************************
;   Аргумент lst - список VLA объектов
;   пример получения списка с использованием (ssget) :
(if (setq sset (ssget))
 (setq lst
       (mapcar
        (function vlax-ename->vla-object)
        (vl-remove-if
         (function listp)
         (mapcar (function cadr) (ssnamex sset))
        ) ;_ vl-remove-if
       ) ;_  mapcar
 ) ;_  setq
)
;   Пример вызова:
 (lst-getboundingbox lst)
;   Возвращает список из двух 3d точек
;   '((левая нижняя) (правая верхняя))
|;
;|=============================================================================
=============================================================================|;
(defun lst-getboundingbox (lst / maxp minp)
  (vl-load-com)
  (if (and lst (listp lst))
    (apply
      (function
 (lambda (a1 a2 a3 a4 a5 a6)
   (list
     (list
       (apply (function min) a1)
       (apply (function min) a2)
       (apply (function min) a3)
       ) ;_ end of list
     (list
       (apply (function max) a4)
       (apply (function max) a5)
       (apply (function max) a6)
       ) ;_ end of list
     ) ;_ end of list
   ) ;_ end of lambda
 ) ;_ end of function
      (apply
 (function mapcar)
 (cons
   'list
   (mapcar
     (function
       (lambda (x)
  (vla-getboundingbox x 'minp 'maxp)
  (append
    (vlax-safearray->list minp)
    (vlax-safearray->list maxp)
    ) ;_ end of append
  ) ;_ end of lambda
       ) ;_ end of function
     lst
     ) ;_ end of mapcar
   ) ;_ end of cons
 ) ;_ end of apply
      ) ;_ end of apply
    ) ;_ end of if
 
  ) ;_ end of defun

[DY]

Спасибо!

Хотя не могу "догнать" действие связки
(print (vlax-safearray->list minp))(princ)

Видимо вечер - устал...

[VVA]

Любая ф-ция автолиспа возвращает результат. Что-то типа зхо-вывода. А princ без аргументов печатает "пусто". Поэтому рекомендуется команды заканчивать (princ), чтобы не пугать пользователей, выполнивших команду чем-то типа

Выберите объект: #<VLA-OBJECT IAcadLine 13874804>

Т.е. (print (vlax-safearray->list minp)) печатает координаты и возвращает их же в качестве эхо-вывода. Вот и получается дубляж

[DY]

Да уж...
Это не паскаль и Дельфи. Что то туговато мне этот LISP дается - не всегда логику действий понимаю. Хотя надо признать, в чем-то он проще не куда.

[ShaggyDoc]

Сообщение от DY Да уж... Это не паскаль и Дельфи. Что то туговато мне этот LISP дается - не всегда логику действий понимаю. Хотя надо признать, в чем-то он проще не куда.

Да уж. Не Pascal. Это совершенно иная "религия" - функциональный язык. Но после понимания логики, а этого можно достичь и за час (как при обучении езде на велосипеде - никак не получалось, но вдруг поехал, и теперь уже на всю жизнь). Вот тогда можно использовать все преимущества LISP и удивляться, почему простые вещи в императивных языках приходится делать так сложно.

И в то же время не пытаться сделать на LISP то, что гораздо удобнее делать в Delphi.

[VVA]

Тяжело в начале, до тех пор, пока будешь себя ловить на том, что 1+1 хочешь записать как (1 + 1), а не (+ 1 1). Хотя надо признать, что работая с Автокадом и Лиспом с 1990 года, относительно недавно раскрыл для себя в полной мере потенциал функций lambda, mapcar и apply, в результате чего изменился стиль программирования и, наверное, я ближе стал к пониманию "Мира Лиспа". Хотя до таких колоссов как Michael Puckett далеко.
Если ты поймешь как работает этот пример, станешь на порядок ближе к пониманию сущности лиспа.

Код:

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

 
(apply 'mapcar (cons 'list '((1 4 7)(2 5 8)(3 6 9))))

В свое время я делал это пошагово с карандашом в руках.
Вот страничка Michael Puckett. Там много хороших примеров.
Удачи в освоении этого интересного языка.

[Alaspher]

Сообщение от VVA На почившем в бозе autocad.ru Евгений Елпанов выкладывал такую ф-цию...

При всём уважении к Евгению, выложенный код всёже несколько запутан. В качестве альтернативы, можно посмотреть более простой вариант реализации:

Код:

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

(defun demo (/ adoc asel maxlst maxpnt minlst minpnt)
    (setq adoc (vla-get-activedocument (vlax-get-acad-object))
          asel (vla-get-activeselectionset adoc)
    )
    (vla-clear asel)
    (pl:obj-select-on-screen asel "*")
    (vlax-for i asel
        (vla-getboundingbox i 'minpnt 'maxpnt)
        (setq minlst (cons (vlax-safearray->list minpnt) minlst)
              maxlst (cons (vlax-safearray->list maxpnt) maxlst)
        )
    )
    (list (apply (function mapcar) (cons (function min) minlst))
          (apply (function mapcar) (cons (function max) maxlst))
    )
)
(defun pl:obj-select-on-screen (sel enttype)
    (vla-selectonscreen
        sel
        (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
        (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list enttype))
    )
)
(vl-load-com)
 
(demo)

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

Безотносительно логики кода (она, как всегда, безупречна), вопрос: а asel не надо очищать? Я-то обычно иду через ssget....

[Alaspher]

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

[Лентяй]

Сообщение от Кулик Алексей aka kpblc Безотносительно логики кода (она, как всегда, безупречна), вопрос: а asel не надо очищать?

Если ActiveSelectionSet обозначать правильно, т.е. ass, то строка

Код:

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

(if (> (vla-get-count ass) 0) (vla-clear ass))

пишется сама собой

Я-то обычно иду через ssget....

Из бессмертного: "В _______ (вписать нужное - армии, России, нашей фирме) все делается через ________ (вписать нужное - censed, censed, ssget).

[Profan]

В результате работы функции (vla-GetBoundingBox) мы получаем 2 крайние точки габаритного контейнера. Но правильно ли мы трактуем эти точки, строя по ним прямоугольник?
Вот простейшая программа:

Код:

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

(defun C:BO ( / echo obj B pmin pmax) 
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq obj (car (entsel "\nВыберите объект: ")))
(setq B (vlax-ename->vla-object obj))
(vla-GetBoundingBox B 'minp 'maxp)
(setq pmin (vlax-safearray->list minp) pmax (vlax-safearray->list maxp))
(vl-cmdf "_RECTANG" pmin pmax)
(setvar "CMDECHO" echo)
(princ)
)

Во вложении простейший пример с блоком и полилинией. Получается странная картина. Если угол поворота блока не равен 0, то прямоугольник получается больше, чем в случае полилинии.
Почему так происходит?
Аналогичный результат происходит и при использовании приведенных в этой теме программ. Кстати, программа Alaspher вообще работает 1 или 2 раза и вырубается.

[Дима_]

Сообщение от Profan Почему так происходит?

Для блока выдаются габариты повернутого габаритного контейнера, а не его содержимого.

[Profan]

Если эти операции произвести вручную: задать угол поворота блока = 0, получить габаритный прямоугольник, повернуть его на исходный угол и получить новый габаритный прямоугольник, то именно так и получается. (Неужели AutoCAD именно так и делает? И зачем?)
Но вот есть задача:
Имеется несколько разных объектов, в том числе и повернутый блок. Необходимо построить габаритный прямоугольник для всех этих объектов.
Как это корректно выполнить?

[Дима_]

Самое простое - рекурсивно взорвать все вхождения блоков.

[Profan]

Видимо, так и придется сделать.

[trir]

Для слияния MBR - нужно просто найти минимальное и максимальное значение для каждой размерности

[Profan]

MBR - Master Boot Record (Главная Загрузочная Запись). Для слияния разделов на жестком диске я обычно использую Acrinis или Paragon. Эти программы сами показывают минимальные и максимальные размеры разделов.

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

trir, Profan, вы про что?

[trir]

Minimum bounding rectangle, also known as bounding box or envelope

Код:

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

        public void add(Rectangle r)
        {
            for (int i = 0; i < DIMENSIONS; i++)
            {
                if (r.min[i] < min[i])
                {
                    min[i] = r.min[i];
                }
                if (r.max[i] > max[i])
                {
                    max[i] = r.max[i];
                }
            }
        }