[编程申请]：再议获得屏幕角点坐标的问题

小菜

如果当前十字光标与屏幕不呈水平状态，如何得到屏幕四个角点的坐标呢？用XDRX不能得到正确结果，请高手介绍一下思路，程序我自己写就行了

lijiao

变量viewctr是用户坐标系下的屏幕中心位置
变量viewsize是屏幕坐标系屏幕高度
变量screensize是屏幕的长和宽（单位为像素）
根据这些，完全可以算出屏幕四个角点的坐标。

小菜

这些我是知道的，而且如果屏幕十字光标是水平的，是很容易算的，但如果设置了当前UCS，而且十字光标不水平，仅有这些数据是不够的，不信你试试XDRX里面的获得屏幕角点的函数，结果是错误的

lijiao

这些数据是足够的，你看一下这个，或许会有些启发。
http://www.xdcad.net/forum/showthread.php?s=&threadid=53730

小菜

是下面这段程序吗？
不好意思，我不怎么看得懂这个VBA程序
能讲讲用lisp的思路吗？

Public WithEvents InputMgr As AcadXInputManager


Public Sub AcadStartup()
    If InputMgr Is Nothing Then
        Set InputMgr = New AcadXInputManager
    End If
    InputMgr.InputPointEventsEnabled = True

End Sub


Private Sub InputMgr_InputPointEvent(Document As AutoCAD.AcadDocument, RawPoint As Variant, ComputedPoint As Variant, ByVal History As Long)

    Dim Vctr As Variant
    Dim Vbl As Variant
    Dim Vsize As Double
    Dim Vchang As Double
    Dim Mypro As String
    Dim RawPoint1 As Variant
    RawPoint1 = ThisDrawing.Utility.TranslateCoordinates(RawPoint, acWorld, acDisplayDCS, False)
    Vctr = ThisDrawing.Utility.TranslateCoordinates(ThisDrawing.GetVariable("viewctr"), acUCS, acDisplayDCS, False)
    Vsize = ThisDrawing.GetVariable("viewsize")
    Vbl = ThisDrawing.GetVariable("screensize")
    Vchang = Vbl(0) * Vsize / Vbl(1)
    Vsize = Vsize * 0.4
    Vchang = Vchang * 0.4
   
    If Abs(RawPoint1(0) - Vctr(0)) > Vchang Or Abs(RawPoint1(1) - Vctr(1)) > Vsize Then
       ThisDrawing.Application.ZoomCenter Mypoint(ThisDrawing.Utility.TranslateCoordinates(Vctr, acDisplayDCS, acWorld, False), RawPoint), ThisDrawing.GetVariable("viewsize")
      
    End If

End Sub

ll_j

我没有研究过这个问题，不过坐标系转换应该使用trans函数，如果需要计算，还有几个系统变量有影响，就是ucsorg、ucsxdir、ucsydir。

小菜

这几个变量我研究过，找不到什么办法(我的水平有限)
要不讲晓东帮忙？他的函数也不正确。

aeo

lijiao  的方法,应该可以

小菜

lijiao的那个程序我不懂，能否介绍一下用lisp怎么实现呢？

lijiao

这是帮助文件

lijiao

2

lijiao

这是一个例子

LUCAS

查看
http://www.mjtd.com/bbs/dispbbs. ... ID=26501&skin=1

小菜

通过坐标变换好象不能解决问题，不管怎么变，在通过屏幕中心点计算角点的时候，没办法确定角度，所以要知道当前十字光标相对于屏幕的旋转角才行。

小菜

通过坐标变换好象不能解决问题，不管怎么变，在通过屏幕中心点计算角点的时候，没办法确定角度，所以要知道当前十字光标相对于屏幕的旋转角才行。