Vla-put-adcinsertunitsdefaulttarget

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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)))
)


関連事項