判断同一条多段线是否有交叉点，并求出其坐标点

edata

logoin 发表于 2014-6-23 22:55
这个要写出来容易，要高效率就难了，楼主CAD是什么版本，有空给你写一个基于计算几何算法的.net程序，在上万 ...

也想学习学习，上次找到个用来判断三点顺逆时针的算法就是C语言之类的，具体是那种也我也分不清。改成LISP也成功的。

wzg356

1，取出多线段坐标
2、按多线段坐标顺序画直线line,并保存直线清单（每段直线一个名字）
3、逐条判断直线是否与其它直线相交，相交就取出交点。
4、删除直线

荒野孤行

wzg356 发表于 2014-6-24 19:48
1，取出多线段坐标
2、按多线段坐标顺序画直线line,并保存直线清单（每段直线一个名字）
3、逐条判断直线 ...

如果多段线中有圆弧，那怎么判断自交点？如图：

荒野孤行

Gu_xl 发表于 2014-6-23 13:01
如果偏移后个数为1，再进一步判断！再将偏移后的对象偏移回去，计算偏移回去的对象长度是否和源多段线长度 ...

按照这种思路写的，但是有问题，盼解决，以下是源码：

;;;******查找自相交对象 程序开始*****
(defun c:t1 (/ entnam)
  (setvar "blipmode" 0)
  (setvar "pickfirst" 1)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (princ "\n★功能：判断多段线是否自交.\n")
  (princ
    "\n提示：如果所选对象中包含零长度的线段，则会出现错误。\n"
  )
  (command "undo" "be")
  (princ "\n选择对象：\n")
  (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE"))))
  (if (not ss)
    (exit)
  )
  (setq num (sslength ss))
  (setvar "osmode" 0)
  (setq        i 0
        j 0
  )
  (command "LAYER" "M" "自相交层" "C" "1" "自相交层" "")
  (vl-load-com)
  (repeat num
    (setq entnam (ssname ss i))
    (setq obj (vlax-ename->vla-object entnam))
    (setq len (vlax-curve-getdistatparam
                obj
                (vlax-curve-getendparam obj)
              )
    )
    (vla-offset obj 1e-5)
    (setq obj1 (entlast))
    (vla-offset obj1 -1e-5) ;执行到这里出现问题，应该是偏移后出现的对象不止一个，所以无法判断而导致的
    (setq obj2 (entlast))
    (setq lenlast (vlax-curve-getdistatparam
                    obj2
                    (vlax-curve-getendparam obj2)
                  )
    )
    (entdel obj1)
    (entdel obj2)
    (if        (/= len lenlast)
      (progn
        (vla-put-Layer obj "自相交层")
        (setq j (1+ j))
      )
    )
    (setq i (1+ i))
  )
  (command "undo" "e")
  (if (> j 0)
    (alert
      (strcat
        "★提示：\n有"
        (itoa j)
        "个对象自相交，已将其置于“自相交层”\n"
      )
    )
    (alert "选取的多段线中无自相交对象！")
  )
  (setvar "osmode" 15359)
  (princ "\n")
)
;;;******找自相交对象 程序结束******

xyp1964

思路：复制→打散→选择集ss→逐个求交点加入Ptn→删除ss→返回Ptn

llsheng_73

logoin 发表于 2014-6-23 22:55
这个要写出来容易，要高效率就难了，楼主CAD是什么版本，有空给你写一个基于计算几何算法的.net程序，在上万 ...

我也想学这个的几何算法,个人认为虽然可以借助Cad命令或者vla方法简单的解决一些问题，但很多时候就是这样，简单不一定高效

荒野孤行

edata 发表于 2014-6-21 12:13
9楼说得极是。。。。

像这种自交线，偏移后出来几条线，而不自交的线，偏移后只出来一条，如果要一下删除偏移后的一条或多条，用lisp怎么处理呢？

ltrliu

新人学习中