(XD::Geom:getPolyBox)从点、点表、非封闭的曲线实体得到偏移后的多边形点表

Lispboy

1. (defun XD::Geom:getPolyBox (e offset / box el pts1 pts2)
   
2.   (if (and
   
3.         (= 'ENAME (type e))
   
4.         (not (xdrx_curve_isclosed e))
   
5.       )
   
6.     (progn
   
7.       (setq e (xdrx_getsamplept e))
   
8.     )
   
9.   )
   
10.   (if (= (type e) 'LIST)
    
11.     (if (> (length e) 1)
    
12.       (progn
    
13.         (setq e (cons (polar (car e) (angle (car e) (cadr e)) (- offset))
    
14.                       (cdr e)
    
15.                 )
    
16.               e (append
    
17.                   (xd::list:removeTail e)
    
18.                   (list (polar (last e) (angle (nth (- (length e) 2) e)
    
19.                                                (last e)
    
20.                                         ) offset
    
21.                         )
    
22.                   )
    
23.                 )
    
24.               pts1 (apply
    
25.                      'xdrx_points_offset
    
26.                      (cons offset e)
    
27.                    )
    
28.               pts2 (apply
    
29.                      'xdrx_points_offset
    
30.                      (cons (- offset) e)
    
31.                    )
    
32.         )
    
33.         (append
    
34.           pts2
    
35.           (reverse pts1)
    
36.         )
    
37.       )
    
38.       (progn
    
39.         (setq el (xdrx_circle_make (car e) (abs offset))
    
40.               box (XD::Pnts:ElementZero (xdrx_entity_box el) 1e-3)
    
41.         )
    
42.         (xdrx_entity_delete el)
    
43.         box
    
44.       )
    
45.     )
    
46.   )
    
47. )

(defun XD::Geom:getPolyBox (e offset / box el pts1 pts2)<br />   (if (and<br />         (= 'ENAME (type e))<br />         (not (xdrx_curve_isclosed e))<br />       )<br />     (progn<br />       (setq e (xdrx_getsamplept e))<br />     )<br />   )<br />   (if (= (type e) 'LIST)<br />     (if (> (length e) 1)<br />       (progn<br />         (setq e (cons (polar (car e) (angle (car e) (cadr e)) (- offset))<br />                       (cdr e)<br />                 )<br />               e (append<br />                   (xd::list:removeTail e)<br />                   (list (polar (last e) (angle (nth (- (length e) 2) e)<br />                                                (last e)<br />                                         ) offset<br />                         )<br />                   )<br />                 )<br />               pts1 (apply<br />                      'xdrx_points_offset<br />                      (cons offset e)<br />                    )<br />               pts2 (apply<br />                      'xdrx_points_offset<br />                      (cons (- offset) e)<br />                    )<br />         )<br />         (append<br />           pts2<br />           (reverse pts1)<br />         )<br />       )<br />       (progn<br />         (setq el (xdrx_circle_make (car e) (abs offset))<br />               box (XD::Pnts:ElementZero (xdrx_entity_box el) 1e-3)<br />         )<br />         (xdrx_entity_delete el)<br />         box<br />       )<br />     )<br />   )<br /> )