[mkung]

Задача:
В пространстве листа нужно сформировать аннотацию к объекту, расположенному в пространстве модели.
Аннотация формируется программно на основании свойств объекта.
Но для работы (entsel) требуется активировать модель в видовом экране, что не очень удобно (или очень неудобно).
Вопрос:
Можно ли получить идентификатор объекта модели указанием на него без предварительной активации модели в видовом экране мышью и т.д.?
Пример - как хотелоь бы:
Простановка в пространстве листа радиуса дуги, расположенной в пространстве модели.

Заранее благодарен.

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

Размеры у тебя ассоциативные, вот и все.

[Сергей Богатов]

Offtop:

Сообщение от Кулик Алексей aka kpblc Размеры у тебя ассоциативные, вот и все.

Я к тому и веду. В задаче у топикстартера было именно это. Может у него отключено? Увидел, что ТС нужно именно программное решение

[skkkk]

Вопрос темы звучит так:

Сообщение от mkung Можно ли выбрать объект модели из листа не активируя видовой экран?

Видимо, ответ кроется здесь:

Сообщение от Сергей Богатов Я когда тыкаю из ПЛ в образмеривание дуги или окружности , то радиус привязывается к элементу в модели и даже двигается вместе с ВЭ.

Действительно, выбрать объект модели из листа, не активируя видовой экран, можно, но не функцией (entsel), но запросом объекта в стандартной команде простановки размера, причем любого: линейного, радиального, дугового... Я совсем позабыл об этом, поскольку все аннотации наношу в модели. Другими словами, как и подразумевал Дима_ в #3, на лиспе выбрать таким образом объект не удастся, командными методами - сколько угодно.
Есть еще один вариант: в пространстве листа при неактивном ВЭ запросить у пользователя точку

Код:

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

(setq pt (getpoint))

и скормить ее на запрос объекта командой образмеривания. Примерно так:

Код:

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

(command "_.dimradius" !pt pause)

(обратить внимание на восклицательный знак перед pt)

[VVA]

Сообщение от mkung А нельзя как-нибудь попроще? Например: 1. Активировать программно пространство модели в видовом экране (по щелчку мыши). 2. Выбрать объект по (entsel). 3. Вернуться программно в пространство листа. Конкретно интересует реализация пунктов 1 и 3.

Активируется текущий (если в листе несколько) видовой экран. Переключение - щелчок мыши внутри требуемого

Код:

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

(defun C:TEST ()
(vl-load-com)
(if (and
          (cond
            ((= (getvar "TILEMODE") 1)(alert "Перейди в пространство листа"))
            ((= (getvar "TILEMODE") 0)
             (if (not (equal (getvar "cvport") 1))
               (progn
                 (command "_.PSPACE")
                 (if (setq PICK1 (ssget "_x" '((0 . "VIEWPORT") (67 . 1))))
                   (progn
                     (setq PICK1
                            (mapcar (function vlax-ename->vla-object)
                                    (vl-remove-if
                                      (function listp)
                                      (mapcar (function cadr) (ssnamex PICK1))
                                    ) ;_ vl-remove-if
                            ) ;_  mapcar
                     ) ;_  setq
                     (mapcar '(lambda (vp)
                                (vla-put-displaylocked vp :vlax-true)
                              ) ;_ end of lambda
                             PICK1
                     ) ;_ end of mapcar
                   ) ;_ end of progn
                 ) ;_ end of if
               ) ;_ end of progn
             ) ;_ end of if
             (if (= (getvar "CVPORT") 1)
               (command "_.MSPACE")
             ) ;_ end of if
             t
            )
          ) ;_ end of cond
          (setq ent (car(entsel "\nВыберите полилинию")))
        )
  (progn
     (if (and (= (getvar "TILEMODE") 0)
                  (not (equal (getvar "cvport") 1))
             ) ;_ end of and
           (command "_.PSPACE")
      ) ;_ end of if
    (princ "\nВы выбрали : ")(princ ent)(princ)
    )
  )
  )

[mkung]

Сообщение от VVA Активируется текущий (если в листе несколько) видовой экран. Переключение - щелчок мыши внутри требуемого

Спасибо. Работает, вроде, как надо. Буду разбирать текст "по слогам".