lisp pline 加点_曲线线元绘制（LISP）函数

;一、约定

; (1)

以道路中线的前进方向(即里程增大的方向)区分左右；当线元往左偏时，

;线元偏向标志=-1；当线元往右偏时，线元偏向标志=1；当线元为直线时，线元偏向标志=0。

;(2)

当所求点位于中线时，边距=0；当位于中线左铡时，边距取负值；当位于中线中线右

;侧时，边距取正值。

; (3)

当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

;(4)

当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆

;弧的半径。

;(5)

当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45

;次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半

;径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

;(6)

当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的

;值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等

;于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

;二、功能

;在Auto

CAD中按1:1000比例绘制曲线线元(直线、圆曲线、完整缓和曲线、非完整型缓和曲线)。

;三、源程序

;==================  test  ========================================================