[Chip115]

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

Код:

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

 (vl-load-com)
(defun c:calc()
   (command "_view" "_SEISO")
   (setq MyObject (vlax-ename->vla-object (car(entsel))))
   (vla-GetBoundingBox MyObject 'minp 'maxp)
   (setq xyzmax	(vlax-safearray->list maxp) xmax (car xyzmax) ymax (cadr xyzmax) zmax (last xyzmax))
   (setq xyzmin	(vlax-safearray->list minp) xmin (car xyzmin) ymin (cadr xyzmin) zmin (last xyzmin))  
   (progn
   (command "_box" (list xmin ymin zmin) (list xmax zmax ymax)))  
)

Вот что получилось

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

1. Картинки лично я не вижу.
2. Привязки кто будет снимать?
3. По-быстрому, без включения головного мозга:

Код:

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

 (defun tt (/ ent _min _max)
  (if (setq ent (car (entsel)))
    (progn
      (vla-getboundingbox (vlax-ename->vla-object ent) '_min '_max)
      (setq _min (vlax-safearray->list _min)
            _max (vlax-safearray->list _max)
            ) ;_ end of setq
      (command "_box" "_none" _min "_none" (list (car _max) (cadr _max) (caddr _min)) "_none" _max)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[Chip115]

Спасибо за ответ. К сожалению ничего не изменилось.

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

AutoCAD 2009 x64, AUtoCAD 2013 x64, AutoCAD 2014 x64 - срабатывает предсказуемо.

----- добавлено через 21 сек. -----
Уточнение: мой код срабатывает предсказуемо. Твой не проверял.

[Chip115]

Блин. Это я дурак. Скобочку не там поставил ((( Черт.
Сработало! Спасибо. Буду курить лисп дальше.

[T-Yoke]

Сообщение от Кулик Алексей aka kpblc AutoCAD 2009 x64, AUtoCAD 2013 x64, AutoCAD 2041 x64 - срабатывает предсказуемо. ....

Неужели я так отстал от жизни и вышла версия автокада 2041
Алексей, успокой меня пожалуйста

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

Господи, уже и опечататься нельзя... ) Конечно, 2014 имелся в виду.

----- добавлено через 17 сек. -----
Исправил