Vla-put-adcinsertunitsdefaulttarget

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

構文: (vla-get-adcinsertunitsdefaulttarget 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。
システム変数 INSUNITSDEFTARGET と同値。

サンプル

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

    ;; user preferences オブジェクトを取得
    (setq pref (vla-get-Preferences acadObj))
    (setq user (vla-get-User pref))
    
    ;; 規定値を表示
    (setq originalValue (vla-get-ADCInsertUnitsDefaultTarget user))
    (alert (strcat "ADCInsertUnitsDefaultTarget の値は: " (itoa originalValue)))
  
    ;; Modify the ADCInsertUnitsDefaultTarget preference by toggling the value
    (vla-put-ADCInsertUnitsDefaultTarget user acInsertUnitsMillimeters)
    (alert (strcat "ADCInsertUnitsDefaultTarget を次に設定 : " (itoa (vla-get-ADCInsertUnitsDefaultTarget user))))

    ;; Restore the preference back to its original value
    (vla-put-ADCInsertUnitsDefaultTarget user originalValue)
    (alert (strcat "ADCInsertUnitsDefaultTarget の値を元に戻しました : " (itoa originalValue)))
)