社区 › VB › CAD图形保存与关闭问题??

路边 发表于 2007-5-21 11:15:00

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

用2004打开一个*.dwg文件,怎样用VBA 保存成为有密码的dwg?
thisdraing.SaveAS "c:\a.dwg", "??参数怎么选??","密码"
用thisdraing.Close只能关闭当前窗口,不能关闭CAD,怎样用VBA关闭整个CAD呢??请高手指点!!

laoliu09 发表于 2007-5-21 14:31:00

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

路边 发表于 2007-5-21 15:51:00

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

laoliu09 发表于 2007-5-22 00:23:00

图形标准加密保存方式：（乐筑天下提供)
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

查看完整版本: CAD图形保存与关闭问题??