[求助]为什么vla-IntersectWith得出的交点不在曲线上

elitefish · 发表于 2010-2-8 10:53:00

测试命令 Test
程序作用：求出曲线交点并求交点在直线上的位置
在AutoCAD2008中先选直线再选矩形 princ的第二个交点距离总是 nil 移动一下直线或矩形又可以得出正确结果
在AutoCAD2004中测试又可以正确运行
不知为何？
谁有比较好的求曲线交点到曲线起点距离的函数？

;取得两曲线交点
;op_Extend: 0 两个对象均不延伸; 1 延伸 ent1 ;2 延伸 ent2 ;3延伸 ent1 ent2
(defun EF:Curve-inters (ent1 ent2 op_Extend
/ obj1 obj2 i
pt ptlst lst_pt)
(setq obj1 (vlax-ename->vla-object ent1)
obj2 (vlax-ename->vla-object ent2)
)
(cond ((= op_Extend 0)
(setq ptlst (vla-IntersectWith obj1 obj2 acExtendNone))
)
((= op_Extend 1)
(setq ptlst (vla-IntersectWith obj1 obj2 acExtendThisEntity))
)
((= op_Extend 2)
(setq ptlst (vla-IntersectWith obj1 obj2 acExtendOtherEntity))
)
((= op_Extend 3)
(setq ptlst (vla-IntersectWith obj1 obj2 acExtendBoth))
)
(T
(prompt "error:ef-inters 参数3: op_Extend")
)
)
(setq ptlst (vlax-variant-value ptlst))
(if (> (vlax-safearray-get-u-bound ptlst 1) 0)
(setq ptlst (vlax-safearray->list ptlst))
(setq ptlst nil)
)
(setq i 0)
(foreach e ptlst
(if (< i 2)
(progn
(setq pt (cons e pt))
(setq i (1+ i))
)
(progn
(setq pt (reverse (cons e pt)))
(setq lst_pt (cons pt lst_pt))
(setq pt nil)
(setq i 0)
)
)
)
(reverse lst_pt)
)
(defun C:Test ( )
(princ "\n选择曲线")
(setq eTest (car (entsel)))
(setq objTest (vlax-ename->vla-object eTest))
(princ "\n选择相交曲线")
(if (setq ss (ssget))
(progn
(setq i -1)
(while (< (setq i (1+ i)) (sslength ss))
(setq ename (ssname ss i))
(setq ptList (EF:Curve-inters eTest ename 0))
(setq ptList (mapcar '(lambda (e)
(princ "\n交点:") (princ e)
(princ "距离:") (princ (vlax-curve-getDistAtPoint objTest e))
)
ptList
)
)
)
)
)
(princ)
)

;取得两曲线交点
;op_Extend: 0 两个对象均不延伸; 1 延伸 ent1 ;2 延伸 ent2 ;3延伸 ent1 ent2
(defun EF:Curve-inters (ent1 ent2 op_Extend
   / obj1 obj2 i
   pt ptlst lst_pt)
  (setq obj1 (vlax-ename->vla-object ent1)
 obj2 (vlax-ename->vla-object ent2)
 )
  (cond ((= op_Extend 0)
  (setq ptlst (vla-IntersectWith obj1 obj2 acExtendNone))
  )
 ((= op_Extend 1)
  (setq ptlst (vla-IntersectWith obj1 obj2 acExtendThisEntity))
  )
 ((= op_Extend 2)
  (setq ptlst (vla-IntersectWith obj1 obj2 acExtendOtherEntity))
  )
 ((= op_Extend 3)
  (setq ptlst (vla-IntersectWith obj1 obj2 acExtendBoth))
  )
 (T
  (prompt "error:ef-inters 参数3: op_Extend")
  )
 )
  (setq ptlst (vlax-variant-value ptlst))
  (if (> (vlax-safearray-get-u-bound ptlst 1) 0)
    (setq ptlst (vlax-safearray->list ptlst))
    (setq ptlst nil)
    )
  (setq i 0)
  (foreach e ptlst
    (if (< i 2)
      (progn
 (setq pt (cons e pt))
 (setq i (1+ i))
 )
      (progn
 (setq pt (reverse (cons e pt)))
 (setq lst_pt (cons pt lst_pt))
 (setq pt nil)
 (setq i 0)
 )
      )
    )
  (reverse lst_pt)
  )
