[VBA函数]：利用VBA绘制圆弧

gzmkshjsh · 发表于 2006-3-15 11:22:56

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

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

×

在VBA中能否利用圆心、起点、终点进行绘制圆弧？

雪山飞狐(lzh) · 发表于 2006-3-15 20:28:41

要按圆心、起点、终点计算出起始角和终止角再调用AddArc

gzmkshjsh · 发表于 2006-3-16 07:53:17

谢谢斑竹！
利用圆心起始角、终止角我会。由于设计的需要，我想在VBA中直接利用圆心、起点、终点绘制圆弧，即绘出圆心坐标、起点坐标、终点坐标，通过画弧命令绘制圆弧。请斑竹指导？！！

雪山飞狐(lzh) · 发表于 2006-3-16 14:47:53

你做个函数直接调用不就可以了，VBA调用Sendcommand方法不推荐使用

gzmkshjsh · 发表于 2006-3-17 11:10:01

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

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

×

由于水平有限，不知如何做，请斑竹给予指导？！！！

雪山飞狐(lzh) · 发表于 2006-3-17 11:24:51

Function AddArc3P(ByVal Center, ByVal StartPoint, ByVal EndPoint) As AcadArc
r = ((StartPoint(0) - Center(0)) ^ 2 + (StartPoint(1) - Center(1)) ^ 2) ^ 0.5
a1 = ThisDrawing.Utility.AngleFromXAxis(Center, StartPoint)
a2 = ThisDrawing.Utility.AngleFromXAxis(Center, EndPoint)
Set AddArc3P = ThisDrawing.ModelSpace.AddArc(Center, r, a1, a2)
End Function

Sub tttttttt()
AddArc3P ThisDrawing.Utility.getpoint, ThisDrawing.Utility.getpoint, ThisDrawing.Utility.getpoint
End Sub

gzmkshjsh · 发表于 2006-3-17 15:22:38

谢谢斑竹！！我回去试试

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

[VBA函数]：利用VBA绘制圆弧

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

相关帖子

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

相关帖子