Bim:save-material

BricsCAD LISP BIM関数 Home - BricsCAD LISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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))