[测试]：R16中ActiveX模型 What's New

efan2000

在AutoCAD R2004中，VBA新增了SecurityParams对象，使用这个对象可以对文件进行加密。

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_Action()
   
5.     ' This example encrypts and saves a file.
   
6. 
   
7.     Dim acad As New AcadApplication
   
8.     Dim sp As New AcadSecurityParams
   
9.    
   
10.     acad.Visible = True
    
11.     sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA
    
12.     sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
    
13.     sp.KeyLength = 40
    
14.     sp.Password = UCase("mypassword") 'AutoCAD converts all passwords to uppercase before applying them
    
15.     sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
    
16.     sp.ProviderType = 1
    
17.    
    
18.     acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp
    
19.    
    
20. End Sub
    
21. 
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_Action()<br />     ' This example encrypts and saves a file.<br /> <br />     Dim acad As New AcadApplication<br />     Dim sp As New AcadSecurityParams<br />     <br />     acad.Visible = True<br />     sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA<br />     sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4<br />     sp.KeyLength = 40<br />     sp.Password = UCase("mypassword") 'AutoCAD converts all passwords to uppercase before applying them<br />     sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"<br />     sp.ProviderType = 1<br />     <br />     acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp<br />     <br /> End Sub<br /> <br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_Password()
   
5.         ' This example opens a password-protected file, closes it, and then opens another
   
6.         ' password-protected file.
   
7. 
   
8.         ThisDrawing.Application.Documents.Open "C:\MyDrawing.dwg", , "MYPASSWORD"
   
9.         'AutoCAD converts all passwords to uppercase before applying them
   
10. 
    
11.         ThisDrawing.Close
    
12. 
    
13.         ThisDrawing.Application.Documents.Open "C:\MyDrawing2.dwg", , "MYSECONDPASSWORD"
    
14.        
    
15. End Sub
    
16. 
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_Password()<br />         ' This example opens a password-protected file, closes it, and then opens another<br />         ' password-protected file.<br /> <br />         ThisDrawing.Application.Documents.Open "C:\MyDrawing.dwg", , "MYPASSWORD"<br />         'AutoCAD converts all passwords to uppercase before applying them<br /> <br />         ThisDrawing.Close<br /> <br />         ThisDrawing.Application.Documents.Open "C:\MyDrawing2.dwg", , "MYSECONDPASSWORD"<br />         <br /> End Sub<br /> <br />   [/FONT]<br />

efan2000

AutoCAD R2004新增的对象。

efan2000

AutoCAD R2004中改变的方法和属性。

efan2000

AutoCAD R2004删除的对象和属性。

秋枫

改了下主题标题，efan2000勿见怪

efan2000

这个也不错，当初我只想讨论加密的问题，后来见R2004在VBA中的改进很少，就又把新增和变动部分上传了。

huxunhua

2222222222