获得绘图屏幕四个角点坐标（2D）

XDSoft

1. ;|
   
2.    获得绘图屏幕四个交点坐标（2D）
   
3. |;
   
4. (defun XD::DOC:GetView4Pnt ( / h h1 h2 l l1 pt1 pt2 pt3 pt4 vm1 vm2 vt)
   
5.   (setq h2 (getvar "viewsize")
   
6.         vt (trans (getvar "viewctr") 1 0)
   
7.         vm1 (trans (getvar "vsmin") 1 0)
   
8.         vm2 (trans (getvar "vsmax") 1 0)
   
9.         l1 (mapcar '- vm2 vm1)
   
10.         h1 (cadr l1)
    
11.         l1 (car l1)
    
12.         l (* (/ l1 h1) h2)
    
13.         l (/ l 2.0)
    
14.         h (/ h2 2.0)
    
15.         pt1 (mapcar '- vt (list l h))
    
16.         pt2 (mapcar '+ vt (list l (- h)))
    
17.         pt3 (mapcar '+ vt (list l h))
    
18.         pt4 (mapcar '+ vt (list (- l) h))
    
19.   )
    
20.   (mapcar '(lambda(x)(trans x 0 1))(list pt1 pt2 pt3 pt4))
    
21. )
    

;|<br />    获得绘图屏幕四个交点坐标（2D）<br /> |;<br /> (defun XD::DOC:GetView4Pnt ( / h h1 h2 l l1 pt1 pt2 pt3 pt4 vm1 vm2 vt)<br />   (setq h2 (getvar "viewsize")<br />         vt (trans (getvar "viewctr") 1 0)<br />         vm1 (trans (getvar "vsmin") 1 0)<br />         vm2 (trans (getvar "vsmax") 1 0)<br />         l1 (mapcar '- vm2 vm1)<br />         h1 (cadr l1)<br />         l1 (car l1)<br />         l (* (/ l1 h1) h2)<br />         l (/ l 2.0)<br />         h (/ h2 2.0)<br />         pt1 (mapcar '- vt (list l h))<br />         pt2 (mapcar '+ vt (list l (- h)))<br />         pt3 (mapcar '+ vt (list l h))<br />         pt4 (mapcar '+ vt (list (- l) h))<br />   )<br />   (mapcar '(lambda(x)(trans x 0 1))(list pt1 pt2 pt3 pt4))<br /> )<br />

xtdwynij

木人？我来坐一下！

sicky111

谢谢晓东大哥，这个函数对我很有用，经常会用到。

q3_2006

是吗，什么情况下会用？初学，想不太明白！

dbqtju

留下，有空学习学习

czcxxx_01

谢谢晓东大哥，这个函数对我很有用，经常会用到。