Vla-put-adcinsertunitsdefaultsource

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年11月4日 (水) 11:14時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-adcinsertunitsdefaultsource ''vla-object'' ''AcInsertUnits'' ) ; 機能 : DesignCenter 内の、挿入単位が割り当てられてい...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)))
)

関連事項