Mccad老师:请问如何用VBA实现保存CAD文件

WTYLMF

MCCAD老师：


                                                         请问如何用VBA实现保存CAD文件？（带密码）

mccad

这是帮助中的示例
Sub Example_Comment()
    ' This example attaches a digital signature and accompanying data to a file,
    ' and saves the file.

    Dim acad As New AcadApplication
    Dim sp As New AcadSecurityParams
    
    acad.Visible = True
    
    ' Attach a digital signature and timestamp it
    sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_SIGN_DATA _
    			+ AcadSecurityParamsType.ACADSECURITYPARAMS_ADD_TIMESTAMP
    
    ' Certificate details follow
    sp.Subject = "Thawte Freemail Member"
    sp.Issuer = "Personal Freemail RSA 2000.8.30"
    sp.SerialNumber = "073848"
    sp.Comment = "This is now signed"
    sp.TimeServer = "NIST(time.nist.gov)"
    
    acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp
End Sub

WTYLMF

谢谢您！

nyl311

mccad老师 能帮我个忙吗？我的qq是25774308 MSN是nyl311@hotmail.com 我的毕业设计是用vb写程序实现带传动的计算机辅助设计，我写进死胡同出不来了。。帮帮我好不