继续拾取点

Fatty · 发表于 2007-6-11 16:35:54

我在寻找一个非常简单的例子，使用while或Do While来选择点，直到用户点击回车停止。我尝试使用

While Not Pt2 = Null

还有我能想到的，但是想不到的每一种变化。我肯定这很简单，但我就是做不到。谢谢

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Fatty · 发表于 2007-6-11 17:27:43

我用过这个
~'J'~

copy

'' written by Tony Tanzillo
'' request check "Break on Unhandled Errors" in  General 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

Fatty · 发表于 2007-6-11 17:42:28

这就是我要找的谢谢

Fatty · 发表于 2007-6-13 09:48:07

感谢托尼
~'J'~

继续拾取点

发表回复

精选推荐