「Tinvs:getcomparisonsurface」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tinvs:getcomparisonsurface ''tinEname'' ) ; 機能 : TinVolumeSurfaceエンティティの参照された比較面を返す。 ; 引…」)
 
編集の要約なし
 
(同じ利用者による、間の1版が非表示)
15行目: 15行目:
; 戻り値
; 戻り値
: 比較面エンティティ ename 、または NIL
: 比較面エンティティ ename 、または NIL




27行目: 26行目:
(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) ))
(tinvs:getcomparisonsurface tin)
 
<Entity name: 492fb590>
; 適当にTinボリュームサーフェス作ってから
(Tinvs:getcomparisonsurface (entlast))
<Entity name: 30f75e10>
</pre>
</pre>


38行目: 39行目:


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

2023年2月13日 (月) 08:48時点における最新版

構文
(Tinvs:getcomparisonsurface tinEname )


機能
TinVolumeSurfaceエンティティの参照された比較面を返す。


引数
  • tinEname : 最初の TinSurface エンティティの ename または VLAオブジェクト。


戻り値
比較面エンティティ ename 、または 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ボリュームサーフェス作ってから
(Tinvs:getcomparisonsurface (entlast))
<Entity name: 30f75e10>

関連事項