关于getOrthoProjectedCurve函数

lionguns

    virtual Acad::ErrorStatus getOrthoProjectedCurve(const AcGePlane&,
                                                AcDbCurve*& projCrv) const;

AcDbCurve的这个函数，目前发现两个问题，
1、当曲线是AcDbPolyline时，不支持这个方法。（估计是顶点不含Z坐标的原因）；
2、当曲线是AcDb3dPolyline时，支持这个方法，但是得到的曲线是投影到AcGePlane后再投影到世界坐标的  XOY平面的曲线。
不知道是否有哪位大神研究过？是否如此？

LoveArx

你可以查询下 Acad::ErrorStatus 返回值，看看是什么。

另外，建议把完整的代码贴上来，有时候可能是代码其他地方有问题，而不要着急下结论。

Lispboy

用 XDRX API写个LISP测试程序，LWPOLYLINE是可以正交投影的，看演示和数据



投影是到垂直于世界坐标系X轴，即法线是世界坐标系Y轴的平面投影。

结果：

选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:LWPOLYLINE,投影后曲线类型为:SPLINE ,顶点数=0
选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:LWPOLYLINE,投影后曲线类型为:LWPOLYLINE ,顶点数=7
选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:ELLIPSE,投影后曲线类型为:LINE ,顶点数=2
选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:ARC,投影后曲线类型为:LINE ,顶点数=2
选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:LINE,投影后曲线类型为:LINE ,顶点数=2
选择要投影的曲线<退出>:
投影面原点<0,0,0>:
向法线为(0 1 0)的平面正交投影后，得到1条曲线.
  曲线 1 类型为:SPLINE,投影后曲线类型为:SPLINE ,顶点数=0


结论：
   1、 LWPOLYLINE投影后，类型可能变化，带弧线段的，投影后会变成SPLINE，否则是LWPOLYLINE
   2、 圆，弧，椭圆投影后可能变成直线，也可能根据投影面不同，变成椭圆。

