「Tin:setstyle」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
(同じ利用者による、間の1版が非表示)
2行目: 2行目:


; 構文
; 構文
: (Tin:setstyle ''tinEname'' ''elevation'')
: (Tin:setstyle ''tinEname'' ''style'')




; 機能
; 機能
: この関数は、tinEname TinSurfaceエンティティののすべての定義点を elevation の Z 値に設定する。
: この関数は、tinEname TinSurfaceエンティティの実際の可視化スタイル(三角形、輪郭線、境界線...など)を返す。




; 引数
; 引数
:* tinEname : TinSurface エンティティの ename または vla-object  
:* tinEname : TinSurface エンティティの ename または vla-object  
:* elevation : 全体に対する固定の Z 高度値の実数。
:* style : スタイルのビットフラグ整数。フラグの組み合わせ、"型定数" 参照
 


; 戻り値
; 戻り値
19行目: 18行目:


* メモ :   
* メモ :   
tin ファーフェスをフラット化したいときにも使える。
すべてのスタイルフラグに対応するシンボル定数がある。
** bcTinStyleNone  0
** bcTinStyleBoundary  1
** bcTinStylePoints  2
** bcTinStyleTriangles  4
** bcTinStyleContours  8
** bcTinStyleElevationTooltip  16
 
[[tin:getstyle]] 関数も参照。




27行目: 34行目:
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoints tin '((10 80 5) (50 50 10) (10 10 2) (80 20 7) (70 60 3) (40 70 10) (25 25 6) (55 55 2) (75 45 5) ))
(tin:addpoints tin '((10 80 5) (50 50 10) (10 10 2) (80 20 7) (70 60 3) (40 70 10) (25 25 6) (55 55 2) (75 45 5) ))
(tin:setsurfaceelevation tin -20.0) ; TinSurface のすべてのポイントをZ値-20.0に設定
(tin:setStyle tin (+ 4  8))
T
(tin:getStyle tin)
12 ; bcTinStyleTriangles + bcTinStyleContours
</pre>
</pre>


36行目: 44行目:
* [[tin:addpoint]]
* [[tin:addpoint]]
* [[tin:addpoints]]
* [[tin:addpoints]]
 
* [[tin:getstyle]]
* [[tin:setstyle]]






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

2023年1月28日 (土) 08:42時点における最新版

構文
(Tin:setstyle tinEname style)


機能
この関数は、tinEname TinSurfaceエンティティの実際の可視化スタイル(三角形、輪郭線、境界線...など)を返す。


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • style : スタイルのビットフラグ整数。フラグの組み合わせ、"型定数" 参照
戻り値
セットできたら T 出来なかったら nil


  • メモ :

すべてのスタイルフラグに対応するシンボル定数がある。

    • bcTinStyleNone 0
    • bcTinStyleBoundary 1
    • bcTinStylePoints 2
    • bcTinStyleTriangles 4
    • bcTinStyleContours 8
    • bcTinStyleElevationTooltip 16

tin:getstyle 関数も参照。


サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoints tin '((10 80 5) (50 50 10) (10 10 2) (80 20 7) (70 60 3) (40 70 10) (25 25 6) (55 55 2) (75 45 5) ))
(tin:setStyle tin (+ 4  8))
(tin:getStyle tin)
12 ; bcTinStyleTriangles + bcTinStyleContours

関連事項