「Tinvs:isvolumesurface」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
50行目: 50行目:


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

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

構文
(tinvs:isvolumesurface tinEname)


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


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


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



サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tinvs:isvolumesurface tin)
nil ; 有効なTinVolumeSurface  ではないので nil が返る
(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) ))
(tinvs:isvolumesurface tin) 
nil ; 有効なTinVolumeSurface  ではないので nil が返る

(tinvs:createBySurfaceAndEntity  tin  bcTinVolumeToDepth  -5  (entlast)  0.2)
(tinvs:isvolumesurface tin) 
T ; 有効な TinVolumeSurface が作成されたので T が返る

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

関連事項