(defun C:Test ( )
  (princ "\n选择曲线")
  (setq eTest (car (entsel)))
  (setq objTest (vlax-ename->vla-object eTest))
  (princ "\n选择相交曲线")
  (if (setq ss (ssget))
    (progn
      (setq i -1)
      (while (< (setq i (1+ i)) (sslength ss))
 (setq ename (ssname ss i))
 (setq ptList (EF:Curve-inters eTest ename 0))
 (setq ptList (mapcar '(lambda (e)
    (princ "\n交点:") (princ e)
    (princ "距离:") (princ (vlax-curve-getDistAtPoint objTest e))
    )
        ptList
        )
       )
 )
      )
    )
  (princ)
  )

elitefish · 发表于 2010-2-8 22:57:00

有人知道原因么？

carrot1983 · 发表于 2010-2-9 17:06:00

elitefish发表于2010-2-8 22:57:00有人知道原因么？

暂时没有测试出为什么。

我一直感觉到vlax-curve-函数有些精度上的BUG。。。

存在于不同的CAD版本。

至今未找到好的解决办法。

carrot1983 · 发表于 2010-2-9 17:11:00

在CAD2004下测试是OK的。。。就不多说了。

(defun C:Test ()
(princ "\n选择曲线")
(setq eTest (car (entsel)))
(setq objTest (vlax-ename->vla-object eTest))
(or eTest (alert "未选中eTest"))
(princ "\n选择相交曲线")
(if (setq ss (ssget))
    (progn
      (setq i -1)
      (while (< (setq i (1+ i)) (sslength ss))
(setq ename (ssname ss i))
(setq ptList (EF:Curve-inters eTest ename 0))
(setq ptList
        (mapcar '(lambda (e)
     (princ "\n交点: ")
     (princ e)
     (princ "\n最近点: ")
     (princ (vlax-curve-getClosestPointTo objTest e))
     (princ "距离(交点): ")
     (princ
       (vlax-curve-getDistAtPoint
         objTest
         e
       )
     )
     (princ "距离(最近点): ")
     (princ
       (vlax-curve-getDistAtPoint
         objTest
         (vlax-curve-getClosestPointTo objTest e)
       )
     )
   )
         ptList
        )
)
      )
    )
)
(princ)
)

测试CAD2008情况：

一、初始状态：

交点: (1.76562e+006 -1.36126e+006 0.0)
最近点: (1.76562e+006 -1.36126e+006 0.0)距离(交点): 312780.0距离(最近点): 312780.0
交点: (1.7519e+006 -1.34938e+006 0.0)
最近点: (1.7519e+006 -1.34938e+006 0.0)距离(交点): nil距离(最近点): nil

二、以矩形的左下角点为基点，将line和矩形移到0,0,0点：

交点: (13724.2 0.0 0.0)
最近点: (13724.2 0.0 0.0)距离(交点): 312780.0距离(最近点): 312780.0
交点: (0.0 11873.8 0.0)
最近点: (2.91038e-011 11873.8 0.0)距离(交点): 294632.0距离(最近点): nil

三、在初始图形状态下，移动LINE之后：

交点: (1.79347e+006 -1.36126e+006 0.0)
最近点: (1.79347e+006 -1.36126e+006 0.0)距离(交点): 326504.0距离(最近点): 326504.0
交点: (1.7519e+006 -1.32529e+006 0.0)
最近点: (1.7519e+006 -1.32529e+006 0.0)距离(交点): 271534.0距离(最近点): 271534.0

yuangw1234 · 发表于 2010-7-15 10:07:00

因为可能在延长线上，看你的模式设定为是都延长还是都不延长，因为有的可能不延长不相交

账号		自动登录	找回密码
密码			注册

[基础] [求助]为什么vla-IntersectWith得出的交点不在曲线上

本帖子中包含更多资源