[讨论]如何快速获得当前所有图元的左下角和右上角

spring

晕,那你自己早点用 vba 写个不就得了


何必绕这么大的一个圈

雪山飞狐_lzh

是呀，我是想找一个尽量快一点的办法

mccad

可能是更快的方法：
先把图形进行范围缩放，这样所有的图形都充满在图形中，然后使用窗口选的方法选择最上面的图形求其范围，再窗口选的方法选择最下面的图形求其范围，就这样再求最左边和最右边的对象的范围，最后就可以得到最大的范围。
这样如果图形中对象非常多的话，则会快很多，因为中间的图形没有进行计算。

雪山飞狐_lzh

要用窗口选的办法选择四个方向的对象才行吧


明总，窗口选的办法如何实现？

mccad

目前发现一种最快的方法了： EXTMAX 系统变量 存储图形范围右上角点的值。
EXTMIN 系统变量 存储图形范围左下角点的值。

如果有新的对象绘制到界限之外，则仅当使用ZOOM 命令的“全部”或“范围”选项时，对象才会收缩至新范围内。本系统变量的值表示为当前空间中的世界坐标值。 经过试验，这两个变量储存着就是实际的图形范围。

spring

根据明总的思路写的 (defun c:hh()
(command "zoom" "e")
(command "_.UCS" "V")
(setq CTR (getvar "VIEWCTR"))
(setq SIZE (getvar "VIEWSIZE"))
(setq SCREEN (getvar "SCREENSIZE"))
(setq SCALE (/ (car SCREEN) (cadr SCREEN)))
(setq XSIZE (* SCALE SIZE))
(setq RT (list (+ (car CTR) (/ XSIZE 2)) (+ (cadr CTR) (/ SIZE 2))))
(setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ SIZE 2))))
(command "_.RECTANGLE" RT LB)
(command "_.UCS" "P")
(princ)
) ;;;以前王晓光斑竹写的

雪山飞狐_lzh

多谢各位鼎力襄助

spring

mccad发表于2004-5-6 21:16:00目前发现一种最快的方法了： EXTMAX 系统变量 存储图形范围右上角点的值。EXTMIN 系统变量 存储图形范围左下角点的值。如果有新的对象绘制到界...

还不是实际的图形范围,有点误差.而显是选择全部图形的.

雪山飞狐_lzh

VBA的办法 Public Sub test1()
ThisDrawing.Application.ZoomExtents
pmax = ThisDrawing.GetVariable("EXTMAX")
pmin = ThisDrawing.GetVariable("EXTMIN")
ThisDrawing.SendCommand "_.RECTANG " & pmin(0) & "," & pmin(1) & vbCr & pmax(0) & "," & pmax(1) & vbCr
ThisDrawing.Application.ZoomPrevious
End Sub
不过屏幕会有闪动,效果不是很好

龙龙仔

mccad发表于2004-5-6 20:51:00可能是更快的方法：先把图形进行范围缩放，这样所有的图形都充满在图形中，然后使用窗口选的方法选择最上面的图形求其范围，再窗口选的方法选择最下面的图形...

關閉圖層的物件也會在zoom的範圍,你這方法的bug