[求助]：如何获取绘图区的左上角、右下角的坐标

doswin

如何获取绘图区的左上角、右下角的坐标

zhang8755

系统变量
viewcrt 屏幕中央的坐标
viewsize  屏幕的高度
screensize  屏幕的像素 ，可以用来计算高宽比

ttthhh_hb

2. 
   
3. ;;求屏幕两对角点
   
4. (defun yad_viewpt(/ a b c d x)
   
5.   (setq b (getvar "viewsize")
   
6.         c (car (getvar "screensize"))
   
7.         d (cadr (getvar "screensize"))
   
8.         a (* b (/ c d))
   
9.         x (trans (getvar "viewctr") 1 2)
   
10.         c (trans (list (- (car x)  (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0) 2 1)
    
11.         d (trans (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0) 2 1)
    
12.   )
    
13.   (list c d)
    
14. )
    

<br /> ;;求屏幕两对角点<br /> (defun yad_viewpt(/ a b c d x)<br />   (setq b (getvar "viewsize")<br />         c (car (getvar "screensize"))<br />         d (cadr (getvar "screensize"))<br />         a (* b (/ c d))<br />         x (trans (getvar "viewctr") 1 2)<br />         c (trans (list (- (car x)  (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0) 2 1)<br />         d (trans (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0) 2 1)<br />   )<br />   (list c d)<br /> )<br />

大雪无痕

ID就可以满足楼上兄弟的要求

jcmtxgt

请问各位大虾,如何获取绘图区中全部图形的长和宽呢?不要用di命令的(因为还要用到鼠标选取),
直接;输入lisp命令,就可以求出绘图区中全部图形占用的长度和宽度?,

qjcpj

个人觉得使用系统变量extmax和extmin也能达到楼主的要求。

Underway

;; 综合
;; 求屏幕两对角点

;; 个人觉得使用系统变量extmax和extmin也能达到楼主的要求。

(setq  ss (apply 'ssget (cons "C" (yad_viewpt))))
(command "erase" "All" "r" ss "")
(command "Zoom" "E")
(setq ptll (getvar "ExtMin"))     ; 左下
(setq ptur (getvar "ExtMax"))     ; 右上
(command "u")
(command "u")