[求助]：弧转化为线段的算法~~

xysilyxy · 发表于 2006-4-5 14:11:28

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

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

×

在CAD中的弧,现在需要把它转化为多个线段来处理,求个算法谢谢

雪山飞狐(lzh) · 发表于 2006-4-5 19:41:40

以圆心为起点,,起始点为终点做直线,每隔一定角度将直线旋转,求该直线与弧的交点,再联接交点

cadlove · 发表于 2006-4-6 11:01:52

具体怎么操作?

雪山飞狐(lzh) · 发表于 2006-4-6 20:36:01

上面想麻烦了：）
这样就可以了
Sub tt()
Dim pnts() As Double
Dim obj As AcadArc
ThisDrawing.Utility.GetEntity obj, pnt
n = ThisDrawing.Utility.GetInteger("请输入段数:")
at = obj.EndAngle - obj.StartAngle
If at <= 0 Then at = at + Atn(1) * 8
at = at / n
ReDim pnts(2 * n + 1)
For i = 0 To n
p = ThisDrawing.Utility.PolarPoint(obj.Center, obj.StartAngle + i * at, obj.Radius)
pnts(2 * i) = p(0)
pnts(2 * i + 1) = p(1)
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (pnts)

End Sub

lishh_vic · 发表于 2006-5-3 05:21:22

请教楼主
If at <= 0 Then at = at + Atn(1) * 8
是什么意思

雪山飞狐(lzh) · 发表于 2006-5-3 15:04:23

有时会碰到结束角度小于开始角度的情况：）

colormen · 发表于 2006-6-11 02:55:44

果然精简，受教了。

请问那位有曲线转多段线的算法！

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

[求助]：弧转化为线段的算法~~

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

相关帖子