Acet-geom-self-intersect

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文

(acet-geom-self-intersect pointlist flag )

機能

pointlist で定義されたポリゴン点列の自己交差をチェックする。

引数

• pointlist… ポリゴン点列のリスト
• flag … フラグ。（無視されるらしいののでnilで良い）

戻り値

最初に見つかった交点を返すか、ポリゴンが自己交差しない場合はNILを返す。

サンプル

(acet-geom-self-intersect '((0 0) (10 10) (10 0)) nil)
nil

(acet-geom-self-intersect '((0 0) (10 10) (10 0) (0 10)) nil)
(5.0 5.0)

(acet-geom-self-intersect '((0 0) (10 10) (10 0) (0 10) (5 0)) nil)
(5.0 5.0)

; こんな感じで、自己交差の有無を判定できる
(setq vtx (acet-pline-segment-list (entget (car (entsel)))))
(if (acet-geom-self-intersect (car vtx) nil))
  (princ "交差しとるで")
  (princ "交差しとらんで")
)

---

関連事項

• Expresstools関数
• acet-geom-intersectwith
• acet-geom-self-intersect