ドキュメントまたはプロパティが読み込み専用か、読み書き可能かを指定します。
サポートされているプラットフォーム: Windows のみ
読み込み専用: はい
タイプ: ブール型
追加の注意はありません。
VBA:
Sub Example_ReadOnly()
' This example shows if current drawing file is read only or not
If ThisDrawing.ReadOnly Then
MsgBox "The current drawing file is read only.", , "ReadOnly Example"
Else
MsgBox "The current drawing file is read-write.", , "ReadOnly Example"
End If
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_ReadOnly()
;; This example shows if current drawing file is read only or not
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(if (= (vla-get-ReadOnly doc) :vlax-true)
(alert "The current drawing file is read only.")
(alert "The current drawing file is read-write.")
)
)