(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 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!