Tinc:isvalidconstraint

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月28日 (土) 08:47時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(tinc:isvalidconstraint tinename constraint)


機能
constraint の id値またはename が、tinename の TinSurfaceに対して有効な制約であるかどうかを返す。
entは、TinSurfaceという名前に対して有効な制約です。


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


戻り値
有効なら 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) ))

(tinc:isValidConstraint tin 4787)
NIL

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

関連事項