函数 xdrx_polyline_isselfIntersect （多段线自交判断）介绍

Lispboy

1. (defun c:tt ()
   
2.   (if (and (setq
   
3.              e (car
   
4.                  (xdrx_entsel "\n拾取多段线<退出>" '((0 . "LWPOLYLINE")))
   
5.                )
   
6.            )
   
7.            (setq ins (xdrx_polyline_isselfintersect e 1))
   
8.       )
   
9.     (progn
   
10.       (mapcar '(lambda (x)
    
11.                  (xdrx_grdraw  2 0 x 3 3)
    
12.                )
    
13.               ins
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt ()<br />   (if (and (setq<br />              e (car<br />                  (xdrx_entsel "\n拾取多段线<退出>" '((0 . "LWPOLYLINE")))<br />                )<br />            )<br />            (setq ins (xdrx_polyline_isselfintersect e 1))<br />       )<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (xdrx_grdraw  2 0 x 3 3)<br />                )<br />               ins<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xdrx_polyline_isselfintersect

用法：(xdrx_polyline_isselfintersect ent mode)
参数：ent ---- 多段线实体名
          mode-- 0 （返回自交点数量）
                        1 （返回自交点坐标表）
                        2 （返回自交点参数表）

交点坐标表长度 = 参数0返回值
交点参数表 = 交点数量x2 (一个交点对于两个参数，这两个参数对应一个点）


命令: (xdrx_polyline_isselfintersect e 0)
3

命令: (xdrx_polyline_isselfintersect e 1)
((18714.0 2192.83 0.0) (19711.6 2125.27 0.0) (18772.0 1908.43 0.0))

命令: (xdrx_polyline_isselfintersect e 2)
(1.17218 3.62837 1.81808 5.18041 3.48957 6.13156)

jxwfz19740724

嗯，看看再说。

ShaoRui

嗯，看看再说。