[Zaghim]

Народ минитема, полный тупняк... Не могу из такого списка вытащить значения расширенных данных под 1000 и 1070
(("TEST" (1000 . "Привет") (1070 . 300)))
Даже стыдно, но ничего поделать не могу!

[VVA]

А так сможешь?

Код:

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

 
(setq lst '(("TEST" (1000 . "Привет") (1070 . 300))))
(cdr(assoc "TEST" lst))

[Zaghim]

Да эт понятно, но если сделать (cdr (assoc 1000 lst)), то будет nil. В общем ладно, сделал по-другому. Закройте тему!

[VVA]

Сообщение от Zaghim но если сделать (cdr (assoc 1000 lst))

Найди 1 отличие

Код:

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

 
(cdr
  (assoc
    1000
    (cdr
      (assoc "TEST" lst)
      )
    )
  )

[mamuk]

а так корректно будет?

Код:

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

  (setq obj (car(entsel "\nУкажите объект")))
             (setq rd(car(cdr(assoc -3 (entget obj (list "test"))))))

[Zaghim]

Вначале примерно так же делал, по-моему результат будет (1000 . "Привет") ... хотя не уверен, попробуй, вот листинг из Полещука:

Код:

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

; Регистрация приложения LAUNCH01
(regapp "LAUNCH01")

; Получение списка данных последнего примитива
(setq le (entget (entlast)))

; Формирование подсписка расширенных данных
(setq edata (list (list -3 (list "LAUNCH01"
  (cons 1000 "Ступень") (cons 1070 121)))))

; Включение в список расширенных данных
(setq le2 (append le edata))

; Присоединение расширенных данных к примитиву
; (обновление примитива)
(entmod le2)

; Проверка данных примитива
(entget (entlast) '("LAUNCH01"))