vla-zoomwindow

Free-Lancer

1. (defun fy:zoomw        (p1 p2)
   
2.   (vla-zoomwindow
   
3.     (vlax-get-acad-object)
   
4.     (vlax-3d-point p1)
   
5.     (vlax-3d-point p2)
   
6.   )
   
7.   t
   
8. )
   
9. (defun fy:zoomp        ()
   
10.   (vl-catch-all-apply
    
11.     'vla-ZoomPrevious
    
12.     (list (vlax-get-acad-object))
    
13.   )
    
14.   t
    
15. )
    
16. (defun fy:Pixeltodrawing ()
    
17.   (/ (getvar "viewsize") (cadr (getvar "screensize")))
    
18. )
    
19. (defun fy:screenbox (/ n pc v)
    
20.   (setq        n  (fy:Pixeltodrawing)
    
21.         pc (getvar "viewctr")
    
22.         v  (mapcar '(lambda (x) (* x n 0.5)) (getvar "screensize"))
    
23.   )
    
24.   (list        (list (- (car pc) (car v)) (- (cadr pc) (cadr v)))
    
25.         (list (+ (car pc) (car v)) (- (cadr pc) (cadr v)))
    
26.         (list (+ (car pc) (car v)) (+ (cadr pc) (cadr v)))
    
27.         (list (- (car pc) (car v)) (+ (cadr pc) (cadr v)))
    
28.   )
    
29. )
    
30. 
    
31. (defun fy:isPtOutScreen        (pts / box minx miny maxx maxy)
    
32.   (setq        box  (fy:screenbox)
    
33.         minx (caar box)
    
34.         miny (cadar box)
    
35.         maxx (caadr box)
    
36.         maxy (cadr (last box))
    
37.   )
    
38.   (vl-some '(lambda (x)
    
39.                (or (< (car x) minx)
    
40.                    (> (car x) maxx)
    
41.                    (< (cadr x) miny)
    
42.                    (> (cadr x) maxy)
    
43.                )
    
44.              )
    
45.             pts
    
46.   )
    
47. )

(defun fy:zoomw        (p1 p2)<br />   (vla-zoomwindow<br />     (vlax-get-acad-object)<br />     (vlax-3d-point p1)<br />     (vlax-3d-point p2)<br />   )<br />   t<br /> )<br /> (defun fy:zoomp        ()<br />   (vl-catch-all-apply<br />     'vla-ZoomPrevious<br />     (list (vlax-get-acad-object))<br />   )<br />   t<br /> )<br /> (defun fy:Pixeltodrawing ()<br />   (/ (getvar "viewsize") (cadr (getvar "screensize")))<br /> )<br /> (defun fy:screenbox (/ n pc v)<br />   (setq        n  (fy:Pixeltodrawing)<br />         pc (getvar "viewctr")<br />         v  (mapcar '(lambda (x) (* x n 0.5)) (getvar "screensize"))<br />   )<br />   (list        (list (- (car pc) (car v)) (- (cadr pc) (cadr v)))<br />         (list (+ (car pc) (car v)) (- (cadr pc) (cadr v)))<br />         (list (+ (car pc) (car v)) (+ (cadr pc) (cadr v)))<br />         (list (- (car pc) (car v)) (+ (cadr pc) (cadr v)))<br />   )<br /> )<br /> <br /> (defun fy:isPtOutScreen        (pts / box minx miny maxx maxy)<br />   (setq        box  (fy:screenbox)<br />         minx (caar box)<br />         miny (cadar box)<br />         maxx (caadr box)<br />         maxy (cadr (last box))<br />   )<br />   (vl-some '(lambda (x)<br />                (or (< (car x) minx)<br />                    (> (car x) maxx)<br />                    (< (cadr x) miny)<br />                    (> (cadr x) maxy)<br />                )<br />              )<br />             pts<br />   )<br /> )

ynhh

这是用来做什么的啊

lucas3

长老，重出江湖啊，最好写个实例出来，哈哈

csharp

在用 ssget 点或点表选择时判断点是否在屏幕内，有点不在时用zoomw

screenbox只适合坐标轴和屏幕平行而且是当前UCS