连续拾取点（提示点序号） 已解决

pmq

NativeMethods.SetFocus(Core.Application.DocumentManager.MdiActiveDocument.Window.Handle) 'CAD获得焦点   

                            Dim pClt1 = New Point3dCollection()
                            Dim ppOpt = New PromptPointOptions("") With {
                                .AllowNone = True, '右键退出
                                .UseBasePoint = True,
                                .UseDashedLine = True,
                                .Message = vbLf & "右键退出 [指定第 " & js & " 点>]: "}
                            Dim ppRes As PromptPointResult = ed.GetPoint(vbLf & "指定开始点>")

                            While ppRes.Status = PromptStatus.OK
                                pClt1.Add(ppRes.Value)
                                ppOpt.BasePoint = ppRes.Value
                                ppRes = ed.GetPoint(ppOpt)
                                S &= js & " , " & js & " , " & ppRes.Value(1).ToString("0.000") & " , " & ppRes.Value(0).ToString("0.000") & " , " & ppRes.Value(2).ToString("0.000") & vbCrLf
                                js += 1
                            End While

怎样使得上面的 js 的值也跟随变

pmq

NativeMethods.SetFocus(Core.Application.DocumentManager.MdiActiveDocument.Window.Handle) 'CAD获得焦点   

                            Dim pClt1 = New Point3dCollection()

                            Dim ppRes As PromptPointResult = ed.GetPoint(vbLf & "指定开始点>")

                            While ppRes.Status = PromptStatus.OK
                                Dim ppOpt = New PromptPointOptions("") With {
                                .AllowNone = True, '右键退出
                                .UseBasePoint = True,
                                .UseDashedLine = True,
                                .Message = vbLf & "右键退出 [指定第 " & js & " 点>]: "}
                                pClt1.Add(ppRes.Value)
                                ppOpt.BasePoint = ppRes.Value
                                ppRes = ed.GetPoint(ppOpt)
                                S &= js & " , " & js & " , " & ppRes.Value(1).ToString("0.000") & " , " & ppRes.Value(0).ToString("0.000") & " , " & ppRes.Value(2).ToString("0.000") & vbCrLf
                                js += 1
                            End While