「Civil:style-set-createdby」の版間の差分

2025年4月20日 (日) 11:37時点における最新版

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

構文: (Civil:style-set-createdby styleId )

機能: Civil スタイルオブジェクト styleId のスタイルの"作者の名前"を設定する。

引数

styleId : 問い合わせる(ラベルまたはシンボル)の ename。
name ：指定されたスタイルオブジェクトの新しい作者名の文字列

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

メモ

サポートされているスタイルオブジェクト： Civil3D Point "のラベルスタイル+シンボルスタイル。

サンプル

(vl-load-civil)
T

(setq points (civil:pgroup-get-allpoints "_All points"))
(<Entity name: 6c1e30c0> <Entity name: 6c1e2940> <Entity name: 6c1e2980> <Entity name: 6c1e2ac0> <Entity name: 6c1e2a00> <Entity name: 6c1e2b00> <Entity name: 6c1e2700> <Entity name: 6c1e2b40> <Entity name: 6c1e2b80> <Entity name: 6c1e2c40>)

(setq pointename (nth 2 points))
<Entity name: 6c1e2980>

(setq styleId (civil:point-get-symbolid pointename))
<Entity name: 6c1e2a80>

(civil:style-get-createdby styleId)
"andrejm"

(civil:style-set-createdby styleId "海野")
T

(civil:style-get-createdby styleId)
"海野"

@@ 26行目: / 26行目: @@
 (vl-load-civil)
 T
-(setq c3obj (car entsel))
-<Entity name: 70180060>
-(Civil:style-get-description c3obj)
-"Default Label style"
-(Civil:style-set-description c3obj "標準ラベル")
-T
-(Civil:style-get-name c3obj)
-"標準ラベル"
 (setq points (civil:pgroup-get-allpoints "_All points"))