lisp画图线最快的是什么函数_求助！！两条非等距离的样条曲线之间如何绘制几条等分的曲线...

;|

--------------- vlax-curve-DivideBetweenPair ---------------

Returns a approximate point list between two cross-section

curves by a dividing parameter, concept of LOFT command

------------------------------------------------------------

Author: lisperado

------------------------------------------------------------

Arguments:

e1,e2        - Curve entities/objects SPLINE,LWPOLYLINE etc..

x         - Direction mode 0 or 1, integer

y         - Divide parameter, integer

------------------------------------------------------------

Returns:  list of Point list (WCS)

------------------------------------------------------------|;

;;Note: NOT accurate for sharp curve

(defun vlax-curve-DivideBetweenPair ( e1 e2 y /  m i d  p o l a r   )

(setq        i 32.0  ;;;纵向密度用户自行设定

a (list e1 e2)

)

(fo