中点程序很多，很高兴得院长的一中点程序，确实不一样

品茗新秀

中点程序很多，很高兴得院长的一中点程序，确实不一样，分享给初学者，


(defun getmp(e / midp)
(setq e (ssname ss (setq n(1- n))));测试测试参数
  (setq midp(vlax-curve-getPointAtParam e(/(-(vlax-curve-getEndParam e) ;(vlax-curve-getEndParam e)=3.0
                 (vlax-curve-getStartParam e)) 2));(vlax-curve-getStartParam e)=0.0   (/(-(vlax-curve-getEndParam e)(vlax-curve-getStartParam e)) 2)=1.5


        )
;        (command "donut" 0 1.5 midp"");测试画圆环
)