怎样将以下代码转入VB中要做怎样修改
<P> 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</P><P>请大侠指点迷津</P> <DIV> 把第二句改成这样: </DIV>
<DIV> Dim sp As AcadSecurityParams<BR> Set sp = GetInterfaceObject("AutoCAD.SecurityParams.16")</DIV>
页:
[1]