Tinc:setwallside

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(tinc:setwallside ename constraint side)


機能
TinSurfaceエンティティの制約の壁の側面を設定する。


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


戻り値
成功したら 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) ))

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

(tinc:setwallside  tin (entlast) bcTinWallRight)
T

関連事項