(InterWith)判断两个图元是否有交点

;;说明:判断两个图元是否有交点
;;参数:ent1:图元1
;;参数:ent2:图元2
;;返回:有交点返回T，否则则返回nil
(defun InterWith(ent1 ent2)
    (>
        (vlax-safearray-get-u-bound
            (vlax-variant-value
                (vla-IntersectWith (vlax-ename->vla-object ent1) (vlax-ename->vla-object ent2) acExtendNone)
            )
            1
        )
        1
    )
)