绘制Region

iLisp

2. 
   
3. (defun c:tt (/ cutz ms thisdrawing)
   
4.   (defun cutz (p)
   
5.     (list (car p) (cadr p))
   
6.   )
   
7.   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))
   
8.         ms            (vla-get-modelspace thisdrawing)
   
9.   )
   
10.   (vla-startundomark thisdrawing)
    
11.   (vl-catch-all-apply
    
12.     '(lambda (/ p1 p2 p3 p4 v Regions Region pl)
    
13.        (while (and (setq p1 (getpoint "\nFirst Corner: "))
    
14.                    (setq p3 (getcorner p1 "\nOther Corner: "))
    
15.               )
    
16.          (setq p1 (cutz p1)
    
17.                p3 (cutz p3)
    
18.                v  (mapcar '- p3 p1)
    
19.                p2 (mapcar '+ p1 (list (car v) 0.))
    
20.                p4 (mapcar '+ p1 (list 0. (cadr v)))
    
21.          )
    
22.          (setq
    
23.            pl (vlax-invoke
    
24.                 ms
    
25.                 'AddLightweightPolyline
    
26.                 (append p1 p2 p3 p4)
    
27.               )
    
28.          )
    
29.          (vla-put-closed pl :vlax-true)
    
30.          (if regionS
    
31.            (progn
    
32.              (setq region (vlax-invoke ms 'addregion (list pl)))
    
33.              (vla-Boolean (car regionS) acUnion (car region))
    
34.            )
    
35.            (setq regionS (vlax-invoke ms 'addregion (list pl)))
    
36.          )
    
37.          (vla-delete pl)
    
38.        )
    
39.      )
    
40.     nil
    
41.   )
    
42.   (vla-endundomark thisdrawing)
    
43.   (princ)
    
44. )

<br /> (defun c:tt (/ cutz ms thisdrawing)<br />   (defun cutz (p)<br />     (list (car p) (cadr p))<br />   )<br />   (setq        thisdrawing (vla-get-activedocument (vlax-get-acad-object))<br />         ms            (vla-get-modelspace thisdrawing)<br />   )<br />   (vla-startundomark thisdrawing)<br />   (vl-catch-all-apply<br />     '(lambda (/ p1 p2 p3 p4 v Regions Region pl)<br />        (while (and (setq p1 (getpoint "\nFirst Corner: "))<br />                    (setq p3 (getcorner p1 "\nOther Corner: "))<br />               )<br />          (setq p1 (cutz p1)<br />                p3 (cutz p3)<br />                v  (mapcar '- p3 p1)<br />                p2 (mapcar '+ p1 (list (car v) 0.))<br />                p4 (mapcar '+ p1 (list 0. (cadr v)))<br />          )<br />          (setq<br />            pl (vlax-invoke<br />                 ms<br />                 'AddLightweightPolyline<br />                 (append p1 p2 p3 p4)<br />               )<br />          )<br />          (vla-put-closed pl :vlax-true)<br />          (if regionS<br />            (progn<br />              (setq region (vlax-invoke ms 'addregion (list pl)))<br />              (vla-Boolean (car regionS) acUnion (car region))<br />            )<br />            (setq regionS (vlax-invoke ms 'addregion (list pl)))<br />          )<br />          (vla-delete pl)<br />        )<br />      )<br />     nil<br />   )<br />   (vla-endundomark thisdrawing)<br />   (princ)<br /> )

xvjiex

感谢分享 绘制Region