社区 › AutoCAD.net/VB.net/C# 编程技术 › 连续拾取点（提示点序号） 已解决

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

查看完整版本: 连续拾取点（提示点序号） 已解决