Vla-put-alignmentpointacquisition

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

構文: (vla-put-alignmentpointacquisition vla-object Acquisition)

機能: 自動位置合わせ点の取得方法を指定する。

引数

vla-object … PreferencesDrafting の VLAオブジェクト
Acquisition … acAlignmentPointAcquisition 列挙型

acAlignPntAcquisitionAutomatic: 自動位置合わせの点は自動的に獲得される。
acAlignPntAcquisitionShiftToAcquire: 自動位置合わせの点はユーザが[Shift]キーを使用して取得しなければならない。

戻り値: nil

＊ MEMO : このプロパティの初期値は acAlignPntAcquisitionAutomatic 。

サンプル

(vl-load-com)
(defun c:Example_AlignmentPointAcquisition()
    ;; 自動位置合わせ点の取得方法を変更するサンプル。
    (setq acadObj (vlax-get-acad-object))

    ;; drafting preferences オブジェクトを取得
    (setq ACADPref (vla-get-Drafting (vla-get-Preferences acadObj)))
  
    ;; 既定値を取得
    (setq originalValue (vla-get-AlignmentPointAcquisition ACADPref))
    (alert (strcat "現在の自動位置合わせ点取得方法は: " (itoa originalValue)))

    ;; トグルで変更
    (if (= (vla-get-AlignmentPointAcquisition ACADPref) acAlignPntAcquisitionAutomatic)
        (vla-put-AlignmentPointAcquisition ACADPref acAlignPntAcquisitionShiftToAcquire)
        (vla-put-AlignmentPointAcquisition ACADPref acAlignPntAcquisitionAutomatic)
    )
    
    (setq newValue (vla-get-AlignmentPointAcquisition ACADPref))
    (alert (strcat "新しい自動位置合わせ点取得方法は: " (itoa newValue)))

    ;; 戻す
    ;; * Note: 戻したくなくば、コメントアウトするがよい
    (vla-put-AlignmentPointAcquisition ACADPref originalValue)
    (alert (strcat "自動位置合わせ点取得方法を次に戻しました: " (itoa originalValue)))
)