Tin:istinsurface

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月28日 (土) 08:43時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(tin:istinsurface tinEname)


機能
tinEname エンティティが有効な TinSurfaceエンティティであるかどうかを返す。


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


戻り値
有効な TinSurface エンティティなら T そうでなければ nil



サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:istinsurface tin)
T ; 点が割り当てられてないけどエンティティ目は有効なので T が返る
(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:istinsurface tin) ; Tが返る

; Tin サーフェスを削除してから
(tin:istinsurface tin) 
nil ; エンティティがなくなったので nil が返る

関連事項