VB中对圆弧的定义

最新推荐文章于 2024-01-06 22:03:55 发布

yinshencaoysc

最新推荐文章于 2024-01-06 22:03:55 发布

阅读量374

点赞数

分类专栏： CAD-VBA 文章标签： visual studio 开发语言

本文链接：https://blog.csdn.net/yinshencaoysc/article/details/128244235

版权

CAD-VBA 专栏收录该内容

7 篇文章 1 订阅

订阅专栏

Private Sub CommandButton1_Click()
Const PI = 3.14159265358979
Dim yuanhu As AcadArc
Dim yuanxin(2) As Double
Dim banjing As Double
Dim qishijiaodu As Double
Dim jieshujiaodu As Double
yuanxin(0) = Val(tex_yuanxin_x.Text)
yuanxin(1) = Val(tex_yuanxin_y.Text)
yuanxin(2) = Val(tex_yuanxin_z.Text)
banjing = Val(tex_yuan_banjing.Text)
qishijiaodu = Val(tex_qishijiaodu.Text) / 180 * PI
jieshujiaodu = Val(tex_jieshujiaodu.Text) / 180 * PI
Set yuanhu = ThisDrawing.ModelSpace.AddArc(yuanxin, banjing, qishijiaodu, jieshujiaodu)
ZoomAll
t = MsgBox(yuanhu.Handle)

End Sub