Неверно сформированный список на входе Автокад

;;---------------------=={ Object Lock }==--------------------;;
;;  Автоматическая блокировка объектов между сеансами AutoCAD ;;
;;------------------------------------------------------------;;
;;  Автор: Лисовский А.И. на основе кода Lee Mac             ;;
;;------------------------------------------------------------;;
 
(vl-load-com)
 
;; Глобальные переменные
(setq *ObjectLock:HandleList* nil
      *ObjectLock:EntityData* nil
      *ObjectLock:Initialized* nil)
 
;;------------------------------------------------------------;;
;;  Основные функции блокировки                               ;;
;;------------------------------------------------------------;;
 
(defun c:LockObjects (/ ss i h e count)
  (if (setq ss (ssget))
    (progn
      (setq count 0)
      (repeat (setq i (sslength ss))
        (setq e (ssname ss (setq i (1- i)))
        (setq h (cdr (assoc 5 (entget e))))
        (if (not (member h *ObjectLock:HandleList*))
          (progn
            (setq *ObjectLock:HandleList* (cons h *ObjectLock:HandleList*)
                  *ObjectLock:EntityData* (cons (entget e) *ObjectLock:EntityData*)
                  count (1+ count))
          )
        )
      )
      (ObjectLock:InitReactors)
      (princ (strcat "\nЗаблокировано объектов: " (itoa count) ". Всего заблокировано: " (itoa (length *ObjectLock:HandleList*))))
    )
  )
  (princ)
)
 
(defun c:UnLockObjects (/ ss i h e count)
  (if *ObjectLock:HandleList*
    (if (setq ss (ssget))
      (progn
        (setq count 0)
        (repeat (setq i (sslength ss))
          (setq e (ssname ss (setq i (1- i)))
                h (cdr (assoc 5 (entget e))))
          (if (member h *ObjectLock:HandleList*)
            (progn
              (setq *ObjectLock:HandleList* (vl-remove h *ObjectLock:HandleList*)
                    *ObjectLock:EntityData* (vl-remove (assoc h (mapcar 'cons *ObjectLock:HandleList* *ObjectLock:EntityData*)) *ObjectLock:EntityData*
                    count (1+ count))
            )
          )
        )
        (princ (strcat "\nРазблокировано объектов: " (itoa count) ". Осталось заблокировано: " (itoa (length *ObjectLock:HandleList*)))
        (if (null *ObjectLock:HandleList*)
          (ObjectLock:RemoveReactors)
        )
      )
    )
    (princ "\nНет заблокированных объектов.")
  )
  (princ)
)
 
(defun c:DisableLock ()
  (setq *ObjectLock:HandleList* nil
        *ObjectLock:EntityData* nil)
  (ObjectLock:RemoveReactors)
  (ObjectLock:RemoveDictionary)
  (princ "\nБлокировка полностью отключена.")
  (princ)
)
 
;;------------------------------------------------------------;;
;;  Внутренние функции                                        ;;
;;------------------------------------------------------------;;
 
(defun ObjectLock:InitReactors ()
  (if (not *ObjectLock:Initialized*)
    (progn
      ;; Реактор для отмены изменений
      (vlr-editor-reactor "ObjectLockEditor"
        '((:vlr-commandended . ObjectLock:Callback)
          (:vlr-lispended    . ObjectLock:Callback)))
      
      ;; Реактор для сохранения данных
      (vlr-dwg-reactor "ObjectLockDrawing"
        '((:vlr-beginsave   . ObjectLock:SaveData)
          (:vlr-dwgopened   . ObjectLock:RestoreData)))
      
      (setq *ObjectLock:Initialized* t)
    )
  )
)
 
(defun ObjectLock:RemoveReactors ()
  (mapcar 'vlr-remove
    (apply 'append
      (mapcar 'cdr
        (vlr-reactors))))
  (setq *ObjectLock:Initialized* nil)
)
 
(defun ObjectLock:Callback (reactor callback)
  (mapcar '(lambda (h) (if (entget (handent h)) (entdel (handent h))) *ObjectLock:HandleList*)
  (mapcar 'entmod *ObjectLock:EntityData*)
)
 
(defun ObjectLock:SaveData (reactor callback)
  (if *ObjectLock:HandleList*
    (progn
      (setq dict (ObjectLock:GetOrCreateDictionary))
      (setq xrec (ObjectLock:GetOrCreateXRecord dict "Handles"))
      
      (vla-setxrecorddata xrec
        (vlax-safearray-fill
          (vlax-make-safearray vlax-vbInteger '(0 . 0)) '(1))
        (vlax-safearray-fill
          (vlax-make-safearray vlax-vbVariant
            (cons 0 (1- (length *ObjectLock:HandleList*))))
          (mapcar 'vlax-make-variant *ObjectLock:HandleList*)))
    )
  )
)
 
(defun ObjectLock:RestoreData (reactor callback)
  (if (not *ObjectLock:Initialized*)
    (progn
      (setq dict (ObjectLock:GetDictionary))
      (if dict
        (progn
          (setq xrec (ObjectLock:GetXRecord dict "Handles"))
          (if xrec
            (progn
              (vla-getxrecorddata xrec 'type 'data)
              (setq *ObjectLock:HandleList*
                (vl-remove-if-not
                  '(lambda (h) (handent h))
                  (mapcar 'vlax-variant-value (vlax-safearray->list data))))
              (setq *ObjectLock:EntityData*
                (mapcar 'entget (mapcar 'handent *ObjectLock:HandleList*)))
              (ObjectLock:InitReactors)
              (princ "\nБлокировка объектов восстановлена.")
            )
          )
        )
      )
    )
  )
)
 
(defun ObjectLock:GetOrCreateDictionary ()
  (setq dicts (vla-get-dictionaries
                (vla-get-activedocument (vlax-get-acad-object))))
  (if (not (vl-catch-all-error-p
             (setq dict (vl-catch-all-apply
                          'vla-item (list dicts "ObjectLock")))))
    dict
    (vla-add dicts "ObjectLock")
  )
)
 
(defun ObjectLock:GetDictionary ()
  (if (not (vl-catch-all-error-p
             (vl-catch-all-apply
               'vla-item
               (list (vla-get-dictionaries
                      (vla-get-activedocument (vlax-get-acad-object)))
                     "ObjectLock"))))
    dict
  )
)
 
(defun ObjectLock:GetOrCreateXRecord (dict name)
  (if (not (vl-catch-all-error-p
             (setq xrec (vl-catch-all-apply
                          'vla-item (list dict name)))))
    xrec
    (vla-addxrecord dict name)
  )
)
 
(defun ObjectLock:GetXRecord (dict name)
  (if (not (vl-catch-all-error-p
             (vl-catch-all-apply
               'vla-item (list dict name))))
    xrec
  )
)
 
(defun ObjectLock:RemoveDictionary ()
  (setq dicts (vla-get-dictionaries
                (vla-get-activedocument (vlax-get-acad-object))))
  (if (not (vl-catch-all-error-p
             (setq dict (vl-catch-all-apply
                          'vla-item (list dicts "ObjectLock")))))
    (vla-delete dict)
  )
)
 
;;------------------------------------------------------------;;
;;  Автоматическая инициализация при загрузке                 ;;
;;------------------------------------------------------------;;
(defun ObjectLock:AutoLoad ()
  (if (not *ObjectLock:Initialized*)
    (ObjectLock:RestoreData nil nil)
  )
)
 
;; Установка реактора для автозагрузки
(if (not (vlr-added-p (car (vlr-reactors :vlr-dwg-reactor))))
  (vlr-dwg-reactor nil '((:vlr-dwgOpened . ObjectLock:AutoLoad)))
)
 
(princ "\nObject Lock загружен. Команды: LockObjects, UnLockObjects, DisableLock")
(princ)