「Tinc:getwalltype」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (tinc:getwalltype ''ename'' ''constraint'') ; 機能 : TinSurfaceエンティティの壁タイプの制約、またはNILを返す。…」)
 
編集の要約なし
31行目: 31行目:
; 適当に壁の制約作図してから
; 適当に壁の制約作図してから
(setq constraint (tinc:getAllConstraints tin))
(setq constraint (tinc:getAllConstraints tin))
(tinc:getwalltype tin 1610385961629)
(tinc:getwalltype tin (car constraint))
0
0
  </pre>
  </pre>

2022年11月11日 (金) 07:22時点における版

構文
(tinc:getwalltype ename constraint)


機能
TinSurfaceエンティティの壁タイプの制約、またはNILを返す。


引数
  • ename : TinSurface エンティティの ename または VLAオブジェクト。
  • constraint : 問い合わせる 制約オブジェクトの ID または ename


戻り値
壁制約のタイプの定数値。constraint が壁タイプでない場合は NIL。 0 = bcTinWallNomal, 1 = bcTinWallProjected


メモ

  • 壁タイプ制約でない場合、NILが返される。
  • EWallType壁タイプのシンボル名については、TinSurface型定数を参照。


サンプル
(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) ))

; 適当に壁の制約作図してから
(setq constraint (tinc:getAllConstraints tin))
(tinc:getwalltype tin (car constraint))
0
 

関連事項