Tinc:setwallheight

提供：GizmoLabs - だいたい CAD LISP なサイト
2022年11月11日 (金) 07:27時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (tinc:setwallheight ''ename'' ''constraint'' ''height'') ; 機能 : TinSurfaceエンティティに制約のための壁の高さを割…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
BricsCADのLISP - Tin+Civil関数 - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(tinc:setwallheight ename constraint height)


機能
TinSurfaceエンティティに制約のための壁の高さを割り当てる。


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


戻り値
成功なた 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:setwallheight tin (car constraint) 1800)
T 
(tinc:setwallheight tin (car constraint) 2800)

関連事項

「https://wiki.gz-labs.net/index.php?title=Tinc:setwallheight&oldid=9966」から取得