Civil:style-remove-labelstyle

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


機能
nameOrEname で指定された Civil Label Style オブジェクトを styleCategory カテゴリから削除する。


引数
  • nameOrEname: 削除したいラベルスタイルオブジェクト名の文字列または ename。
  • styleCategory: ECivil3dLabelStyleCategory の値の組み合わせ


戻り値
成功なら T、それ以外は nil

いずれの場合も、(civil:style-remove-labelstyle) を呼び出した後、nameOrEname で指定されたCivil Labelスタイルは、もはや図面に存在しない。


メモ


サンプル
(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")

(civil:style-remove-labelstyle "NewLabelStyle" bcCivilPointLabel)
T

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

(civil:style-remove-labelstyle "Default" bcCivilPointLabel)
T

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


関連事項