[VBA函数]：没弄明白请教选择集问题

liuchang.555

怎样选择当前屏幕显示的实体

evaporated

你可以经过计算，得到当前屏幕的角点 。
然后用 acSelectionSetWindow

liuchang.555

谢谢evaporated 的帮助.可是怎样计算角点呢?

雪山飞狐(lzh)

EXTMIN和EXTMAX系统变量

liuchang.555

谢谢斑竹在下感激不尽！

evaporated

当前屏幕角点这样算偶觉得是不对的。
这样算出的是图形界限的两个角点。
偶的算法是：
Public Function Zoomac(p1() As Double, p2() As Double)     '得到当前的显示范围坐标 p1,右上，p2，左下
    Dim ccc As AcadViewport
    Dim cpp As Variant
    Dim c, d As Double
    Set ccc = ThisDrawing.ActiveViewport
    cpp = ccc.Center
    c = ccc.width
    d = ccc.Height
    p1(0) = cpp(0) + c / 2
    p1(1) = cpp(1) + d / 2
    p2(0) = cpp(0) - c / 2
    p2(1) = cpp(1) - d / 2
  '  ThisDrawing.Application.ZoomWindow p2, p1
End Function

这个函数经测试可用。

liuchang.555

evaporated 的8错,我的问题解决了,谢谢各位的帮助!