【AcGe几何库（三十八）】求曲线的正交盒子

newer

                               
登录/注册后可看大图

1. (defun c:tt ()
   
2.   (if (and (setq e (car (xdrx_entsel
   
3.                           "\n拾取一个曲线<退出>:"
   
4.                           '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))
   
5.                         )
   
6.                    )
   
7.            )
   
8.            (setq g (xdge::constructor e))
   
9.            (setq box (xdge::getpropertyvalue g "boundblock"))
   
10.            (setq box1 (xdge::getpropertyvalue g "orthoboundblock"))
    
11.            (setq pts1 (xdge::getpropertyvalue box "getMinMaxPoints"))
    
12.            (setq pts2 (xdge::getpropertyvalue box1 "getMinMaxPoints"))
    
13.       )
    
14.     (progn (setq ln   (xdrx_line_make pts1)
    
15.                  boxs (xdrx_entity_box ln)
    
16.            )
    
17.            (xdrx_polyline_make boxs t)
    
18.            (xdrx_setpropertyvalue (entlast) "color" 2)
    
19.            (xdrx_entity_delete ln)
    
20.            (setq ln   (xdrx_line_make pts2)
    
21.                  boxs (xdrx_entity_box ln)
    
22.            )
    
23.            (xdrx_polyline_make boxs t)
    
24.            (xdrx_setpropertyvalue (entlast) "color" 1)
    
25.            (xdrx_entity_delete ln)
    
26.     )
    
27.   )
    
28.   (xdge::free g box box1)
    
29.   (princ)
    
30. )
    

(defun c:tt ()<br />   (if (and (setq e (car (xdrx_entsel<br />                           "\n拾取一个曲线<退出>:"<br />                           '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))<br />                         )<br />                    )<br />            )<br />            (setq g (xdge::constructor e))<br />            (setq box (xdge::getpropertyvalue g "boundblock"))<br />            (setq box1 (xdge::getpropertyvalue g "orthoboundblock"))<br />            (setq pts1 (xdge::getpropertyvalue box "getMinMaxPoints"))<br />            (setq pts2 (xdge::getpropertyvalue box1 "getMinMaxPoints"))<br />       )<br />     (progn (setq ln   (xdrx_line_make pts1)<br />                  boxs (xdrx_entity_box ln)<br />            )<br />            (xdrx_polyline_make boxs t)<br />            (xdrx_setpropertyvalue (entlast) "color" 2)<br />            (xdrx_entity_delete ln)<br />            (setq ln   (xdrx_line_make pts2)<br />                  boxs (xdrx_entity_box ln)<br />            )<br />            (xdrx_polyline_make boxs t)<br />            (xdrx_setpropertyvalue (entlast) "color" 1)<br />            (xdrx_entity_delete ln)<br />     )<br />   )<br />   (xdge::free g box box1)<br />   (princ)<br /> )<br />