如何获得图纸空间中与视口相对应模型空间中的位置

jiapeng2008

各位大虾好：

       遇到一个问题。

       模型空间里有一个路线的平面图，我做了很多标记，主要是文字。因为在模型空间里的文字都是一个方向。而打印是在图纸空间打印，而每个布局里的视口的方向因为路线曲折因素而不同。我想在每个图纸空间里的视口里修改在其中的文本的角度属性。主要问题是：某个布局里的视口多边形如何映射到模型空间的对应位置。如果这个问题可以解决，那么我可以据此建立多边形对应的选择集，统一修改就行了。我怎么做呢？

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
这个程序可以实现反图纸中的视口最大点和最小点找出对应模型窗口，你改下就可以直接用了。

jiapeng2008

是。Psdcs 转到DCS，然后再转到WCS。里坐标就和模型空间里相同了。