Подскажите как создать атрибут объекта.

[Sergey_]

Подскажите как указать уникальный номер типа атрибута, из-за длины уникального номера он не соответсвует типу, после него появляется знак решетка"212590092585#":
BBB = ksAtribut.ksCreateAttr(LLL, ksAttrP, 212590092585#, "C:\Program Files\ASCON\KOMPAS-3D V8\Sys\KObject.lat")
 
Вот вся программа,что неправильно:

Dim Kompas As Kompas6API5.Application
Dim ksDocument As Kompas6API5.Document2D
Dim ksAtribut As Kompas6API5.AttributeObject
Dim ksAttrP As Kompas6API5.AttributeParam
Dim LLL As Long
Dim BBB As Long

’Запуск Компас, документа, создание линии
Private Sub Command1_Click()
    Set Kompas = CreateObject("KOMPAS.Application.5")
    Kompas.Visible = True
   
    Set ksDocument = Kompas.Document2D
    ksDocument.ksOpenDocument "C:\123.cdw", False
    LLL = ksDocument.ksLineSeg(10, 10, 100, 100, 1)
End Sub

’Попытка создание атрибута для линии
Private Sub Command2_Click()
    Set ksAtribut = Kompas.GetAttributeObject()
    Set ksAttrP = Kompas.GetParamStruct(38)
    ksAttrP.key1 = 1
    ksAttrP.key2 = 2
    ksAttrP.key3 = 3
    ksAttrP.key4 = 4
    BBB = ksAtribut.ksCreateAttr(LLL, ksAttrP,212590092585#, "C:\Program Files\ASCON\KOMPAS-3D V8\Sys\KObject.lat")
End Sub

[333]

Уникальный номер атрибута Double
и после точки у него нули