如何实时动态取得CAD下光标的位置？

tcsl9621

如何实时动态取得CAD下光标的位置？

此功能有没有人知道是什么命令？（VBA，VB.net，C#，或读CAD系统参数都可以）

请知道的朋友告诉我。谢了！！！

mkhsj929

2.         private static Point3d m_MousePoint = new Point3d(0, 0, 0);//保存当前鼠标位置
3.         [CommandMethod("mtest")]
4.         public void test()
5.         {
6.             Editor m_ed = Application.DocumentManager.MdiActiveDocument.Editor;
7.             m_ed.PointFilter+=new PointFilterEventHandler(m_GetMousePoint);
8.             PromptPointOptions  m_pko = new PromptPointOptions("\n按左键退出...");
9.             PromptPointResult m_ppr = m_ed.GetPoint(m_pko);
10.             if (m_ppr.Status == PromptStatus.OK)
11.             {
12.                 m_ed.PointFilter -= new PointFilterEventHandler(m_GetMousePoint);
13.             }
14.         }
15.         //动态获取鼠标位置
16.         void m_GetMousePoint(object sender, PointFilterEventArgs e)
17.         {
18.             //throw new System.Exception("The method or operation is not implemented.");
19.             m_MousePoint = e.Context.ComputedPoint;
20.             Editor m_ed = Application.DocumentManager.MdiActiveDocument.Editor;
21.             m_ed.WriteMessage("\n当前鼠标位置:" + m_MousePoint + "\t按下鼠标左键退出...");
22.         }

        private static Point3d m_MousePoint = new Point3d(0, 0, 0);//保存当前鼠标位置         [CommandMethod("mtest")]         public void test()         {             Editor m_ed = Application.DocumentManager.MdiActiveDocument.Editor;             m_ed.PointFilter+=new PointFilterEventHandler(m_GetMousePoint);             PromptPointOptions  m_pko = new PromptPointOptions("\n按左键退出...");             PromptPointResult m_ppr = m_ed.GetPoint(m_pko);             if (m_ppr.Status == PromptStatus.OK)             {                 m_ed.PointFilter -= new PointFilterEventHandler(m_GetMousePoint);             }         }         //动态获取鼠标位置         void m_GetMousePoint(object sender, PointFilterEventArgs e)         {             //throw new System.Exception("The method or operation is not implemented.");             m_MousePoint = e.Context.ComputedPoint;             Editor m_ed = Application.DocumentManager.MdiActiveDocument.Editor;             m_ed.WriteMessage("\n当前鼠标位置:" + m_MousePoint + "\t按下鼠标左键退出...");         }

tcsl9621

或有这个函数也可以。

将屏幕点转化为CAD下的点。

VB开发CAD2007有这个函数，但我用的CAD2006没有。请问大家有没有别的函数可以实现？

如CAD2007开发用的函数：ed.pointtoworld(new point(e.x,e.y))

tcsl9621

用API函数此问题已解决。谢谢才鸟兄。

tcsl9621

Public Class ArxApi
    <System.Runtime.InteropServices.DllImport("acad.exe", CallingConvention:=CallingConvention.Cdecl, entrypoint:="?acedCoordFromPixelToWorld@@YAHHVCPoint@@QAN@Z")> _
    Public Shared Function acedCoordFromPixelToWorld(ByVal viewportNumber As Integer, ByVal pixel As System.Drawing.Point, ByRef point As Point3d) As Boolean
        '''
        '''
    End Function

    '''
    <System.Runtime.InteropServices.DllImport("acad.exe", CallingConvention:=CallingConvention.Cdecl, entrypoint:="?acedCoordFromWorldToPixel@@YAHHQBNAAVCPoint@@@Z")> _
    Public Shared Function acedCoordFromWorldToPixel(ByVal viewportNumber As Integer, ByVal worldPt As Point3d, ByRef pixel As System.Drawing.Point) As Boolean
        '''
        '''
    End Function

    '''
End Class

sailor538

屏幕点是怎么得到的?

tcsl9621

mouseup 事件中得到

18hzt

可以用吗?

scs5999

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.Geometry

Imports Autodesk.AutoCAD.EditorInput

Public Class Class1

   Private MousePoint As Point3d = New Point3d(0, 0, 0) '保存当前鼠标位置

    <CommandMethod("mtest")> _

       Public  Sub test()

        Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

        AddHandler ed.PointFilter, AddressOf GetMousePoint

        Dim pro As PromptPointOptions = New PromptPointOptions("按左键退出...")

        ed.GetPoint(pro)

        RemoveHandler ed.PointFilter, AddressOf GetMousePoint

    End Sub

    ''动态获取鼠标位置  

    Private Sub GetMousePoint(ByVal sender As Object, ByVal e As PointFilterEventArgs)

        MousePoint = e.Context.ComputedPoint

        Dim m_ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

        m_ed.WriteMessage("当前鼠标位置:  " + vbLf + "X=" + MousePoint.X.ToString + vbLf + "Y=" + MousePoint.X.ToString + vbLf + "Z=" + MousePoint.Z.ToString + vbLf)

    End Sub

End Class

tcsl9621

好样的。