ドキュメントまたはプロパティが読み込み専用か、読み書き可能かを指定します。
サポートされているプラットフォーム: 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.") ) )