求交点位置不对

飞雪神光

下图中有两根直线  用这段代码求得交点 位置竟然不对 请各位看看什么原因

1. ;; 选择两条直线并计算交点
   
2. (setq ent1 (car (entsel "\n选择第一条直线: ")))
   
3. (setq ent2 (car (entsel "\n选择第二条直线: ")))
   
4. (setq obj1 (vlax-ename->vla-object ent1))
   
5. (setq obj2 (vlax-ename->vla-object ent2))
   
6. ;; 计算交点
   
7. (setq intersectPoints (vlax-invoke obj1 'IntersectWith obj2 0))
   
8. (entmake (list '(0 . "CIRCLE")'(62 . 10)(cons 10 intersectPoints) (cons 40 0.1)))
   

;; 选择两条直线并计算交点<br /> (setq ent1 (car (entsel "\n选择第一条直线: ")))<br /> (setq ent2 (car (entsel "\n选择第二条直线: ")))<br /> (setq obj1 (vlax-ename->vla-object ent1))<br /> (setq obj2 (vlax-ename->vla-object ent2))<br /> ;; 计算交点<br /> (setq intersectPoints (vlax-invoke obj1 'IntersectWith obj2 0))<br /> (entmake (list '(0 . "CIRCLE")'(62 . 10)(cons 10 intersectPoints) (cons 40 0.1)))<br />

kozmosovia

坐标数据太大，小数点前面数字太多，后面的精度就要被吃掉了，因为预留的内存长度放不下，计算精度上也就呵呵了。

lxw320

用户坐标转一下世界坐标试试

飞雪神光

lxw320 发表于 2025-4-27 21:24
用户坐标转一下世界坐标试试

坐标系没有问题呢

寒潮大冬瓜

;飞雪神光于 10 分钟前 | 只看该作者 回帖奖励
;下图中有两根直线  用这段代码求得交点 位置竟然不对 请各位看看什么原因
;普通浏览复制代码
;; 选择两条直线并计算交点
……

      obj1
      'IntersectWith  ; 相交计算方法
      obj2
      0  ; *******************
……

你有种再说一遍

如果只是直线的话,用直线方程联立是能够破除大坐标问题的,
如果是样条的话,还是要改为这个算法+平移到原点

liuhe

平移到原点吧，再转换

xyp1964

可以需要优化完善IntersectWith函数

shujh1989

直线长度太短，两条直线分别向两边延长后，再画就是准确的。应该是2楼说的原因。

指尖

新手一枚，对于以上高深函数不太会用，，下面图片这个函数是否可行，

(inters pt1 pt2 pt3 pt4 [onseg])
所有的点都以当前 UCS 表示，如果提供的四个点都是三维点，inters 函数检查三维交点。只要所提供的点中有一个是二维点，inters 函数就将这两条线投影到当前构造平面上，仅检查二维交点。

参数

pt1

第一条直线的端点。

pt2

第一条直线的另一端点。

pt3

第二条直线的端点。

pt4

第二条直线的另一端点。