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

本文介绍如何使用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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值