Vla-put-adcinsertunitsdefaultsource

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

構文: (vla-put-adcinsertunitsdefaultsource vla-object AcInsertUnits )

機能: DesignCenter 内の、挿入単位が割り当てられていない挿入"元"図面のオブジェクトに対して、自動的に使用する単位を設定する。

引数

vla-object … preferencesuser の VLA オブジェクト
AcInsertUnits … 単位の値（AcInsertUnits 列挙型）

acInsertUnitsUnitless = 0
acInsertUnitsInches = 1
acInsertUnitsFeet = 2
acInsertUnitsMiles = 3
acInsertUnitsMillimeters = 4
acInsertUnitsCentimeters = 5
acInsertUnitsMeters = 6
acInsertUnitsKilometers = 7
acInsertUnitsMicroinches = 8
acInsertUnitsMils = 9
acInsertUnitsYards = 10
acInsertUnitsAngstroms = 11
acInsertUnitsNanometers = 12
acInsertUnitsMicrons = 13
acInsertUnitsDecimeters = 14
acInsertUnitsDecameters = 15
acInsertUnitsHectometers = 16
acInsertUnitsGigameters = 17
acInsertUnitsAstronomicalUnits = 18
acInsertUnitsLightYears = 19
acInsertUnitsParsecs = 20

戻り値: nil

初期値は acInsertUnitsUnitless。
システム変数 INSUNITSDEFSOURCE と同値。

サンプル


(vl-load-com)
(defun c:Example_ADCInsertUnitsDefaultSource()
    ;; ADCInsertUnitsDefaultSource の値を変更して元に戻すサンプル
    (setq acadObj (vlax-get-acad-object))

    ;; user preferences オブジェクトを取得
    (setq pref (vla-get-Preferences acadObj))
    (setq user (vla-get-User pref))
    
    ;; 値読込
    (setq originalValue (vla-get-ADCInsertUnitsDefaultSource user))
    (alert (strcat "ADCInsertUnitsDefaultSource preference の値は : " (itoa originalValue)))

    ;; ADCInsertUnitsDefaultSource preference の値をトグル変更
    (vla-put-ADCInsertUnitsDefaultSource user acInsertUnitsMillimeters)
    (alert (strcat "ADCInsertUnitsDefaultSource preference を次にセット : " (itoa (vla-get-ADCInsertUnitsDefaultSource user))))

    ;; 元に戻る
    (vla-put-ADCInsertUnitsDefaultSource user originalValue)
    (alert (strcat "The ADCInsertUnitsDefaultSource preference was restored back to: " (itoa originalValue)))
)