[求助]：怎么得到图形范围

fengjianwei

如题
也就是所有对象的边界范围

taner

最初由 fengjianwei 发布
[B]如题
也就是所有对象的边界范围 [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;不知道可不可以
   
5. (defun c:ze ()
   
6.   (graphscr)
   
7.   (setq exmin (getvar "extmin"))
   
8.   (setq exmax (getvar "extmax"))
   
9.   (command "zoom" "w" exmin exmax)
   
10.   (princ)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;不知道可不可以<br /> (defun c:ze ()<br />   (graphscr)<br />   (setq exmin (getvar "extmin"))<br />   (setq exmax (getvar "extmax"))<br />   (command "zoom" "w" exmin exmax)<br />   (princ)<br /> )<br />   [/FONT]<br />

carrot1983

xyp1964大师的通用函数库里就有了：
[php]
;;;图中所有对象在窗口中央逐一显示（按任意键显示下一对象）
(defun c:test ()
  (CMDLA0)
  (setvar "osmode" 0)
  (command "select" "all" "")
  (setq        ss (ssget "P")
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-get-MinMaxPoint s1 1)
          pt9 (xyp-get-MinMaxPoint s1 9)
    )
    (command "zoom" "w" pt1 pt9)
    (princ "\n按任意键显示下一对象，ESC退出! ")
    (setq ukw t)
    (while ukw
      (setq MOTION (grread t 15 0)
            CODE   (car MOTION)
      )
      (if (or (= code 2)
              (= code 3)
              (= code 25)
          )
        (setq ukw nil)
      )
    )
  )
  (CMDLA1)
)

[/php]
如果不是这个。那就是楼上所说的。

TLHMQH

我的理解：不是编程。
打开所有图层，"zoom" "e"，即可。

fengjianwei

2楼的是我想要的 谢谢