Tingr:set-gradingentityのソースを表示

{{BCAD_LISP_CIVIL}}

; 構文
: (Tingr:set-gradingentity ''grading'' ''entity'' )


; 機能
: グレーディング TinGrading エンティティが使用するグレーディング輪郭エンティティを割り当てる。


; 引数
:* grading ：  TinGrading のエンティティ名（ename または vla-object）。
:* entity : 輪郭に割り当てるエンティティ名 ename


; 戻り値
: 設定成功なら T、そうでなければ nil



; サンプル
<pre class="brush: autolisp;">
(vl-load-tin)
(setq gr (car (entsel)))
(tingr:get-gradingentity gr)
<Entity name: 4b53e2f0>
(tingr:set-gradingentity gr (car (entsel))
T
(tingr:get-gradingentity gr)
<Entity name: 9dd9bad0>

(tingr:set-gradingentity (car (entsel)) T) ; グレーディングでない図形を選択した場合
nil
</pre>


-----

関連事項
* [[tin:createTin]]
* [[Tingr:istingrading]]
* [[tingr:get-gradingentity]]
* [[tingr:set-gradingentity]]


[[Category:AutoLISP]]
[[Category:BricsCADのLISP]]