Лаба 4 / Расширение данных

;Присоединения расширенных данных

; Регистрация приложения LAUNCH01
(regapp "LAUNCH01")
; Получение списка данных последнего примитива
(setq le (entget (entlast)))
; Формирование подсписка расширенных данных
(setq edata (list (list -3 (list "LAUNCH01"
(cons 1000 "Stypeni") (cons 1070 121)))))
; Включение в список расширенных данных
(setq le2 (append le edata))
; Присоединение расширенных данных к примитиву
; (обновление примитива)
(entmod le2)
; Проверка данных примитива
(entget (entlast) '("LAUNCH01"))

;Удаление расширенных данных
; Удаление расширенных данных из примитива
(defun clean_xdata (ent app / le le1)
(if (and (= (type ent) 'ENAME) (= (type app) 'STR))
(progn
; Читаем список данных с расширенными данными приложения app
(setq le (entget ent (list "*")))
; Удаляем расширенные данные приложения app, заменяя их на частично пустой список
(setq le1 (subst (cons -3 (list (list app))) (assoc -3 le) le))
; Обновляем примитив
(entmod le1)
);progn
(princ "\nНеверен тип аргументов. ")
);if
(princ)
);clean_xdata