[Profan]

Не пойму, что происходит. Рисую прямоугольник в AutoCAD 2009 и ввожу следующие коды:

Код:

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

(setq pl (entsel "\n Выберите замкнутый контур: "))

и

Код:

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

(command "_AREA" "_O" pl)

Получаю (числа произвольные, разумеется)
Площадь = 1666613.0021, Периметр = 5262.1099

Выполняю то же самое в AutoCAD 2011
Получаю
nil

Почему?

[gomer]

(getvar 'area)
(getvar 'perimeter)

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

Код:

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

 (vl-load-com)

(defun test (/ ss)
  (if (= (type
           (setq
             ss (vl-catch-all-apply
                  (function
                    (lambda ()
                      (ssget "_+.:S:E" '((0 . "LWPOLYLINE") (70 . 1)))
                      ) ;_ end of lambda
                    ) ;_ end of function
                  ) ;_ end of vl-catch-all-apply
             ) ;_ end of setq
           ) ;_ end of type
         'pickset
         ) ;_ end of =
    (vla-get-area (vlax-ename->vla-object (ssname ss 0)))
    ) ;_ end of if
  ) ;_ end of defun

[Profan]

Сообщение от gomer (getvar 'area) (getvar 'perimeter)

Какая там (getvar), если area равна nil.

[gomer]

Это не area, a command равна nil