如何在拖放操中取得鼠标松开时在CAD下的座标？

tcsl9621

如标题所示。

样例（第六课，可停靠对话框。）上也是后来再输入了一个点。我感觉这是个画蛇添足的做法。要是能取得这个点就好了。我的VB。NET较菜望各位不吝赐教。

tcsl9621

我想了想，此问题可简化为只需取出当时鼠档在CAD中的位置座标（即CAD窗口左下角的实时动态座标值）。此方法有没有人知道是什么命令。

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

tcsl9621

解决了。呵……

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

 

源程序