evaporated 发表于 2005-7-1 10:22:00

[原创]如何取到当前屏幕的两个角点的坐标？

有的时候我们需要得到当前屏幕的两个角点坐标。而autocad中并没有直接给出相应的系统变量或者有关属性、方法，仅有存取图形界限的两个角点坐标的系统变量等等。在我的实际工作中，发现有以下两种方法可以得到当前屏幕的两个焦点坐标：


<BR>方法1： 利用ActiveViewport


ActiveViewport里面记录了中心点坐标，以及屏幕的高、宽。那么可以通过这三个数据计算出两角点坐标


Public Function Zoomac(p1() As Double, p2() As Double)                               '得到当前的显示范围坐标 p1,右上，p2，左下<BR>                       Dim ccc As AcadViewport<BR>                       Dim cpp As Variant<BR>                       Dim c, d As Double<BR>       <BR>                       ThisDrawing.ActiveSpace = acPaperSpace<BR>                       ThisDrawing.ActiveSpace = acModelSpace<BR>               <BR>                       Set ccc = ThisDrawing.ActiveViewport<BR>                       cpp = ccc.Center<BR>                       c = ccc.width<BR>                       d = ccc.Height<BR>                       p1(0) = cpp(0) + c / 2<BR>                       p1(1) = cpp(1) + d / 2<BR>                       p2(0) = cpp(0) - c / 2<BR>                       p2(1) = cpp(1) - d / 2<BR>End Function <BR>                       说明：大家一定注意到程序中有                       <BR>                                                                       ThisDrawing.ActiveSpace = acPaperSpace<BR>                                                                       ThisDrawing.ActiveSpace = acModelSpace<BR>                       这样一段。这是因为我在多次调试中发现的一个奇怪现象：在Autocad2004下，有的时候ActiveViewport并没有及时随着你的缩放而同步刷新。当你将屏幕缩放为另一个大小时，ActiveViewport里面仍然记录的是上一次的中心点和长宽等数据。这个现象我也是百思不得其解。这两句程序就是利用切换活动空间的办法，强制让ActiveViewport刷新一次。<BR>                       不知道这个算不算一个Bug？还请各位多多分析、指导。当然，如果去掉这两句，程序在大多数情况下，或者在大多数人的电脑上肯定还是正确的。


<BR>方法2：利用系统变量


                       鉴于方法1中为了保险，额外增添的那两句有点鸡肋，况且在处理比较大的图纸时严重影响了运行速度。因此上网查了一些资料，在借鉴了晓东空间的版主efan2000的一篇文章后，找到了以下的方法。


                                               在此对efan2000致以诚挚的谢意！原文题目为“实现CAD的翻页（屏）功能 ”，链接为<BR>                                               <A href="http://www.xdcad.net/forum/showthread.php?s=&amp;postid=835741#post835741" target="_blank" >http://www.xdcad.net/forum/showthread.php?s=&amp;postid=835741#post835741</A>


                                               方法主要是利用VIEWCTR，VIEWSIZE，SCREENSIZE三个系统变量。在efan2000的文章中有详细介绍。此处不再详述。VIEWCTR给出了当前屏幕中心点坐标，VIEWSIZE给出了屏幕的高度，屏幕的宽度则可以通过SCREENSIZE得到宽高比，再通过VIEWSIZE换算得到。<BR>                                               有了中心点坐标和屏幕宽、高，计算方法就如同“方法1”一样了。


Sub Test()<BR>                       Dim iPt As Variant<BR>                       Dim h As Double<BR>                       Dim wh As Variant<BR>                       Dim w As Double<BR>                       Dim minPt(0 To 2) As Double<BR>                       Dim maxPt(0 To 2) As Double<BR>                       <BR>                       On Error GoTo ErrTrap<BR>                       iPt = ThisDrawing.GetVariable("VIEWCTR")<BR>                       h = ThisDrawing.GetVariable("VIEWSIZE")<BR>                       wh = ThisDrawing.GetVariable("SCREENSIZE")<BR>                       w = wh(0) / wh(1) * h<BR>                       minPt(0) = iPt(0) - w / 2: minPt(1) = iPt(1) - h / 2: minPt(2) = 0<BR>                       maxPt(0) = iPt(0) + w / 2: maxPt(1) = iPt(1) + h / 2: maxPt(2) = 0<BR>                       Exit Sub<BR>                       <BR>ErrTrap:<BR>                       On Error GoTo 0<BR>End Sub



菜鸟初发文，还望各位多多指正！


<BR>

hhc 发表于 2005-7-14 14:16:00

楼上的，你说的那个所谓“bug”不是问题，我在《AutoCAD LISP/vLISP函数库查询辞典》里（587页）看到这样的说明：“对目前作用中视口进行的改变，要在视口重设为当前视口后才能看到。要重设作用中的视口，只要调用这个属性同时使用更新的视口对象即可。”

evaporated 发表于 2005-10-30 10:01:00

<P>多谢啦！</P>
<P>看来以后不用切换图纸空间了！</P>
<P>&nbsp;</P>

zhuxuhong 发表于 2005-10-30 14:58:00

<P>谢谢楼主，这两天正想找这程序呢</P>
页: [1]
查看完整版本: [原创]如何取到当前屏幕的两个角点的坐标？