社区 › VB › VBA只读打开绘图

mstg007 发表于 2014-4-29 13:21:52

VBA只读打开绘图

我如何修改下面的代码使文件总是以只读而不是写模式打开？我的文件是一个主模板，将不断更新。
Public Graphics As AcadApplication

Public Sub Loadtemplate(control As IRibbonControl)
   
    Dim strDrawing As String
    On Error Resume Next
    Set Graphics = GetObject(, "AutoCAD.Application")
    If Err.Description > vbNullString Then
      Err.Clear
      Set Graphics = CreateObject("AutoCAD.Application")
    End If
    strDrawing = "c:\temp\master.dwg"
    Graphics.Documents.Open (strDrawing)
   
    On Error GoTo 0
End Sub
感谢您的帮助！！！！
**** Hidden Message *****

ssaqibh 发表于 2014-4-30 01:01:41

试着
Graphics.Documents.Open strDrawing,真的

mstg007 发表于 2014-4-30 07:09:25

作品!谢谢你！

查看完整版本: VBA只读打开绘图