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

Sring65 · 发表于 2024-9-27 15:04:38

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

Sring65 · 发表于 2024-9-27 15:10:29

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

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

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

kozmosovia · 发表于 2024-9-27 15:48:46

本帖最后由 kozmosovia 于 2024-9-27 15:51 编辑

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

Sring65 · 发表于 2024-9-27 16:02:50

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

kozmosovia · 发表于 2024-9-27 16:11:45

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

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

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

本帖子中包含更多资源