I've tried to find in GG many times, but i can't find any document about set a drawing password
(which manual is go to Option -> Open and Save -> Sercurity...)
So i wonder can we do it automatically ? (With Lisp and all other langguage )
P/S : A friend has just given me a VBA code :
Public Sub SaveWithEncryption()
Dim oSecurity As New AcadSecurityParams
With oSecurity
.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA
.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
.Comment = "Add comment to drawing"
.Issuer = "Your Company Name"
.KeyLength = 40
'AutoCAD converts all passwords to uppercase before applying them
.Password = UCase("br549")
.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
.ProviderType = 1
.SerialNumber = "BR549"
.Subject = "The Flying DeLorean"
.TimeServer = "NIST(time.nist.gov)"
End With
ThisDrawing.SaveAs "C:\MyDrawing.dwg", , oSecurity
End Sub
I haven't test (now is time to work with boss ^^)
I will try to convert it to Lisp and Net in free time
and..
Please test and try with me (if you interested ^^)
Thank all very much!
P/S 2 : srr all, i found some suggestions (not nothing that i've written before)..
Sorry ...