【矩形】中心矩形

marting

1. (defun c:xdtb_rectcen (/ box)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getdouble "\n矩形长" "#xd-var-global-length" 10.0)
   
4.   (xd::doc:getdouble "\n矩形宽" "#xd-var-global-width" 10.0)
   
5.   (xdrx-sysvar-push '("osmode" 545))
   
6.   (setq        box (xdrx_points->offsetbox
   
7.               '(0 0 0)
   
8.               (list #xd-var-global-length 0.0 0.0)
   
9.               (/ #xd-var-global-width 2.0)
   
10.               (/ #xd-var-global-width 2.0)
    
11.               0.0
    
12.               0.0
    
13.             )
    
14.   )
    
15.   (xdrx-polyline-make box t)
    
16.   (while (xd::drag:move "\n插入点" (entlast) 5 7)
    
17.     (xdrx-entity-copy (entlast))
    
18.   )
    
19.   (xdrx-entity-delete (entlast))
    
20.   (xdrx-end)
    
21.   (princ)
    
22. )
    
23. 
    

(defun c:xdtb_rectcen (/ box)<br />   (xdrx-begin)<br />   (xd::doc:getdouble "\n矩形长" "#xd-var-global-length" 10.0)<br />   (xd::doc:getdouble "\n矩形宽" "#xd-var-global-width" 10.0)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (setq        box (xdrx_points->offsetbox<br />               '(0 0 0)<br />               (list #xd-var-global-length 0.0 0.0)<br />               (/ #xd-var-global-width 2.0)<br />               (/ #xd-var-global-width 2.0)<br />               0.0<br />               0.0<br />             )<br />   )<br />   (xdrx-polyline-make box t)<br />   (while (xd::drag:move "\n插入点" (entlast) 5 7)<br />     (xdrx-entity-copy (entlast))<br />   )<br />   (xdrx-entity-delete (entlast))<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />