Autolisp技术问询：DraftSight中隐藏“以只读方式打开”对话框

方法1：通过DraftSight API控制打开行为 #

DraftSight的API（支持VBA、.NET等）提供了OpenOptions对象，其中的SuppressReadOnlyWarning属性可以直接抑制只读提示弹窗，避免中断批量处理脚本。

以VBA为例，实现无弹窗打开并处理文件：

Dim dsApp As DraftSight.Application
Dim dsDoc As DraftSight.Document
Dim openOpts As DraftSight.OpenOptions

' 连接到已运行的DraftSight实例，未运行则启动新实例
Set dsApp = GetObject(, "DraftSight.Application")
If dsApp Is Nothing Then Set dsApp = CreateObject("DraftSight.Application")
dsApp.Visible = True ' 可选，设置是否显示软件界面

Set openOpts = dsApp.CreateOpenOptions()
openOpts.SuppressReadOnlyWarning = True ' 关键：关闭只读提示弹窗

' 替换为你的图纸路径，批量处理时可结合循环遍历文件
Set dsDoc = dsApp.OpenDocument("C:\Path\To\Your\Drawing.dwg", openOpts)

If Not dsDoc Is Nothing Then
    ' 检查文件是否为只读，只读则跳过处理逻辑
    If Not dsDoc.IsReadOnly Then
        ' 在这里执行你的自定义处理代码
        Debug.Print "处理可编辑文件：" & dsDoc.Path
    End If
    ' 关闭文件，False表示不保存修改
    dsDoc.Close False
End If

说明：设置SuppressReadOnlyWarning = True后，打开写保护文件时会直接进入只读模式，不会弹出中断脚本的对话框。后续通过IsReadOnly属性判断是否需要执行核心处理逻辑。

方法2：使用命令行参数静默打开文件 #

如果是通过批处理或外部脚本批量启动DraftSight，可以用命令行参数强制只读打开并抑制弹窗：

• /readonly：强制以只读模式打开目标文件，无提示弹窗
• /silent：静默启动DraftSight，抑制启动和打开过程中的大部分弹窗

示例批处理命令：

@echo off
set "DRAFTSIGHT_PATH=C:\Program Files\DraftSight\DraftSight.exe"
set "DWG_FOLDER=C:\Your\Drawing\Directory\"

for %%f in ("%DWG_FOLDER%*.dwg") do (
    "%DRAFTSIGHT_PATH%" /readonly "%%f"
    ' 可添加等待处理完成的逻辑，例如调用内部脚本执行任务后关闭程序
    timeout /t 5 /nobreak >nul
    taskkill /im DraftSight.exe /f
)

这种方式适合不需要在同一个DraftSight实例中处理多个文件的场景，通过逐个启动、处理、关闭的方式完成批量操作。

注意事项 #

• 确认你的DraftSight版本支持上述API属性或命令行参数（2019及以后版本均支持）
• API方式中，建议添加错误捕获（如On Error Resume Next）处理文件损坏、路径无效等异常
• 命令行方式中，taskkill需谨慎使用，确保文件处理完成后再关闭进程

内容的提问来源于stack exchange，提问作者G Beck