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

pmq · 发表于 2023-6-28 08:44:50

本帖最后由 pmq 于 2023-6-28 08:53 编辑

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 · 发表于 2023-6-28 08:53:02

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

账号		自动登录	找回密码
密码			注册

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

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