BMP プレビュー イメージを図面とともに保存するかどうかを指定します。
サポートされているプラットフォーム: Windows のみ
読み込み専用: いいえ
タイプ: ブール型
このプロパティの初期値は True です。
VBA:
Sub Example_SavePreviewThumbnail() ' This example returns the current setting of ' SavePreviewThumbnail. It then changes the value, and finally ' it resets the value back to the original setting. Dim preferences As AcadPreferences Dim currSavePreviewThumbnail As Boolean Set preferences = ThisDrawing.Application.preferences ' Retrieve the current SavePreviewThumbnail value currSavePreviewThumbnail = preferences.OpenSave.SavePreviewThumbnail MsgBox "The current value for SavePreviewThumbnail is " & preferences.OpenSave.SavePreviewThumbnail, vbInformation, "SavePreviewThumbnail Example" ' Change the value for SavePreviewThumbnail preferences.OpenSave.SavePreviewThumbnail = Not (currSavePreviewThumbnail) MsgBox "The new value for SavePreviewThumbnail is " & preferences.OpenSave.SavePreviewThumbnail, vbInformation, "SavePreviewThumbnail Example" ' Reset SavePreviewThumbnail to its original value preferences.OpenSave.SavePreviewThumbnail = currSavePreviewThumbnail MsgBox "The SavePreviewThumbnail value is reset to " & currSavePreviewThumbnail, vbInformation, "SavePreviewThumbnail Example" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_SavePreviewThumbnail() ;; This example returns the current setting of ;; SavePreviewThumbnail. It then changes the value, and finally ;; it resets the value back to the original setting. (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) ;; Retrieve the current SavePreviewThumbnail value (setq currSavePreviewThumbnail (vla-get-SavePreviewThumbnail (vla-get-OpenSave preferences))) (alert (strcat "The current value for SavePreviewThumbnail is " (if (= currSavePreviewThumbnail :vlax-true) "True" "False"))) ;; Change the value for SavePreviewThumbnail (vla-put-SavePreviewThumbnail (vla-get-OpenSave preferences) (if (= currSavePreviewThumbnail :vlax-true) :vlax-false :vlax-true)) (setq newValue (vla-get-SavePreviewThumbnail (vla-get-OpenSave preferences))) (alert (strcat "The new value for SavePreviewThumbnail is " (if (= newValue :vlax-true) "True" "False"))) ;; Reset SavePreviewThumbnail to its original value (vla-put-SavePreviewThumbnail (vla-get-OpenSave preferences) currSavePreviewThumbnail) (alert (strcat "The SavePreviewThumbnail value is reset to " (if (= currSavePreviewThumbnail :vlax-true) "True" "False"))) )