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增量调小一点将更加精准。
