Vla-put-alignmentpointacquisition

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月19日 (火) 08:28時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-alignmentpointacquisition ''vla-object'' ''Acquisition'') ; 機能 : 自動位置合わせ点の取得方法を指定する。 ; 引...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)))
)

関連事項