使用 VBA 以外的其它编程语言

Sub Example_Algorithm()
	' 该示例加密并保存文件。
	
	Dim acad As New AcadApplication
	Dim sp As New AcadSecurityParams

	acad.Visible = True
	sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA 
	sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
	sp.KeyLength = 40
	sp.Password = UCase("mypassword") 'AutoCAD 在使用该密码时将所有的密码转换为大写
	sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
	sp.ProviderType = 1

	acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp
    
End Sub