'多段线
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