1. (defun c:tt ()
   
2.   (while (setq e (car (xdrx_entsel
   
3.                      "\n选择要投影的曲线<退出>:"
   
4.                      '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))
   
5.                    )
   
6.               )
   
7.       )
   
8. 
   
9.     (progn
   
10.       (if (not (setq ori (getpoint "\n投影面原点<0,0,0>:")))
    
11.         (setq ori '(0 0 0))
    
12.       )
    
13.       (if (setq e1 (xdrx_curve_getProjectCurve
    
14.                      e
    
15.                      (list ori '(1.0 0.0 0.0) '(0. 0. 1.0))
    
16.                    )
    
17.           )
    
18.         (progn
    
19.           (xdrx_prompt
    
20.             "\n向法线为(0 1 0)的平面正交投影后，得到"
    
21.             (sslength e1)
    
22.             "条曲线."
    
23.           )
    
24.           (setq i 0)
    
25.           (mapcar
    
26.             '(lambda (x)
    
27.                (xdrx_setpropertyvalue x "color" (xdrx_math_rand 1 10))
    
28.                (setq i (1+ i))
    
29.                (xdrx_prompt
    
30.                  "\n  曲线 "
    
31.                  i
    
32.                  " 类型为:"
    
33.                  (car (xdrx_object_classname e))
    
34.                  ",投影后曲线类型为:"
    
35.                  (car (xdrx_object_classname x))
    
36.                  " ,顶点数="
    
37.                  (length (xdrx_getpropertyvalue x "vertices"))
    
38.                )
    
39.              )
    
40.             (xdrx_pickset->ents e1)
    
41.           )
    
42.         )
    
43.       )
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    

(defun c:tt ()<br />   (while (setq e (car (xdrx_entsel<br />                      "\n选择要投影的曲线<退出>:"<br />                      '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))<br />                    )<br />               )<br />       )<br /> <br />     (progn<br />       (if (not (setq ori (getpoint "\n投影面原点<0,0,0>:")))<br />         (setq ori '(0 0 0))<br />       )<br />       (if (setq e1 (xdrx_curve_getProjectCurve<br />                      e<br />                      (list ori '(1.0 0.0 0.0) '(0. 0. 1.0))<br />                    )<br />           )<br />         (progn<br />           (xdrx_prompt<br />             "\n向法线为(0 1 0)的平面正交投影后，得到"<br />             (sslength e1)<br />             "条曲线."<br />           )<br />           (setq i 0)<br />           (mapcar<br />             '(lambda (x)<br />                (xdrx_setpropertyvalue x "color" (xdrx_math_rand 1 10))<br />                (setq i (1+ i))<br />                (xdrx_prompt<br />                  "\n  曲线 "<br />                  i<br />                  " 类型为:"<br />                  (car (xdrx_object_classname e))<br />                  ",投影后曲线类型为:"<br />                  (car (xdrx_object_classname x))<br />                  " ,顶点数="<br />                  (length (xdrx_getpropertyvalue x "vertices"))<br />                )<br />              )<br />             (xdrx_pickset->ents e1)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

lionguns

可以用以下代码试，空间直线之类是可以的。多段线，直接eNotApplicable。三维多段线，被拍成二维的了。


ads_name eName;
ads_point pt;

if( RTNORM != acedEntSel(_T("\nPlease select a solid "), eName, pt ))
        return;

AcDbObjectId id;
acdbGetObjectId( id, eName );
AcDbObjectPointer<AcDbCurve> pPoly(id, AcDb::kForRead);
AcDbCurve *pCrvOrtho;
Acad::ErrorStatus es;
AcGePlane pln(AcGePoint3d(10, 10, 0), AcGeVector3d(0, 1, 0));
es = pPoly->getOrthoProjectedCurve(pln, pCrvOrtho);

lionguns

Lispboy 发表于 2017-3-2 20:35

可以炸开再投影，我是说直接用这个方法是乎是不行。

newer

lionguns 发表于 2017-3-2 22:04

XDRX API就是用ARX写的，LISPBOY的例子看到，直接LWPOLYLINE是能够投影成SPLINE或者LWPOLYLINE的。你试试把你的代码投影平面改到LISPBOY的例子的平面，看看能投影不？

lionguns

newer 发表于 2017-3-2 22:57

都有试过，多段线是不行的，
他演示的可以，应该是在函数里对多段线进行了处理了，最后是可以了，事实上应该是个模拟。
多段线的凸度没法表达椭圆，我估计这是CAD不让对它变换的原因吧。

newer

lionguns 发表于 2017-3-3 10:59

测试看，带弧段的多段线是变成 SPLINE 的，不是椭圆。

newer

lionguns 发表于 2017-3-3 10:59

测试来下LISPBOY的程序，发现了问题

在2016下面，多段线是可以投影的， 在2008下面，多段线不行，

这应该是低版本CAD的一个BUG，你是不是在低版本CAD测试的你的代码？ 你换高版本的CAD试试你的代码。

newer

lionguns 发表于 2017-3-3 10:59

修改了下LISPBOY的代码, 在2008下面，可以通过几何库的

AcGeCurve3d::orthoProject Function

AcGeEntity3d *

orthoProject(

const AcGePlane& projectionPlane,

const AcGeTol& tol = AcGeContext::gTol) const;

projectionPlane	Input plane on which curve is to be projected
tol	Input tolerance

Returns the entity that is the orthogonal projection of the curve onto the projection plane. The returned entity may not be of the same type as the original curve and may not even be a curve (for instance, a line projects into a point if it is orthogonal to the projection plane). The returned entity is created with the new operator and it is the responsibility of the caller to delete it.



在低版本CAD， 你可以先把DB曲线转换成GE曲线，然后用 pGeCrv->orthoProject(plane)，投影变换。

1. 
   
2. 命令: tt
   
3. 选择要投影的曲线<退出>:
   
4. 投影面原点<0,0,0>:
   
5. 向法线为(0 1 0)的平面正交投影后，得到 1  条曲线.
   
6.   曲线 1 类型为:LINE,投影后曲线类型为:LINE ,顶点数=2
   
7. 选择要投影的曲线<退出>:
   
8. 投影面原点<0,0,0>:
   
9. 向法线为(0 1 0)的平面正交投影后，得到 1  条曲线.
   
10.   曲线 1 类型为:LINE,投影后曲线类型为:LINE ,顶点数=2
    
11. 选择要投影的曲线<退出>:
    
12. 投影面原点<0,0,0>:
    
13. 向法线为(0 1 0)的平面正交投影后，得到 1  条曲线.
    
14.   曲线 1 类型为:SPLINE,投影后曲线类型为:SPLINE ,顶点数=0
    
15. 选择要投影的曲线<退出>:
    

复制代码

1. (defun c:tt ()
   
2.   (while (setq e (car (xdrx_entsel "\n选择要投影的曲线<退出>:" '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE")))))
   
3.     (progn
   
4.       (if (not (setq ori (getpoint "\n投影面原点<0,0,0>:")))
   
5.         (setq ori '(0 0 0))
   
6.       )
   
7.       (setq g (xdge::constructor e))
   
8.       (setq gl nil)
   
9.       (setq plane (xdge::constructor "kPlane" ori '(0.0 1.0 0.0)))
   
10.       (if (= (xdge::type g) "kCompositeCrv3d")
    
11.         (setq gl (xdge::getpropertyvalue g "getcurvelist"))
    
12.         (setq gl (cons g gl)
    
13.               el nil
    
14.         )
    
15.       )
    
16.       (mapcar
    
17.         '(lambda (x)
    
18.            (setq e (xdge::getpropertyvalue x "orthoproject" plane))
    
19.            (setq e (xdge::entity:make e)
    
20.                  el (cons e el)
    
21.            )
    
22.          )
    
23.         gl
    
24.       )
    
25.       (xdrx_curve_join el)
    
26.       (xdrx_prompt "\n向法线为(0 1 0)的平面正交投影后，得到 1 " " 条曲线.")
    
27.       (setq i 0)
    
28.       (xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 1 10))
    
29.       (setq i (1+ i))
    
30.       (xdrx_prompt "\n  曲线 " i " 类型为:" (car
    
31.                                                  (xdrx_object_classname
    
32.                                                                         (entlast)
    
33.                                                  )
    
34.                                             ) ",投影后曲线类型为:"
    
35.                    (car (xdrx_object_classname (entlast))) " ,顶点数="
    
36.                    (length (xdrx_getpropertyvalue e "vertices"))
    
37.       )
    
38.       (xdge::free)
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    

(defun c:tt ()<br />   (while (setq e (car (xdrx_entsel "\n选择要投影的曲线<退出>:" '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE")))))<br />     (progn<br />       (if (not (setq ori (getpoint "\n投影面原点<0,0,0>:")))<br />         (setq ori '(0 0 0))<br />       )<br />       (setq g (xdge::constructor e))<br />       (setq gl nil)<br />       (setq plane (xdge::constructor "kPlane" ori '(0.0 1.0 0.0)))<br />       (if (= (xdge::type g) "kCompositeCrv3d")<br />         (setq gl (xdge::getpropertyvalue g "getcurvelist"))<br />         (setq gl (cons g gl)<br />               el nil<br />         )<br />       )<br />       (mapcar<br />         '(lambda (x)<br />            (setq e (xdge::getpropertyvalue x "orthoproject" plane))<br />            (setq e (xdge::entity:make e)<br />                  el (cons e el)<br />            )<br />          )<br />         gl<br />       )<br />       (xdrx_curve_join el)<br />       (xdrx_prompt "\n向法线为(0 1 0)的平面正交投影后，得到 1 " " 条曲线.")<br />       (setq i 0)<br />       (xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 1 10))<br />       (setq i (1+ i))<br />       (xdrx_prompt "\n  曲线 " i " 类型为:" (car<br />                                                  (xdrx_object_classname<br />                                                                         (entlast)<br />                                                  )<br />                                             ) ",投影后曲线类型为:"<br />                    (car (xdrx_object_classname (entlast))) " ,顶点数="<br />                    (length (xdrx_getpropertyvalue e "vertices"))<br />       )<br />       (xdge::free)<br />     )<br />   )<br />   (princ)<br /> )<br />

lionguns

谢谢大家的讨论。看来确实是CAD低版本的问题。再次感谢