如何求得一个曲面和一条线的交点呢?

urljit

如题,线即为line,曲面是任意的.

whiteon

是的我也有这个疑问，难道CAD中捕捉不到点与面的交点吗？如果是平面还好，曲面上画出一个曲线，再投影到平面上形成一直线，再找这条过曲面的直线在由曲线和它的直线投影构成的平面上的投影与曲线的交点。这点就是线与面的交点。太烦了！

urljit

最初由 whiteon 发布
[B]是的我也有这个疑问，难道CAD中捕捉不到点与面的交点吗？如果是平面还好，曲面上画出一个曲线，再投影到平面上形成一直线，再找这条过曲面的直线在由曲线和它的直线投影构成的平面上的投影与曲线的交点。这点就是线?.. [/B]

看了几遍,不是很明白,能再仔细说说么?麻烦不怕,就怕结果不准确.

eachy

Returns the closest point (in WCS) on a curve after projecting the curve onto a plane

(vlax-curve-getClosestPointToProjection curve-obj givenPnt normal [extend])

Arguments

curve-obj

The VLA-object to be measured.

givenPnt

A point (in WCS) for which to find the nearest point on the curve.

normal

A normal vector (in WCS) for the plane to project onto.

extend

If specified and not nil, vlax-curve-getClosestPointToProjection extends the curve when searching for the nearest point.

vlax-curve-getClosestPointToProjection projects the curve onto the plane defined by the givenPnt and normal, and then calculates the nearest point on that projected curve to givenPnt. The resulting point is then projected back onto the original curve, and vlax-curve-getClosestPointToProjection returns that projected point.

Return Values

A 3D point list representing a point on the curve, if successful; otherwise nil.

urljit

谢谢斑竹，用你提供的函数搜索了一下，找到一个(vla-intersectwith object1 object2 extendoption) 函数，是否也可以用，我觉得更直观些呀！

eachy

最初由 urljit 发布
[B]谢谢斑竹，用你提供的函数搜索了一下，找到一个(vla-intersectwith object1 object2 extendoption) 函数，是否也可以用，我觉得更直观些呀！ [/B]

一条线还是用 intersectwith

urljit

不可！斑竹！刚刚查了，intersectwith 不能用作polygonmesh和pviewport的交点！能否给出一个(vlax-curve-getClosestPointToProjection  使用例子？

其中的关键是如何表示那个向量。

eachy

把 UCS 的 Z 轴和  Line 对齐，然后再想想办法

urljit

eachy：我没有设置ucs，就是一个空间的曲面polygonmash和一个直线相交呀？试着写了一些，不成功：
[php]
(defun c:vint ()
  (setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        mSpace             (vla-get-ModelSpace AcadDocument)
  )
  (setq utility (vla-get-utility AcadDocument))
  (setq cathit t)
  (while cathit
    (setq cathit (vl-catch-all-apply
                   'vla-getentity
                   (list utility 'returnobj 'basepnt "\n请选取曲面")
                 )
    )
  )
  (setq        cathit (vl-catch-all-apply
                 'vla-getentity
                 (list utility 'returnobj2 'basepnt2 "\n请选取线")
               )
  )
  (setq basepnt3 (vla-get-startpoint returnobj2))
  (vlax-curve-getClosestPointToProjection
    returnobj
    basepnt3
    '(1 1 0)
  )
  (princ)
)
[/php]
里面的使用向量方式不对，请问如何解决？

eachy

最初由 urljit 发布
[B]eachy：我没有设置ucs，就是一个空间的曲面polygonmash和一个直线相交呀？试着写了一些，不成功：
[php]
(defun c:vint ()
  (setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument... [/B]

把你想到的CAD曲面贴个 DWG 上来

urljit

其实就是想计算土方量，顺便学习vlisp编程（此前一直是autolisp）

eachy

最初由 urljit 发布
[B]其实就是想计算土方量，顺便学习vlisp编程（此前一直是autolisp） [/B]

这就复杂了，其实算土方据介绍  AutoDesk有个产品 Civil 3D 2005 就有算土方功能，根据点自动生成三维地表模型，可以设计坡度计算土方。自己在Autocad这个通用平台上写就没必要了。

xqs001

应该要用对象坐标系,可以间接的画

urljit

最初由 eachy 发布
[B]
这就复杂了，其实算土方据介绍  AutoDesk有个产品 Civil 3D 2005 就有算土方功能，根据点自动... [/B]

既然已经知道vlax-curve-getClosestPointToProjection 这个函数了，还是弄懂用法比较好，还希望你能给出一个vlax-curve-getClosestPointToProjection 使用的例子，尤其是里面那个矢量怎么代入？

eachy

CAD 中没有连续的面吧，都是三角网面，做土方计算都是要转为一个个的三角面，直线和对应的三角面（平面）相交来求高程。
那个参数是一个点格式，符合右手规则。用 vlax-3d-point 转。