Specifies the security-related operations to be performed on a drawing.
Supported platforms: Windows only
Read-only: No
Type: Long; AcadSecurityParamsType enum
Specify one or more of the following constants for drawing encryption, drawing properties encryption, a digital signature, or a time stamp.
Each constant represents a security-related operation. When you use the Action property, at some point in the set of operations you must set the Action property to either the ACADSECURITYPARAMS_ENCRYPT_DATA constant, the ACADSECURITYPARAMS_SIGN_DATA constant, or to both.
To specify multiple security-related operations, add the constants representing the operations. For example, to sign a drawing and use a time stamp, specify the following:
ACADSECURITYPARAMS_SIGN_DATA + ACADSECURITYPARAMS_ADD_TIMESTAMP
VBA:
Sub Example_Action()
' This example encrypts and saves a file.
Dim sp As AcadSecurityParams
Set sp = GetInterfaceObject("AutoCAD.SecurityParams.20")
sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA
sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
sp.KeyLength = 40
sp.Password = UCase("mypassword") 'AutoCAD converts all passwords to uppercase before applying them
sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
sp.ProviderType = 1
ThisDrawing.SaveAs "C:\MyDrawing.dwg", , sp
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_Action()
;; This example encrypts and saves a drawing file.
(setq acadObj (vlax-get-acad-object))
(setq sp (vlax-create-object "AutoCAD.SecurityParams.20"))
(vla-put-Visible acadObj :vlax-true)
(vla-put-Action sp ACADSECURITYPARAMS_ENCRYPT_DATA)
(vla-put-Algorithm sp ACADSECURITYPARAMS_ALGID_RC4)
(vla-put-KeyLength sp 40)
(vla-put-Password sp (strcase "mypassword"))
(vla-put-ProviderName sp "Microsoft Base Cryptographic Provider v1.0")
(vla-put-ProviderType sp 1)
(setq doc (vla-get-ActiveDocument acadObj))
(vla-SaveAs doc "C:\\MyDrawing.dwg" acNative sp)
(vlax-release-object sp)
)