[分享]：给大家新写个“测量边界”的工具...

XDSoft

                               
登录/注册后可看大图

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    测量选择实体的边界
   
6. |;
   
7. (defun c:XGetExtend (/ ss box box1)
   
8.   (prompt "\n请选取要测量边界的实体<退出>:")
   
9.   (if (setq ss (ssget))
   
10.     (progn
    
11.       (xdrx_begin)
    
12.       (setq box (xdrx_entity_box ss)
    
13.             box (mapcar
    
14.                   '(lambda (x)
    
15.                      (trans x 1 0)
    
16.                    )
    
17.                   box
    
18.                 )
    
19.             box1 (cons 1 (cons 1 box))
    
20.       )
    
21.       (apply
    
22.         'xdrx_grdraw
    
23.         box1
    
24.       )
    
25.       (prompt (strcat "\nX=" (rtos (- (caadr box) (caar box)) 2 2) "  Y="
    
26.                       (rtos (- (cadr (nth 2 box)) (cadadr box)) 2 2)
    
27.               )
    
28.       )
    
29.       (xdrx_end)
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )
    
34. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    测量选择实体的边界<br /> |;<br /> (defun c:XGetExtend (/ ss box box1)<br />   (prompt "\n请选取要测量边界的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (xdrx_begin)<br />       (setq box (xdrx_entity_box ss)<br />             box (mapcar<br />                   '(lambda (x)<br />                      (trans x 1 0)<br />                    )<br />                   box<br />                 )<br />             box1 (cons 1 (cons 1 box))<br />       )<br />       (apply<br />         'xdrx_grdraw<br />         box1<br />       )<br />       (prompt (strcat "\nX=" (rtos (- (caadr box) (caar box)) 2 2) "  Y="<br />                       (rtos (- (cadr (nth 2 box)) (cadadr box)) 2 2)<br />               )<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]