Tingr:set-visualstyle

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Tingr:set-visualstyle grading style )


機能
TinGrading エンティティが使用する視覚スタイルを割り当てる。


引数
  • grading : TinGrading のエンティティ名(ename または vla-object)。
  • style : 使用する視覚スタイルの整数 (bcTinGradingDrawNothing 0, bcTinGradingDrawSurface 1, bcTinGradingDrawRays 2, bcTinGradingDrawDaylight 4)


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


MEMO


サンプル
(vl-load-tin)
(setq gr (car (entsel)))
(tingr:get-visualstyle gr)
1
(tingr:set-visualstyle gr 4)
T
(tingr:get-visualstyle gr)
4

(tingr:set-visualstyle (car (entsel)) 0) ; グレーディングでない図形を選択した場合
nil



関連事項