CAD图形保存与关闭问题??

路边

用2004打开一个*.dwg文件,怎样用VBA 保存成为有密码的dwg?

thisdraing.SaveAS "c:\a.dwg", "??参数怎么选??","密码"

用thisdraing.Close只能关闭当前窗口,不能关闭CAD,怎样用VBA关闭整个CAD呢??请高手指点!!

laoliu09

ThisDrawing.Application.Quit关闭应用程序，至于第一个问题，自己查一下参数吧！应该是最后一个参数设置的！

路边

用thisdraing.SaveAS "c:\a.dwg", "","123"   运行后总是致命错误!!请高手指点!!我怎样把a.dwg的密码设成123!!!

laoliu09

图形标准加密保存方式：（明经通道提供)

SecurityParams 对象领教储存用于图形安全的设置。可使用 SecurityParams 对象对图形文件进行加密和数字签名。

Sub test()
    Dim sp As New AcadSecurityParams
    sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA
    sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
    sp.KeyLength = 40
    sp.Password = "123"
    sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
    sp.ProviderType = 1
    ThisDrawing.SaveAs "c:\a.dwg", , sp
End Sub