中点程序很多，很高兴得院长的一中点程序，确实不一样
本帖最后由 品茗新秀 于 2014-4-27 23:45 编辑中点程序很多，很高兴得院长的一中点程序，确实不一样，分享给初学者，
(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"");测试画圆环
)
页:
[1]