「Tin:setstyle」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tin:setstyle ''tinEname'' ''style'') ; 機能 : この関数は、tinEname TinSurfaceエンティティの実際の可視化スタイ…」)
 
編集の要約なし
2行目: 2行目:


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




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




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


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


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




34行目: 27行目:
(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:setStyle tin (+ 4  8))
(tin:setsurfaceelevation tin -20.0) ; TinSurface のすべてのポイントをZ値-20.0に設定
(tin:getStyle tin)
T
12 ; bcTinStyleTriangles + bcTinStyleContours
</pre>
</pre>


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






[[Category:AutoLISP]]
[[Category:AutoLISP]]

2022年10月15日 (土) 04:32時点における版

構文
(Tin:setstyle tinEname elevation)


機能
この関数は、tinEname TinSurfaceエンティティののすべての定義点を elevation の Z 値に設定する。


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • elevation : 全体に対する固定の Z 高度値の実数。


戻り値
セットできたら T 出来なかったら nil


  • メモ :

tin ファーフェスをフラット化したいときにも使える。


サンプル
(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:setsurfaceelevation tin -20.0) ; TinSurface のすべてのポイントをZ値-20.0に設定
T

関連事項