Добавление ОБЪЕКТОВ в Х-записи словаря - кто делал ?

Sub AddObjectToXRecord()
Dim Dict As AcadDictionary
Dim xRec As AcadXRecord
Dim dType(0 To 0) As Integer
Dim dVal(0 To 0) As Variant
Dim selSet As AcadSelectionSet
Set selSet = ActiveDocument.ActiveSelectionSet
Set Dict = ActiveDocument.Dictionaries.Add("New_Dict")
Set xRec = Dict.AddXRecord("My_SelSet")
dType(0) = 0
dVal(0) = selSet.Name
xRec.SetXRecordData dType, dVal
End Sub

;;;****************************************************************************
;;;************** ФУНКЦИЯ ПОЛУЧЕНИЯ МЕТКИ ОБЪЕКТА КОЛЛЕКЦИИ *******************
;;;****************************************************************************
;;;                                                                           *
;;; Функция получает в качестве аргументов VLA-метку коллекции и название     *
;;; (или номер) элемента. Возвращает его VLA-метку или NIL в случае           *
;;; отсутствия.                                                               *
;;;                                                                           *
;;;****************************************************************************
(defun #xdm_Col_Item_Find (
         Collection   ; VLA- метка коллекции
         Item    ; название или номер элемента
         /
         result  ; возвращаемая метка элемента или NIL
         )
  (if
    (not
      (vl-catch-all-error-p  ; если нет ошибки
  (setq result
         (vl-catch-all-apply 'vla-item
     (list Collection Item))))) ; возвратить метку объекта
    result
    ); end if
  ); end of #xdm_Col_Item_Find
;;;..............................................................................
*************************************************************************
;;;******************* ФУНКЦИЯ ПОЛУЧЕНИЯ ДАННЫХ Х-ЗАПИСИ **********************
;;;****************************************************************************
;;;                                                                           *
;;; Функция получает в качестве аргументов имя словаря, название Х-Записи и   *
;;; возвращает список состоящий из списков типов и данных.                    *
;;;                                                                           *
;;;****************************************************************************
(defun #xdm_XRecord_Get_Data (
            dicName   ; имя словаря
            recName    ; имя Х-записи
             /
        dictCol    ; коллекция словарей
        curDict    ; текущий словарь
        curXRec    ; текущая Х-запись
              Types
              Data
              tList
              dList
              outList
            )
  (setq dictCol
   (vla-get-dictionaries
     (vla-get-activedocument
       (vlax-get-acad-object)))) ; получить коллекцию словарей
    (if
    (setq curDict(#xdm_Col_Item_Find dictCol dicName)) ; если найден нужный словарь
    (progn
      (if
  (setq curXRec(#xdm_Col_Item_Find curDict recName)) ; если найдена нужная Х-Запись
  (progn
    (vla-GetXRecordData curXRec 'Types 'Data) ; получить варианты типов и данных
    (setq Types(vlax-safearray->list Types) ; получить список типов
    Data (vlax-safearray->list Data) ; получить список данных
    dList(mapcar 'vlax-variant-value Data) ; получить список из вариантов данных
    outList(list Types dList) ; сформировать возвращаемый список
    ); end setq
    (vlax-release-object curXRec) ; удалить VLA-объект Х-Записи
    ); end progn
  ); end if
      (vlax-release-object curDict) ; удалить VLA-объект Словаря
      ); end progn
    ); end if
  (vlax-release-object dictCol) ; удалить VLA-объект коллекции словарей
  outList ; возвратить список из списка типов и данных
  ); end of #xdm_XRecord_Get_Data

0?9
 String (with the introduction of extended symbol names in AutoCAD 2000, the 255-character limit has been lifted. There is no explicit limit to the number of bytes per line, although most lines should fall within 2049 bytes)
10?39
 Double precision 3D point value
40?59
 Double-precision floating-point value
60?79
 16-bit integer value
90?99
 32-bit integer value
100
 String (255-character maximum; less for Unicode strings)
102
 String (255-character maximum; less for Unicode strings)
105
 String representing hexadecimal (hex) handle value
110?119
 Double precision floating-point value
120?129
 Double precision floating-point value
130?139
 Double precision floating-point value
140?149
 Double precision scalar floating-point value
170?179
 16-bit integer value
210?239
 Double-precision floating-point value
270?279
 16-bit integer value
280?289
 16-bit integer value
290?299
 Boolean flag value
300?309
 Arbitrary text string
310?319
 String representing hex value of binary chunk
320?329
 String representing hex handle value