要隐藏"以只读方式打开"对话框,可以使用以下Autolisp代码示例:
(defun c:openFileReadOnly ()
(setq file (getfiled "选择文件" "" "dwg" 1))
(if file
(progn
(setq acadDoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-open acadDoc file :vlax-true)
(vla-put-readonly acadDoc :vlax-true)
)
)
(princ)
)
上面的代码定义了一个名为openFileReadOnly
的命令函数。当运行该命令时,它将弹出一个文件选择对话框,允许用户选择一个dwg文件。然后,它使用AutoCAD ActiveX对象模型打开所选文件,并将文档设置为只读模式。
要使用上述代码,您可以将其复制到AutoCAD的LISP编辑器中,然后键入openFileReadOnly
并按Enter运行命令。