继续拾取点
我在寻找一个非常简单的例子，使用while或Do While来选择点，直到用户点击回车停止。我尝试使用While Not Pt2 = Null
还有我能想到的，但是想不到的每一种变化。我肯定这很简单，但我就是做不到。谢谢
**** Hidden Message ***** 我用过这个
~'J'~
'' written by Tony Tanzillo
'' request check "Break on Unhandled Errors" inGeneral options
Public Sub LoopExample()
Dim Msg As String
Msg = vbCrLf & "First point: "
Dim MyPoint As Variant
Do
On Error Resume Next
MyPoint = ThisDrawing.Utility.GetPoint(, Msg)
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0
' Process the entered point here
ThisDrawing.ModelSpace.AddCircle MyPoint, 10#
Msg = vbCrLf & "Next point or ENTER to exit: "
Loop
On Error GoTo 0
End Sub
这就是我要找的谢谢 感谢托尼
~'J'~
页:
[1]