哇!哇!哇 ;倒车……一场致命的事故  ;什么
此处';这就是我想到的- Private Sub cmdLayoutLines_Click()
- Me.Hide
- Dim intBusSpacing As Integer, strLayer As AcadLayer, objLine As AcadLine
- Set strLayer = ThisDrawing.Layers.Add("3d-Layout-Lines")
- strLayer.color = 173
- ThisDrawing.ActiveLayer = strLayer
-
- On Error Resume Next
- Do
- With ThisDrawing.Utility
- Dim pt1 As Variant, pt2 As Variant
- pt1 = .GetPoint(, "Pick Starting Point: ")
- pt2 = .GetPoint(pt1, "Pick Next Point: ")
- ThisDrawing.ModelSpace.AddLine pt1, pt2
- While Not pt2(0)
- pt1 = pt2
- If Err.Number 0 Then
- Exit Do
- Else
- pt2 = .GetPoint(pt1, "Pick Next Point: ")
- ThisDrawing.ModelSpace.AddLine pt1, pt2
- End If
- Wend
- End With
- Loop
- Me.Show
- End Sub
|