求圆弧的中点，怎么求？

75215195

(setq ent (entget (car (entsel))))
            (setq pc (cdr (assoc 10 ent)) ;圆心
                     r  (cdr (assoc 40 ent)) ;半径
                     a0 (cdr (assoc 50 ent));起点方向
                     a1 (cdr (assoc 51 ent));终点方向
                     ps (polar pc a0 r);起点
                     pe (polar pc a1 r);止点
                     pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))      ;如图键槽，当pd和pc圆心重合时，就求不出中点了。
                     pm (polar pc (angle pc pd) r));中点

Lisphk

下面代码，在弧线的圆心和中点连线。

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel "\n选取弧线:")))
   
3.     (progn (setq o          (vlax-ename->vla-object e)
   
4.                  cen          (vla-get-center o)
   
5.                  cen          (vlax-safearray->list (vlax-variant-value cen))
   
6.                  sParam          (vlax-curve-getstartparam e)
   
7.                  eParam          (vlax-curve-getendparam e)
   
8.                  midParam (/ (+ sParam eParam) 2.0)
   
9.                  mid          (vlax-curve-getpointatparam e midParam)
   
10.            )
    
11.            (entmake (list '(0 . "LINE") (cons 10 cen) (cons 11 mid)))
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. 
    

(defun c:tt ()<br />   (if (setq e (car (entsel "\n选取弧线:")))<br />     (progn (setq o          (vlax-ename->vla-object e)<br />                  cen          (vla-get-center o)<br />                  cen          (vlax-safearray->list (vlax-variant-value cen))<br />                  sParam          (vlax-curve-getstartparam e)<br />                  eParam          (vlax-curve-getendparam e)<br />                  midParam (/ (+ sParam eParam) 2.0)<br />                  mid          (vlax-curve-getpointatparam e midParam)<br />            )<br />            (entmake (list '(0 . "LINE") (cons 10 cen) (cons 11 mid)))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sicky111

论坛有函数。