WTYLMF 发表于 2005-3-17 19:38:00

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

MCCAD老师：


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

mccad 发表于 2005-3-17 22:35:00

<PRE class=Code>这是帮助中的示例<BR>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</PRE>

WTYLMF 发表于 2005-3-18 09:21:00

谢谢您！

nyl311 发表于 2005-6-1 19:36:00

mccad老师               能帮我个忙吗？我的qq是25774308               MSN是<A href="mailto:nyl311@hotmail.com" target="_blank" >nyl311@hotmail.com</A>


我的毕业设计是用vb写程序实现带传动的计算机辅助设计，我写进死胡同出不来了。。帮帮我好不
页: [1]
查看完整版本: Mccad老师:请问如何用VBA实现保存CAD文件