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

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

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

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

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

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

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

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

<p>图形标准加密保存方式：（明经通道提供)</p><p>SecurityParams 对象领教储存用于图形安全的设置。可使用 SecurityParams 对象对图形文件进行加密和数字签名。</p><p>Sub test()<br/>&nbsp;&nbsp;&nbsp; Dim sp As New AcadSecurityParams<br/>&nbsp;&nbsp;&nbsp; sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA<br/>&nbsp;&nbsp;&nbsp; sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4<br/>&nbsp;&nbsp;&nbsp; sp.KeyLength = 40<br/>&nbsp;&nbsp;&nbsp; sp.Password = "123"<br/>&nbsp;&nbsp;&nbsp; sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"<br/>&nbsp;&nbsp;&nbsp; sp.ProviderType = 1<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SaveAs "c:\a.dwg", , sp<br/>End Sub</p>
页: [1]
查看完整版本: CAD图形保存与关闭问题??