[LISP函数]：获取实体的中点.

taner

;;;获取实体的中点.
[PHP](defun GetMiddlePoint ( ename / oname param CurveLen MidPt )
(setq
        oname    (vlax-ename->vla-object ename)
        param    (vlax-curve-getEndParam oname)                                                ; End parameter
        CurveLen (vlax-curve-getDistAtParam oname param)
        param    (vlax-curve-getParamAtDist oname (* 0.5 CurveLen))
        MidPt    (vlax-curve-getPointAtParam oname param)
)
(vlax-release-object oname)
MidPt
)[/PHP]

Tong

2. 
   
3. ;|
   
4. (defun cmidp (ent)
   
5.   (vlax-curve-getpointatparam
   
6.     ent
   
7.     (/ (vlax-curve-getendparam ent) 2.)
   
8.   )
   
9. )
   
10. |;
    
11. (defun xdl-curve-midp (ent / p)
    
12.   (if (not (vl-catch-all-error-p
    
13.              (setq p (vl-catch-all-apply
    
14.                        'vlax-curve-getpointatparam
    
15.                        (list
    
16.                          ent
    
17.                          (vl-catch-all-apply
    
18.                            '/
    
19.                            (list (vl-catch-all-apply
    
20.                                    'vlax-curve-getendparam
    
21.                                    (list ent)
    
22.                                  )
    
23.                                  2.
    
24.                            )
    
25.                          )
    
26.                        )
    
27.                      )
    
28.              )
    
29.            )
    
30.       )
    
31.     p
    
32.   )
    
33.   p
    
34. )

<br /> ;|<br /> (defun cmidp (ent)<br />   (vlax-curve-getpointatparam<br />     ent<br />     (/ (vlax-curve-getendparam ent) 2.)<br />   )<br /> )<br /> |;<br /> (defun xdl-curve-midp (ent / p)<br />   (if (not (vl-catch-all-error-p<br />              (setq p (vl-catch-all-apply<br />                        'vlax-curve-getpointatparam<br />                        (list<br />                          ent<br />                          (vl-catch-all-apply<br />                            '/<br />                            (list (vl-catch-all-apply<br />                                    'vlax-curve-getendparam<br />                                    (list ent)<br />                                  )<br />                                  2.<br />                            )<br />                          )<br />                        )<br />                      )<br />              )<br />            )<br />       )<br />     p<br />   )<br />   p<br /> )