autocad中利用vba绘制曲线簇更正

曲线簇曲线簇1y=a(1+cosθ)sinθx=a(1+kcosθ)cosθ k∈(0,70)曲线簇2y=acosθsinθx=a(1+kcosθ)cosθ k∈(0,70) 曲线簇3y=a