[LISP函数]：这样求两个任意四边形的相交点表是不是太繁琐了？

litss

两个任意四边形（点表），求它们的相交域（返回点表）。象我这么求是不是太繁琐了？而且如果两个四边形相交不完全，甚至于只有一条边重叠，这个方法就不灵了：（。不知道有没有更简单的办法实现？
[php]
(defun nformat (i n)
    (cond
      ((< i 0)
        (setq i (+ i n))
      );#1
      ((>= i n)
        (setq i (- i n))
      );#2
    );cond
    i
  )

(defun intersect (plst1 plst2 / i n pti pti-1 pint plst ptn ptn-1)
    (setq plst '())
    (if (inters
          (nth 0 plst1)
          (nth 2 plst1)
          (nth 0 plst2)
          (nth 2 plst2)
        )
      (progn
        (setq n (length plst1))

        (while (> (setq n (1- n))
                  -1
               )
          (setq ptn (nth n plst1)
                ptn-1 (nth (nformat (1- n) 4) plst1)
          );setq
          (setq i (length plst2))
          (while (> (setq i (1- i))
                    -1
                 )
            (setq pti (nth i plst2)
                  pti-1 (nth (nformat (1- i) 4) plst2)
            );setq
            (if (setq pint (inters
                             ptn
                             ptn-1
                             pti
                             pti-1
                           )
                )
              (setq plst (cons pint plst))
            );if
          );while
        );while
        (setq plst (list (nth 0 plst) (nth 1 plst) (nth 3 plst) (nth 2 plst)))
      );progn
      (alert "no intersect")
    );if
    plst
  )
[/php]

cy956

从region中找找

litss

region的方法要带太多的command，感觉不太好：（

舟自横

參考vlax-IntersectWith
RetVal = object.IntersectWith(IntersectObject, ExtendOption)

Object

All Drawing Objects (Except Pviewport and PolygonMesh)
The object or objects this method applies to.

IntersectObject

Object, input-only;
The object can be one of All Drawing Objects.


ExtendOption

AcExtendOption enum; input-only
This option specifies if one or the other, both, or none of the entities are to be extended in order to attempt an intersection.

acExtendNone
Does not extend either object.

acExtendThisEntity
Extends the base object.

acExtendOtherEntity
Extends the object passed as an argument.

acExtendBoth
Extends both objects.


RetVal

Variant (array of doubles)
The array of points where one object intersects another object in the drawing
可以求任意兩圖元之交點

雨箭风刀

还是用region求交