Bim:save-material

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年3月17日 (金) 08:14時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_BIM}} ; 構文 : (Bim:save-material ''name'' ''data'' [ ''global'' ] ) ; 機能 : name のBIM材料を定義データ data で保存する。 ; 引数 :…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(Bim:save-material name data [ global ] )


機能
name のBIM材料を定義データ data で保存する。


引数
  • name : 定義データを保存する材料の名称。(大文字・小文字を区別する)
  • data : (bim:get-material) 関数が返す形式の材料パラメータリスト。
  • global : 'global'が 省略されず、NILでない場合、資料はグローバルデータベースから検索され、そうでない場合はドキュメントライブラリから検索される。


戻り値
マテリアルが保存されれば T、そうでない場合は nil


メモ

  • データリストの構造は、(bim:get-material)関数で取得したものと同一でなければならない。
  • 指定された名前は、("名前" . name)で指定された名前よりも優先される。
  • 材料名とすべてのパラメータ値は大文字と小文字を区別する!


サンプル
; ガラスから派生させて ガラス_2 のマテリアルを保存する例
(vl-load-bim)
(setq data (bim:get-material "ガラス"))
(("Name" . "ガラス") ("Desc" . "") ("Comment" . "") ("Appearance" . "透明ガラス") ("CH_Name" . "ANSI36") ("CH_Scale" . 1.0) ("CH_Angle" . 0.0) ("CH_Cross" . 0) ("CH_Anno" . 0) ("CH_Type" . -1) ("SH_Name" . "SOLID") ("SH_Scale" . 1.0) ("SH_Angle" . 0.0) ("SH_Cross" . 0) ("SH_Anno" . 0) ("SH_Type" . 1))

(setq data (subst (cons "CH_Scale" 24.5) (assoc "CH_Scale" data) data))
(("Name" . "Gold") ("Desc" . "") ("Comment" . "") ("Appearance" . "Gold") ("CH_Name" . "ANSI31") ("CH_Scale" . 24.5) ("CH_Angle" . 0.0) ("CH_Cross" . 0) ("CH_Anno" . 0) ("CH_Type" . 1) ("SH_Name" . "SOLID") ("SH_Scale" . 1.0) ("SH_Angle" . 0.0) ("SH_Cross" . 0) ("SH_Anno" . 0) ("SH_Type" . 1))

(bim:save-material "ガラス_2" data)
T

(setq data (bim:get-material "ガラス_2"))
(("Name" . "ガラス_2") ("Desc" . "") ("Comment" . "") ("Appearance" . "透明ガラス") ("CH_Name" . "ANSI36") ("CH_Scale" . 24.5) ("CH_Angle" . 0.0) ("CH_Cross" . 0) ("CH_Anno" . 0) ("CH_Type" . -1) ("SH_Name" . "SOLID") ("SH_Scale" . 1.0) ("SH_Angle" . 0.0) ("SH_Cross" . 0) ("SH_Anno" . 0) ("SH_Type" . 1))

関連事項