[求助]关于视口的问题

bluelover · 发表于 2004-6-18 20:40:00

请问怎么获得图纸空间某个视口中显示的图线在模型空间的具体范围？

bluelover · 发表于 2004-6-19 21:50:00

我试了一下，PViewport的center属性是它在图纸空间的坐标，而不是在模型空间的坐标。它的width和height属性也是乘以一个比例因子以后的值。
请问如何得到当前活动的视口所显示的图线在模型空间对应的范围？
希望高手指教，谢谢

bluelover · 发表于 2004-6-21 08:37:00

PViewport被激活到MSpace以后，视图的中心点在AutoCAD中是可以读取的，在VBA中应该怎么做。
有没有哪位大侠写过类似的程序啊？

bluelover · 发表于 2004-6-21 11:43:00

我知道怎么做了

andrea2004 · 发表于 2005-6-2 10:49:00

楼上的知道怎么做了，能不能说一下，偶也正碰到这个问题，谢谢了

bluelover · 发表于 2005-6-2 11:36:00

下面的代码你可以参考一下：
     Dim DOC1 As AcadDocument 'the source dwg file
   Dim xdataOut As Variant 'extends data of a pviewport
   Dim xtypeOut As Variant 'extends data type
   DOC1.MSpace = True
   DOC1.ActivePViewport.GetXData "", xtypeOut, xdataOut 'get extends data

   h = xdataOut(7)'高度，至于范围的宽度你可以根据视口宽度和缩放比例计算出来

   If IsV04 Then'pntc就是范围的中心点坐标，isv04是我自定义的布尔类型的变量
根据我的测试，中心点在04版本和04以前的版本中，它在扩展数据中的保存位置不一样
   pntc(0) = xdataOut(8): pntc(1) = xdataOut(9): pntc(2) = 0 'used in 2004 version
   Else
   pntc(0) = xdataOut(4)(0): pntc(1) = xdataOut(4)(1): pntc(2) = 0 'used in the early version
   End If
这个方法是我自己摸索出来的，希望对你有所帮助，但我不确定是否有更好的办法。

[求助]关于视口的问题

发表回复

精选推荐