设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [讨论]：这是求椭圆弧中间点方法,但方法2为何不行????? ...
返回列表 发新帖
查看: 1508|回复: 7

[讨论]：这是求椭圆弧中间点方法,但方法2为何不行?????

[复制链接]
LUCAS
发表于 2002-11-11 15:46:17 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
;;这是求椭圆弧中间点方法,但方法2为何不行?????

  3. (defun c:test ()
  4.   (setvar "PELLIPSE" 0)
  5.   (entmake '((0 . "ELLIPSE")
  6.              (100 . "AcDbEntity")
  7.              (67 . 0)
  8.              (410 . "Model")
  9.              (8 . "0")
  10.              (100 . "AcDbEllipse")
  11.              (10 319.594 142.135 0.0)
  12.              (11 274.456 96.6051 0.0)
  13.              (210 0.0 0.0 1.0)
  14.              (40 . 0.187371)
  15.              (41 . 2.40226)
  16.              (42 . 5.14988)
  17.             )
  18.   )
  19.   (setq WW (vlax-ename->vla-object (entlast)))

  21.   ;;求椭圆弧中间点方法1
  22.   (setq        TLEN (/        (vlax-curve-getdistatparam
  23.                   WW
  24.                   (vlax-curve-getendparam WW)
  25.                 )
  26.                 2
  27.              )
  28.   )
  29.   (setq MID-POINT1 (vlax-curve-getpointatdist WW TLEN))
  30.   (command "_.POINT" MID-POINT1)

  32.   ;;求椭圆弧中间点方法2
  33.   (setq STARTSPLINE (vlax-curve-getstartparam WW))
  34.   (setq ENDSPLINE (vlax-curve-getendparam WW))
  35.   (setq        MID-POINT2
  36.          (vlax-curve-getpointatparam
  37.            WW
  38.            (/ (- ENDSPLINE STARTSPLINE) 2)
  39.          )
  40.   )
  41.   (command "_.POINT" MID-POINT2)
  42.   (princ)
  43. )
方法, 椭圆, vlax

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

烛光
发表于 2002-11-11 15:50:40 | 显示全部楼层
一和二的差别就在于一是根据距离来求，二是根据参数值来求。

距离的一半肯定是中点，充分必要条件。

参数的一半不一定是中点，即不充分也不必要，只有参数值是线性变化的，才是。

我的观点，不知是否正确。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
 楼主| 发表于 2002-11-11 16:50:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
那参数真正义意是甚么???
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

烛光
发表于 2002-11-11 17:05:29 | 显示全部楼层
最初由 LUCAS 发布
[B]那参数真正义意是甚么??? [/B]


曲线的参数化方程式。不是笛卡儿坐标X,Y表示，通过参数化，用一个变量表示。

比如直线，从1，1，1到2，4，5画一条直线，方程可以为：

L＝（1，1，1）＋U×（1，3，4）

U从0到1变化，U就是参数值。

再如，一个圆心0，0，0，半径1的园，参数化如下：

C=(cos(u)+sin(u),0);
U的范围0－360度，如果减少取值范围，那么就可以得到一段弧。

建议你去看看《AUTOCAD 2000 对象开发从入门到精通》这本书，里面讲了ACAD下的所有对象，其中对曲线的描述很全面。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

efan2000

已领礼包: 181个

财富等级: 日进斗金
发表于 2002-11-11 18:47:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 烛光 发布
[B]一和二的差别就在于一是根据距离来求，二是根据参数值来求。

距离的一半肯定是中点，充分必要条件。

参数的一半不一定是中点，即不充分也不必要，只有参数值是线性变化的，才是。

我的观点，不知是否正确。 [/B]


在帮助文件中有如下的一个例子，难道这个例子有错？

  3.   [FONT=courier new]
  4. 获取曲线的开始参数：

  6. _$ (setq startSpline (vlax-curve-getStartParam splineObj))

  8. 0.0

  10. 获取曲线的结束参数：

  12. _$ (setq endSpline (vlax-curve-getEndParam splineObj))

  14. 17.1546

  16. 确定曲线的中点：

  18. _$ (vlax-curve-getPointAtParam splineObj  
  19.    ( / (- endspline startspline) 2))

  21. (6.71386 2.82748 0.0)
  22.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-11-11 22:59:40 | 显示全部楼层
最初由 efan2000 发布
[B][QUOTE]最初由 烛光 发布
[B]一和二的差别就在于一是根据距离来求，二是根据参数值来求。

距离的一半肯定是中点，充分必要条件。

参数的一半不一定是中点，即不充分也不必要，只有参数值是线性变化的?.. [/B]


不能说错，但是不完全。

我写XDRX_API的时候就注意到了，开始朋友说有BUG，中点有时候对，有的实体不对。后来用了距离的方法。

在ADN开发资料中，ADESK也给了求中点的代码，也是用的距离的一半。

