017集——cad vba 中arc(弧)对象详解

yngsqq

已于 2024-03-11 22:59:36 修改

阅读量541

点赞数 8

分类专栏： CAD VBA 文章标签： CAD vba

于 2024-03-09 14:47:53 首次发布

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/yongshiqq/article/details/136582717

版权

CAD VBA 专栏收录该内容

60 篇文章 11 订阅

订阅专栏

弧是CAD中一个常见的图元，在vba中的类名为AcadArc,创建方法为set myarc = thisdrawing.modelspace.addarc(Center, Radius, StartAngle, EndAngle)
Center 圆心（Variant[变体] (三元素双精度数组); 仅用于输入
指定圆弧圆心的三维WCS坐标。）

Radius 半径（Double[双精度]; 仅用于输入圆弧的半径。）

StartAngle, EndAngle 开始方位角，终点方位角（Double[双精度]; 仅用于输入
定义圆弧的起始角和终止角(以弧度表示)。当起始角大于终止角时定义的是逆时针的圆弧。）

update方法可用于更新实体。

关注

8
点赞
踩
8

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

yngsqq CSDN认证博客专家 CSDN认证企业博客

码龄9年

221: 原创

1万+: 周排名

8268: 总排名

18万+: 访问

: 等级

4499: 积分

1697: 粉丝

2223: 获赞

39: 评论

1524: 收藏

私信

关注

热门文章

分类专栏

arcgisGIS 10篇
CAD知识讲堂 10篇
CAD C#二次开发 12篇
CAD VBA 60篇
C#学习笔记 40篇
函数（VBA） 44篇
Excel VBA 10篇
VB.NET 8篇
网络 8篇
CAD (VB.NET) 2篇
python 18篇

最新评论

批量清理CAD文件——vba实现（dvb插件）
qq_20363993: 老板，插件下载路径给个，楼主好人
已知两圆的圆心半径，求交点坐标（几何代数两种解法）——CAD VBA 解决
yngsqq: RetVal = object.IntersectWith(IntersectObject, ExtendOption) Object 所有图形对象 (除了 Pviewport 和 PolygonMesh) 使用该方法的对象或对象集合。 IntersectObject Object[对象], 为输入项; 对象可以是所有图形对象中的任一个。 ExtendOption AcExtendOption 常数; 为输入项该选项指定两个对象中是否没有、单个或两个对象延伸来得到交点。 acExtendNone 两个对象均不延伸。 acExtendThisEntity 延伸基本对象。 acExtendOtherEntity 延伸作为参数传递的对象。 acExtendBoth 延伸两个对象。 RetVal Variant[变体] (双精度数组) 点数组为图形中对象与其它对象相交的点数组。如果两个对象不相交，则没有返回数据。用户可以要求一个或两个对象延伸相交来产生相交点。例如，在以下例图中，线1为该方法调用的基本对象，而线3作为参照传递给该方法。如果 ExtendOption 传递的是 acExtendThisEntity，则点A将作为线1在延伸后与线3相交的点返回。如果 ExtendOption 为 acExtendOtherEntity，则不会返回数据，因为即使线3延伸了，它也与线1没有相交。如果相交类型为 acExtendBothEntities 并且线2作为参数图元传递，则返回点B。如果 ExtendOption 为 acExtendNone 并且线2为参数图元，则无数据返回。
已知两圆的圆心半径，求交点坐标（几何代数两种解法）——CAD VBA 解决
StarShiniLight: 感觉可以通过iIntersectWith Method来解决这个问题。 RetVal = object.IntersectWith(IntersectObject, ExtendOption)
001集——vb.net打开CAD指指定路径文件（vb.net入门）
lightyea1978: 不会呀，有打开的就连接打开的cad，没有才创建
已知两圆的圆心半径，求交点坐标（几何代数两种解法）——CAD VBA 解决
yngsqq: 为了找到交点，我们需要解联立方程组。已经得到了一个线性方程： Ax + By + C = 0 Ax+By+C=0 其中， A = 2(a_2 - a_1) A=2(a 2 −a 1 ) B = 2(b_2 - b_1) B=2(b 2 −b 1 ) C = a_2^2 - a_1^2 + b_2^2 - b_1^2 + r_1^2 - r_2^2 C=a 2 2 −a 1 2 +b 2 2 −b 1 2 +r 1 2 −r 2 2 接下来，将这个线性方程与第一个圆的方程联立： \left\{ \begin{array}{l} (x - a_1)^2 + (y - b_1)^2 = r_1^2 \\ Ax + By + C = 0 \end{array} \right. { (x−a 1 ) 2 +(y−b 1 ) 2 =r 1 2 Ax+By+C=0 从第二个方程中解出 y y： y = -\frac{A}{B}x - \frac{C}{B} y=− B A x− B C 将这个表达式代入第一个方程中，得到一个关于 x x 的二次方程： (x - a_1)^2 + \left(-\frac{A}{B}x - \frac{C}{B} - b_1\right)^2 = r_1^2 (x−a 1 ) 2 +(− B A x− B C −b 1 ) 2 =r 1 2 展开并整理，得到： \left(1 + \frac{A^2}{B^2}\right)x^2 + 2\left(\frac{AC}{B^2} + \frac{A}{B}b_1 - a_1\right)x + \left(\frac{C^2}{B^2} + \frac{2C}{B}b_1 + b_1^2 - r_1^2\right) = 0 (1+ B 2 A 2 )x 2 +2( B 2 AC + B A b 1 −a 1 )x+( B 2 C 2 + B 2C b 1 +b 1 2 −r 1 2 )=0 这是一个标准的二次方程，可以表示为： \alpha x^2 + \beta x + \gamma = 0 αx 2 +βx+γ=0 其中， \alpha = 1 + \frac{A^2}{B^2} α=1+ B 2 A 2 \beta = 2\left(\frac{AC}{B^2} + \frac{A}{B}b_1 - a_1\right) β=2( B 2 AC + B A b 1 −a 1 ) \gamma = \frac{C^2}{B^2} + \frac{2C}{B}b_1 + b_1^2 - r_1^2 γ= B 2 C 2 + B 2C b 1 +b 1 2 −r 1 2 使用二次方程的求根公式： x = \frac{-\beta \pm \sqrt{\beta^2 - 4\alpha\gamma}}{2\alpha} x= 2α −β± β 2 −4αγ 将 \alpha α、 \beta β 和 \gamma γ 的值代入上式，即可求出 x x 的两个解，分别对应两个交点的 x x 坐标。由于计算过程涉及复杂的代数运算，这里不给出具体的数值解，但你可以使用任何数学软件或编程语言（如Python、MATLAB等）来计算这些值。在实际应用中，你需要将具体的圆心坐标和半径值代入上述公式中，然后进行计算。如果计算出的判别式 \beta^2 - 4\alpha\gamma < 0 β 2 −4αγ<0，则说明两个圆没有交点（即相离或内含）。如果判别式等于0，则说明两个圆有一个交点（即相切）。如果判别式大于0，则说明两个圆有两个交点。

大家在看

最新文章

2024

目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。