「Tin:isrebuildpossible」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (tin:isrebuildpossible ''tinEname'') ; 機能 : TinSurface エンティティ tinEname (ename または vla-object) の再構築が実際に可能かどうかを返す。 ; 引数 :* tinEname : 問い合わせる TinSurface エンティティの ename または vla-object。 ; 戻り値 : 再構築可能なら T、それ以外は nil ; サンプル <pre class="brush: autolisp;"> (vl-load-tin) (setq tin (tin:createTin '(0 0 0)…」)
 
編集の要約なし
23行目: 23行目:
(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:rebuild tin T)
 
T
(if (tin:isrebuildpossible tin)
(tin:isrebuildpossible tin)
  (tin:rebuild tin T)
)
T
T
</pre>
</pre>

2024年5月21日 (火) 05:16時点における版

構文
(tin:isrebuildpossible tinEname)


機能
TinSurface エンティティ tinEname (ename または vla-object) の再構築が実際に可能かどうかを返す。


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


戻り値
再構築可能なら T、それ以外は 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) ))

(if (tin:isrebuildpossible tin)
  (tin:rebuild tin T)
)
T

関連事項