Vla-put-scmtimevalue

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-scmtimevalue vla-object sec)

機能: ショートカットメニューを表示する長押しの有効時間を設定して、操作時間に制限のある右クリックを設定する。

引数

vla-object … PreferencesUser の VLAオブジェクト
sec … 100 から 10,000 までのミリ秒数。初期値は 250。

戻り値: nil

このプロパティは、SCMTimeMode プロパティが True に設定されていると、右クリックの動作に影響する。

サンプル

(vl-load-com)
(defun c:Example_SCMTimeValue()
    ;; ショートカットメニューを表示する長押し時間を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; ショートカットメニューを表示する長押しの有効時間を取得
    (vla-put-SCMTimeMode (vla-get-User preferences) :vlax-true)

    (setq originalValue (vla-get-SCMTimeValue (vla-get-User preferences)))
    (alert (strcat "現在の長押し時間 : " (itoa originalValue)))
    
    (setq newValue 1000)
    (vla-put-SCMTimeValue (vla-get-User preferences) newValue)
    
    (alert (strcat "新しい長押し時間: " (itoa (vla-get-SCMTimeValue (vla-get-User preferences)))))

    ;; 戻す
    (vla-put-SCMTimeValue (vla-get-User preferences) originalValue)
    (alert (strcat "ショートカットメニューを表示する長押し時間を次に戻しました : " (itoa originalValue)))
)