[求助]点坐标转换

hzh2000

其实就是在图纸空间的一个视口上（非激活进入）点选一点，如何得到这点在模型空间WCS真实坐标？

trans函数看的不明白，不知道后面的参数应该是几？

fjfhgdwfn

Public Sub VPCoords(vp As AcadPViewport, LL, ur)

    Dim min, max, oldMode As Boolean
   
    vp.GetBoundingBox min, max
    oldMode = ThisDrawing.MSpace
    ThisDrawing.MSpace = True
    LL = ThisDrawing.Utility.TranslateCoordinates(min, acPaperSpaceDCS, acDisplayDCS, False)
    ur = ThisDrawing.Utility.TranslateCoordinates(max, acPaperSpaceDCS, acDisplayDCS, False)
    ThisDrawing.MSpace = oldMode
   
End Sub

请参照这个