大家看下下面的代码，求POLYLINE任一段的中点，蓝色的注意。


  2. [FONT=courier new]

  4. 问题：
  5. How do I find the midpoint of a curve and the midpoint of each segment for an
  6. AcDbPolyline?

  8. 解答：
  9. The following code finds the midpoint on the [color=blue]perimeter (not the parametric
  10. space)[/color] of each segment on a curve.


  13. Acad::ErrorStatus getMidPointOnEachSegOfCrv(AcDbCurve *pCurve)
  14. {
  15.     Acad::ErrorStatus    es;
  16.     AcGePoint3d pt;

  18.     double startParam, endParam;
  19.    
  20.     if(!pCurve->isKindOf(AcDbCurve::desc()))
  21.     {
  22.         acutPrintf("\nSelected entity is not a CURVE derived object");

  24.         return Acad::eInvalidInput;
  25.     }
  26.    
  27.     AcDbPolyline      *pPline;
  28.     pPline = AcDbPolyline::cast(pCurve);

  30.     if ( pPline != NULL )
  31.     {
  32.         int num;
  33.         num = pPline->numVerts();
  34.         for( int index=0; index < num-1; index++ )
  35.         {
  36.             if( pPline->segType(index) == AcDbPolyline::kLine )
  37.             {
  38.                 AcGeLineSeg2d lineSeg;

  40.                 es = pPline->getLineSegAt(index, lineSeg);
  41.                 if( Acad::eOk != es )
  42.                 {
  43.                     acutPrintf("\nFailed to get segment at
  44. %d.", index);
  45.                     return es;
  46.                 }
  47.                
  48.                 AcGePoint2d pt;
  49.                 pt = lineSeg.midPoint();
  50.                 acutPrintf("\nMidpoint of %i segment LINE is:
  51. %f,%f,%f.", index, pt[0], pt[1], pt[2]);
  52.             }
  53.             else if( pPline->segType(index) == AcDbPolyline::kArc )
  54.             {
  55.                 AcGeCircArc2d ArcSeg;
  56.                 es = pPline->getArcSegAt(index, ArcSeg);
  57.                 if( Acad::eOk != es )
  58.                 {
  59.                     acutPrintf("\nFailed to get segment at
  60. %d.", index);
  61.                     return es;
  62.                 }
  63.                
  64.                 double startAng, endAng;
  65.                
  66.                 startAng = ArcSeg.startAng();
  67.                 endAng = ArcSeg.endAng();
  68.                
  69.                 AcGePoint2d pt;
  70.                 pt = ArcSeg.evalPoint((startAng+endAng)/2);
  71.                
  72.                 acutPrintf("\nMidpoint of %i segment ARC is:
  73. %f,%f,%f.", index, pt[0], pt[1], pt[2]);
  74.             }
  75.         }
  76.         pPline->close();
  77.         return Acad::eOk;
  78.     }
  79.    
  80.     es = pCurve->getStartParam( startParam );
  81.     if( Acad::eOk != es )
  82.     {
  83.         acutPrintf("\nFailed to get start Parameter.");
  84.         return es;
  85.     }
  86.     acutPrintf("\nstartParam is %fl", startParam);
  87.    
  88.     es =  pCurve->getEndParam( endParam );
  89.     if( Acad::eOk != es )
  90.     {
  91.         acutPrintf("\nFailed to get end Parameter.");
  92.         return es;
  93.     }
  94.     acutPrintf("\nendParam is %fl", endParam);

  96.     double distStParam;
  97.     es = pCurve->getDistAtParam( startParam , distStParam);
  98.     if( Acad::eOk != es )
  99.     {
  100.         acutPrintf("\nFailed to get the distance at start Parameter.");
  101.         return es;
  102.     }
  103.    
  104.     double distEndParam;
  105.     es = pCurve->getDistAtParam( endParam , distEndParam);
  106.     if( Acad::eOk != es )
  107.     {
  108.         acutPrintf("\nFailed to get the distance at end Parameter.");
  109.         return es;
  110.     }
  111.    
  112.     if(distStParam > 1.e-10)
  113.     {
  114.         acutPrintf("\nWARNING: The distance at starting parameter is not
  115. zero. A Trivial situation");
  116.     }
  117.    
  118.     [color=blue]double midDist = distEndParam / 2.0;
  119.    
  120.     es = pCurve->getPointAtDist(midDist, pt);[/color]
  121.     if( Acad::eOk != es )
  122.     {
  123.         acutPrintf("\nFailed to get the distance at end Parameter.");
  124.         return es;
  125.     }
  126.     acutPrintf("\n%f,%f,%f", pt[0], pt[1], pt[2]);

  128.     es = pCurve->close() ;
  129.     if( Acad::eOk != es )
  130.     {
  131.         acutPrintf("\nFailed to get the distance at end Parameter.");
  132.         return es;
  133.     }
  134.    
  135.     return Acad::eOk;
  136. }
  137. [/FONT]
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
 楼主| 发表于 2002-11-12 10:45:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你可能没有注意到,我在台湾,要找到《AUTOCAD 2000 对象开发从入门到精通》这本书有点困难。
如曲线的参数化方程式用一个变量表示。那就是说每条曲线都有个别的参数化方程式,在我所列的方法2中
STARTSPLINE的值是2.40226
ENDSPLINE的值是5.14988
对椭圆弧&圆弧来说这些参数值一点用都没有吗???
是否有例子说明这些参数值在椭圆弧&圆弧中的应用实例。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-11-12 11:19:28 | 显示全部楼层
最初由 LUCAS 发布
[B]你可能没有注意到,我在台湾,要找到《AUTOCAD 2000 对象开发从入门到精通》这本书有点困难。
如曲线的参数化方程式用一个变量表示。那就是说每条曲线都有个别的参数化方程式,在我所列的方法2中
STARTSPLINE的值是2.... [/B]


参数值就是特征值啊，它是唯一的，不象点，如果曲线封闭，那么起点和终点是相等的，但参数值不等，所以参数值可以用来做排序的关键字。

参数值和点一样，ARX提供了很多处理参数值的函数，根据参数值能得到点，距离等等。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-26 05:01 , Processed in 0.372917 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表