Civil:style-create-labelstyle

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年4月21日 (月) 07:11時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (civil:style-create-labelstyle ''name'' ''styleCategory'' ) ; 機能 : そのようなスタイルがまだ存在しない場合、styleCategory カテゴリに name の名前で新しい Civil Label スタイル オブジェクトを作成する。 ; 引数 :* name: ラベルスタイルオブジェクト名の文字列。 :* styleCategory: ECivil3dLabelStyleCategory の値の組み合わせ ; 戻り値 : 成功なら 新…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(civil:style-create-labelstyle name styleCategory )


機能
そのようなスタイルがまだ存在しない場合、styleCategory カテゴリに name の名前で新しい Civil Label スタイル オブジェクトを作成する。


引数
  • name: ラベルスタイルオブジェクト名の文字列。
  • styleCategory: ECivil3dLabelStyleCategory の値の組み合わせ


戻り値
成功なら 新しい(または既存の)ラベルスタイルのENAME、それ以外は nil


メモ

  • name の Civil Label Style オブジェクトが既に存在する場合、既存スタイルの ENAME が返される。
  • styleCategoryは、Civil3d Type 定数 ECivil3dLabelStyleCategory のビット値を参照。


サンプル
(vl-load-civil)
T

(setq labelStyleNames (civil:style-get-labelstyles bcCivilPointLabel T))
("Default" "pointstyle1" "pointstyle2")

(setq labelStyleIds (civil:style-get-labelstyles bcCivilPointLabel NIL))
(<Entity name: 320044d0> <Entity name: 32004110> <Entity name: 32004b50>)

(setq labelId  (civil:style-create-labelstyle  "NewLabelStyle" bcCivilPointLabel))
<Entity name: 54d58f40>

(setq labelStyleNames (civil:style-get-labelstyles bcCivilPointLabel T))
("Default" "pointstyle1" "pointstyle2" "NewLabelStyle")

関連事項