Tin:getmesh

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Tin:getmesh tinEname [ visibleOnly ])


機能
tinEname TinSurface エンティティから SubDMesh エンティティを作成して返す。


引数
  • tinEname : (ename または vla-object) 問い合わせる TinSurface エンティティ


戻り値
SubDMesh エンティティ、または nil



サンプル
(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:getTriangles tin T)
(
  (
    (10.0 10.0 2.0) (25.0 25.0 6.0) (10.0 80.0 5.0) (80.0 20.0 7.0) (50.0 50.0 10.0) (75.0 45.0 5.0) (55.0 55.0 2.0) (40.0 70.0 10.0) (70.0 60.0 3.0)
  ) 
  (5 8 6) (6 8 7) (6 7 4) (1 2 0) (1 0 3) (1 4 7) (5 6 4) (4 3 5) (7 2 1) (1 3 4)
)

関連事項