「Tinc:getconstraintid」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (tinc:getconstraintid ''ename'' ''constraint'' ) ; 機能 : TinSurfaceエンティティに対する制約のID値またはNILを返す…」)
 
編集の要約なし
28行目: 28行目:
(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) ))
(setq constraint (tinc:getAllConstraints tin))
nil


; 適当に制約作図してから
; 適当に制約作図してから
(tinc:getconstraintid tin constraint)
(tinc:getconstraintid tin (entlast))
1610385961629
130
</pre>
</pre>



2022年10月31日 (月) 07:00時点における版

構文
(tinc:getconstraintid ename constraint )


機能
TinSurfaceエンティティに対する制約のID値またはNILを返す。


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


戻り値
制約のID値、または NIL


  • メモ
    • 指定された制約がブレークラインタイプでない場合、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) ))

; 適当に制約作図してから
(tinc:getconstraintid tin (entlast))
130

関連事項