[olga87]

Здравствуйте Уважаемые программисты NanoCAD!

Есть код lisp (ниже), он работает так - создает прямоугольный ВЭ в Листе, затем сразу этот ВЭ активируется и задается значение системной переменной, в конце ВЭ деактивируется.

Вопрос: Код работает только для первого созданного ВЭ на Листе, Но НЕ работает для 2-го, 3-го,... помогите исправить код? *Есть проблема с неправильным выбором последнего созданного ВЭ.

Код:

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

(defun c:AddRect_GRID ( / a b)
   (vl-load-com)
   (command "AddRectangleViewport")
   (setq a (entlast))

    (if (setq b (entget a))
       (progn
         (setq b (vla-get-activedocument (vlax-get-acad-object)))
         (vla-put-mspace b :vlax-true)
         (setvar "GRIDDISPLAY" 3)
         (vla-put-mspace b :vlax-false)
       )
     )

  (princ)
)

так вроде бы работает:

----- добавлено через ~55 мин. -----
(defun c:AddRect_GRID ( / vp)
(vl-load-com)
(command "AddRectangleViewport")
(setq vp (entlast))
(command "_.MSPACE")
(setvar 'CVPORT (cdr (assoc 69 (entget vp))))
(setvar "GRIDDISPLAY" 3)
(command "_.PSPACE")
(princ)
)