返回选定对象的长度或周长

flyfox1047

1. (defun c:lengthOfObject (/ en curve len)
   
2.   (if (setq en (entsel))
   
3.     (progn
   
4.       (setq curve (vlax-ename->vla-object (car en)))
   
5.       (if (vl-catch-all-error-p
   
6.             (setq len (vl-catch-all-apply
   
7.                         'vlax-curve-getDistAtParam
   
8.                         (list curve
   
9.                               (vl-catch-all-apply
   
10.                                 'vlax-curve-getEndParam
    
11.                                 (list curve)
    
12.                               )
    
13.                         )
    
14.                       )
    
15.             )
    
16.           )
    
17.         nil
    
18.         len
    
19.       )
    
20.     )
    
21.   )
    
22. )

(defun c:lengthOfObject (/ en curve len)<br />   (if (setq en (entsel))<br />     (progn<br />       (setq curve (vlax-ename->vla-object (car en)))<br />       (if (vl-catch-all-error-p<br />             (setq len (vl-catch-all-apply<br />                         'vlax-curve-getDistAtParam<br />                         (list curve<br />                               (vl-catch-all-apply<br />                                 'vlax-curve-getEndParam<br />                                 (list curve)<br />                               )<br />                         )<br />                       )<br />             )<br />           )<br />         nil<br />         len<br />       )<br />     )<br />   )<br /> )

haotaer

能否批量标出建筑图的房间面积与周长 能否批量标出建筑图的房间面积与周长