(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。
在cad号令窗口输入ecpwx快捷号令,将会画出右半边辅助线,如图所示。
然后再用镜像号令建造左半边辅助线,结果如图所示。
接下来把辅助线的端点依次用多段线毗连,而且删除辅助线,结果如图。
然后再用edit号令编纂多段线,号令行输入edit回车,选择多段线,输入f回车,即获得二次函数的抛物线cad图,如图所示。
弥补申明:若是要求比力高,可将x增量调小一点将加倍精准。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!