Расширенные примитивы

Олег совершенно прав. Особенно насчет использования новых функций VisualLisp. Это очень мощное средство. VLAX-, VLR- делают VisualLisp очень интересным. Жаль только, что "Visual" просто маркетинговый ход, но "невизуальные" возможности его для версий 15.хх очень хороши.

Правда сам я пока этим пользуюсь мало, так как вынужден поддерживать версии 14.

Попробуй так:

(defun extendprim (prom44 / point771 z new1)
   (setq point771 (entget (car (entsel "Указать объект"))))
   (if (NOT (tblsearch "appid" "NEW155"))
     (regapp "NEW155")
   ) ;_ end of if
   (setq z (list (list -3 (list "NEW155" (cons 1040 prom44)))))
;;;
;;; Если нужны только короткие целые числа, то можно
;;; использовать код 1070
;;;
   (setq new1 (append point771 z))
   (entmod new1)
;;;
;;;  (entget (car (entsel "Указать объект")) '("NEW155"))
;;; Как я понял эта строка только для проверки
;;;
)

Проверял в R15, но должно работать и в R14

Могу предложить для записи чтения расширенных данных две свои старые функции:

Запись:
APP-имя приложения
Prim - имя примитива
DataList - список расширенных данных
Список одноуровневый из чисел, строк и точек
(defun SetExtData (App Prim DataList / AList)
  (if (not (tblsearch "APPID" App)) (regapp App))
  (setq AList '((STR 1000)(REAL 1040)(INT 1070)(LIST 1010))
    DataList (mapcar
         '(lambda (x) (cons (cadr (assoc (type x) AList)) x))
         DataList
        )
  )
  (entmod (cons (list -3 (cons App DataList)) (entget Prim)))
)

Чтение:
APP-имя приложения
Prim - имя примитива
Возвращает список
(defun GetExtData (App Prim)
  (mapcar 'cdr (cdadr (assoc -3 (entget Prim (list App)))))
)

Пример использования

(SetExtData Prim "NEW155" '("Мои данные" 25))
(GetExtData Prim "NEW155")

Есть функция и для списков произвольной иерархии - но она большая.

Огромное спасибо всем, кто ответил на такой для меня животрепещущий вопрос. Однако получается несколько не то, что я хотел. Задача состояла в том, чтобы связать с данным графическим примитивом дополнительную информацию, отражаемую на экране после ВВОДА ЕЁ пользователем. Использование расширенных данных позволяет ввести только наперед заданную константу, прописанную в поле точечной пары. Я решил эту задачу путем записи атрибута в примитив. Вот такое решение получилось (за оптимальность кода не ручаюсь):
; Запись атрибута в притимив
(defun atrib_in ( / a aa ab) 
   (setq a (entsel "Указать объект"))
   (setq aa (car (reverse a)))
   (setq ab (getstring "Текст"))
   (command "_.ATTDEF" "" ab "" "" aa "" "")
)
; Считывание атрибута с указанного примитива
(defun atrib_out ( / atrib77)
   (setq atrib77 (entget  (entnext (car (entsel)))))
   (if (/= atrib77 nil)
        (setq textt (cdr (assoc 2 atrib77)))
   )
)

P.S. Понимаю, что работать это будет, если у примитива не было атрибутов.
А с расширенными примитивами я так и не понял: можно решить такую задачу или нет...

Хот я и не "гуру"... Насчёт оптимальности кода, как минимум не:

(setq aa (car (reverse a)))

а

(setq aa (cadr a)) ;_ это стандартное решение

По самому решению. Такой вариант непригоден для решения вопроса более чем для одного пользователя (причём именно того, кто это решение создал).

Вариантов корректного решения может быть несколько. Как пример схемы такого решения: в расширенной части DXF основного примитива можно хранить метку указывающую на примитив типа TEXT в который и записывается некая информация (его, естественно, надо корректно сформировать и лучше через entmake). Информацию можно хранить как в расширенной части DXF основного примитива, так и в словаре, а можно ограничиться собственно строкой текстового примитива. Обновление содержания можно реализовать и как функцию запрашивающую пользователя и как реактор срабатывающий на какое то условие. В расширенной части DXF дочернего примитива стоит сохранять метку основного примитива, что бы можно было организовать доступ к основному примитиву через дочерний. Метки, естественно, должны быть включены. Обязательно надо делать реактор, который обрабатывал бы ситуацию с изменением или удалением основного примитива, другой реактор на изменение / удаление дочернего, ну и ещё всякие мелочи...

Спасибо, Alaspher, Sergej! Все работает как надо! Я снова провел ревизию в своих взглядах на возможности расширенных примитивов.
Кажется, с ними я смогу вершить ба-а-альшие дела! Еще раз огромное Спасибо!!!
Но человек - существо неугомонное: если есть какие-нибудь соображения по поводу
моего второго вопроса (от 20.12 прошлого года): "...у меня Акад 14.5 (рус.), и я читал, что Vlisp работает в 14-м...".
Может, что нибудь можно посоветовать?

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

Спасибо за совет. Нашел я эту книгу в магазине, да только в виртуальном (MISTRAL). Пока достать не могу. А разобраться надо сейчас.  Может быть где-то хоть какие-то её кусочки лежат в открытом электронном виде? Подскажите, кто может. Буду вельм? ?дзячны ;))