Tingr:set-visualstyle

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年7月22日 (土) 09:05時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tingr:set-visualstyle ''grading'' ''style'' ) ; 機能 : TinGrading エンティティが使用する視覚スタイルを割り当てる。 ; 引数 :* grading : TinGrading のエンティティ名(ename または vla-object)。 :* style : 使用する視覚スタイルの整数 (bcTinGradingDrawNothing 0, bcTinGradingDrawSurface 1, bcTinGradingDrawRays 2, bcTinGradingDrawDaylight 4) ; 戻り値 : 設定成功なら T…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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



関連事項