「Tinc:setwallheight」の版間の差分
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (tinc:setwallheight ''ename'' ''constraint'' ''height'') ; 機能 : TinSurfaceエンティティに制約のための壁の高さを割…」) |
編集の要約なし |
||
| 30行目: | 30行目: | ||
(tinc:setwallheight tin (car constraint) 1800) | (tinc:setwallheight tin (car constraint) 1800) | ||
T | T | ||
(tinc:setwallheight tin (car constraint) | (tinc:setwallheight tin (car constraint) 3900) | ||
T | |||
</pre> | </pre> | ||
2022年11月11日 (金) 07:27時点における版
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) 3900) T
関連事項