1、(defun c:ecpwx()
(setq i 0)
(setq a 2.0)
(setq b 3.0)
(setq c 4.0)
(setq x (* (/ b (* a 2.0)) -1.0))
(setq y (+ (* a x x) (* b x) c))
(setq pt0 (list x y))
(while (< i 15)
(setq x (+ x 0.5))
(setq y (+ (* a x x) (* b x) c))
(setq ptn (list x y))
(setq i (1+ i))
(command "pline" pt0 ptn "")
)
(princ)
)
假设二次抛物线函数为y=ax^2+bx+c，示例函数取值a=2,b=3,c=4，每一个点x增量为0.5，i值表示循环次数，i取值为小于15的0-14之间的次数，表示辅助线总共画了15条，根据需要可自行更改，然后将函数加载到cad。
2、在cad命令窗口输入ecpwx快捷命令，将会画出右半边辅助线，如图所示。
3、然后再用镜像命令制作左半边辅助线，效果如图所示。
4、接下来把辅助线的端点依次用多段线连接，并且删除辅助线，效果如图。
5、然后再用edit命令编辑多段线，命令行输入edit回车，选择多段线，输入f回车，即得到二次函数的抛物线cad图，如图所示。
补充说明：如果要求比较高，可将x增量调小一点将更加精准。
