Sub Example_SerialNumber()
    'Этот пример прикрепляет цифровой синтаксис и сопроводительные данные к файлу и сохраняет файл.

    Dim acad As New AcadApplication
    Dim sp As New AcadSecurityParams
    
    acad.Visible = True
    
    'Прикрепите цифровой синтаксис и временную метку
    sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_SIGN_DATA _
    			+ AcadSecurityParamsType.ACADSECURITYPARAMS_ADD_TIMESTAMP
    
    'Детали свидетельства следуют
    sp.Subject = "Thawte Freemail Member"
    sp.Issuer = "Personal Freemail RSA 2000.8.30"
    sp.SerialNumber = "073848"
    sp.Comment = "This is now signed"
    sp.TimeServer = "NIST(time.nist.gov)"
    
    acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp
End Sub