CAD-VB多段线、波浪线、射线、构造线

yinshencaoysc

于 2022-12-10 20:31:54 发布

阅读量491

点赞数

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

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

版权

本文介绍如何使用VB进行CAD编程，详细阐述了创建多段线、波浪线及射线和构造线的方法，帮助开发者掌握CAD图形的动态绘制技巧。

摘要由CSDN通过智能技术生成

'多段线

Private Sub CommandButton1_Click()
Dim duoduanxian As AcadPolyline
Dim erweishuzu(14) As Double
erweishuzu(0) = 0
erweishuzu(1) = 0
erweishuzu(2) = 0

erweishuzu(3) = 5
erweishuzu(4) = 5
erweishuzu(5) = 0

erweishuzu(6) = 10
erweishuzu(7) = 5
erweishuzu(8) = 0

erweishuzu(9) = 5
erweishuzu(10) = 10
erweishuzu(11) = 0

erweishuzu(12) = 2
erweishuzu(13) = 3
erweishuzu(14) = 0

Set duoduanxian = ThisDrawing.ModelSpace.AddPolyline(erweishuzu)
ZoomAll
End Sub

'射线
Dim qishidian(2) As Double
Dim zhongdian(2) As Double
Dim shexian As AcadRay
Dim gouzaoxian As AcadXline
Private Sub CommandButton1_Click()
qishidian(0) = Val(tex_qishidian_x.Text)
qishidian(1) = Val(tex_qishidian_y.Text)
qishidian(2) = Val(tex_qishidian_z.Text)

zhongdian(0) = Val(tex_zhongdian_x.Text)
zhongdian(1) = Val(tex_zhongdian_y.Text)
zhongdian(2