atuolisp 两条空间错位的线或其他对象，计算点上的交点

Sring65

例如三维空间线不存在交点，但窗口能看到相交，计算线上的交点

Sring65

生成统一平面的计算交点，再返回到线上，但存在个bug，vlax-curve-getClosestPointTo 是垂直方向最近点，存在狠斜时坐标返回错位，使用vlax-curve-getClosestPointToProjection，部分情况下投影点也错了，还有其他方法吗

2. (defun getIntersectwith        (obj          cutobj   /            typ             cpobj
   
3.                          pte          pts           ptc            intPoints
   
4.                          entobj          entcpobj objlen   ptcls    FunMap
   
5.                          ptdt
   
6.                         )
   
7.   (defun FunMap        (x)
   
8.     (vlax-curve-getClosestPointTo
   
9.       obj
   
10.       (ZC_GETCLOSESTPOINTTO obj x)
    
11.       t
    
12.     )
    
13.   )
    
14.   (setq intPoints (vlax-invoke obj 'intersectwith cutobj acextendnone))
    
15.   ;;获取交点
    
16.   (if (or (not intPoints) (= (type intPoints) vlax-vbEmpty))
    
17.     (progn
    
18.       (setq cpobj (CopynewObj obj))
    
19.       (setq typ (vla-get-ObjectName obj))
    
20.       (cond
    
21.         ((MEMBER typ '("AcDbPolyline" "AcDb2dPolyline"))
    
22.          (VLA-PUT-ELEVATION cpobj 0)
    
23.         )
    
24.         ((= typ "AcDbLine")
    
25.          (set3dPtToZero cpobj "StartPoint")
    
26.          (set3dPtToZero cpobj "endPoint")
    
27.         )
    
28.         ((MEMBER typ '("AcDbArc" "AcadEllipse"))
    
29.          (set3dPtToZero cpobj "StartPoint")
    
30.          (set3dPtToZero cpobj "endPoint")
    
31.          (set3dPtToZero cpobj "Center")
    
32.         )
    
33.         ((= typ "AcDbCircle")
    
34.          (set3dPtToZero cpobj "Center")
    
35.         )
    
36.         ((MEMBER typ '("AcDb3dPolyline" "AcDbMLine"))
    
37.          (set3dPtstoZero cpobj "Coordinates")
    
38.         )
    
39.         ((= typ "AcDbSpline")
    
40.          (set3dPtstoZero cpobj "FitPoints")
    
41.         )
    
42.         ((MEMBER typ '("AcDbRay " "AcDbXline "))
    
43.          (set3dPtToZero cpobj "BasePoint")
    
44.          (set3dPtToZero cpobj "SecondPoint")
    
45.         )
    
46.       )
    
47.       (setq intPoints
    
48.              (vlax-invoke cpobj 'intersectwith cutobj acextendnone)
    
49.       )
    
50.       (if (setq intPoints (LST3D->PTLIST intPoints))
    
51.         (setq intPoints (mapcar 'FunMap intPoints))
    
52.       )
    
53.       (vla-delete cpobj)
    
54.       (vl-remove 'nil intPoints)
    
55.     )
    
56.     (LST3D->PTLIST intPoints)
    
57.   )
    
58. )

(defun getIntersectwith        (obj          cutobj   /            typ             cpobj<br />                          pte          pts           ptc            intPoints<br />                          entobj          entcpobj objlen   ptcls    FunMap<br />                          ptdt<br />                         )<br />   (defun FunMap        (x)<br />     (vlax-curve-getClosestPointTo<br />       obj<br />       (ZC_GETCLOSESTPOINTTO obj x)<br />       t<br />     )<br />   )<br />   (setq intPoints (vlax-invoke obj 'intersectwith cutobj acextendnone))<br />   ;;获取交点<br />   (if (or (not intPoints) (= (type intPoints) vlax-vbEmpty))<br />     (progn<br />       (setq cpobj (CopynewObj obj))<br />       (setq typ (vla-get-ObjectName obj))<br />       (cond<br />         ((MEMBER typ '("AcDbPolyline" "AcDb2dPolyline"))<br />          (VLA-PUT-ELEVATION cpobj 0)<br />         )<br />         ((= typ "AcDbLine")<br />          (set3dPtToZero cpobj "StartPoint")<br />          (set3dPtToZero cpobj "endPoint")<br />         )<br />         ((MEMBER typ '("AcDbArc" "AcadEllipse"))<br />          (set3dPtToZero cpobj "StartPoint")<br />          (set3dPtToZero cpobj "endPoint")<br />          (set3dPtToZero cpobj "Center")<br />         )<br />         ((= typ "AcDbCircle")<br />          (set3dPtToZero cpobj "Center")<br />         )<br />         ((MEMBER typ '("AcDb3dPolyline" "AcDbMLine"))<br />          (set3dPtstoZero cpobj "Coordinates")<br />         )<br />         ((= typ "AcDbSpline")<br />          (set3dPtstoZero cpobj "FitPoints")<br />         )<br />         ((MEMBER typ '("AcDbRay " "AcDbXline "))<br />          (set3dPtToZero cpobj "BasePoint")<br />          (set3dPtToZero cpobj "SecondPoint")<br />         )<br />       )<br />       (setq intPoints<br />              (vlax-invoke cpobj 'intersectwith cutobj acextendnone)<br />       )<br />       (if (setq intPoints (LST3D->PTLIST intPoints))<br />         (setq intPoints (mapcar 'FunMap intPoints))<br />       )<br />       (vla-delete cpobj)<br />       (vl-remove 'nil intPoints)<br />     )<br />     (LST3D->PTLIST intPoints)<br />   )<br /> )

kozmosovia

平面交点处临时生成足够大的3dface或者垂直直线，再求三维线与3dface或者垂直线的交点。
要是求交的其中一条线是直线，直接做个直线垂直的3dface求交点，都不需要转平面求交点

Sring65

3dface 交叉情况时也不太好处理，例如绘制了个五角星

kozmosovia

那就是直接在平面交点绘制垂直线求实际交点了