[討論]在CAD圖上 畫出有指定方程式的曲線

最近在工作中接到一個橋樑的案子 橋結構本身是一個譬如 Y=2(X3次方)+2(X2次方)+1的曲線...大家是怎樣畫出這曲線

不是很懂!請問有圖可以說明嗎?

橋結構的曲線...這部份也不是很了解，之前有畫過幾個橋樑的案子，但是沒有曲線的公式，還是你可以稍作說明嗎!?

橋樑上兩條(如例圖)的曲線 它不是弧線 也不是正圓的曲線 它是各自由一個多次方程式所形成..所以繪製時不是由簡單由畫弧或畫圓的指令可形成 是畫圖者 另外寫LISP畫圖程式在CAD上畫出那 指定方程式的弧線..只是因八八水災 台灣斷了好多橋樑 所以短時間會有很多橋樑工程要施工 所以常常有橋樑的案子可接觸到
只是會畫橋樑能力的人才不多.我只是有幸接觸到拿出來大家探討吧罷了 獻醜獻醜

還有牽涉到製造及安裝上的所需要的數據(譬如測量點座標....)所要注意的細節 我就不做討論及描述了

米虫 寫到:最近在工作中接到一個橋樑的案子 橋結構本身是一個譬如 Y=2(X3次方)+2(X2次方)+1的曲線...大家是怎樣畫出這曲線

剛好有空閒的時間,對這方面也有興趣,難得的是自己程式能力真的有進步了一點,而且有能力完成,附上心血結晶供大家參考
喔....對了~![回覆可見]囉~!

只能用LISP了~~!! 以前做過映像管營幕的曲面.~!! 就是一長串的方程式.先建構出曲線.~!!再建成曲面.!!

AutoCAD是低階的繪圖軟體，類似這樣的需求只能用LISP寫程式去自動生成…

感謝提供橋樑曲線的LISP。

hung 寫到:感謝提供橋樑曲線的LISP。

要注意不能直接用喔~~~!!

只要公式不一樣 就要做小修正喔~!

不是本行沒有看過 好奇來看看是什麼橋粱 謝謝分享

adslwang 寫到:不是本行沒有看過 好奇來看看是什麼橋粱 謝謝分享

adslwang 大大.....~!這還不是橋樑的公式,只是樓主題出一個數學公式做為假設,想問問如果拿到橋樑的公式之後要怎麼做圖在CAD上~!

所以你面的公式只是單純的數學公式,並不是橋梁公式

很好奇是什麼lisp，來看看。

在CAD中，依據公式繪製曲線，應該很實用。

謝謝分享用lisp畫曲線函數,下載來學習.

感謝無私提供特殊製圖用方程式，讓我又多學到一些不同領域知識。

想學習看看公式型的LISP怎製作出來
謝謝分享

來學學~~~大家都好利害ㄟ

蠻有趣的問題，當作增廣見聞。

增廣見聞! 讚讚

感謝分享 剛好要處理拱橋 正煩惱如何解決

進來學習一下怎麼用lisp畫有公式的曲線

試著寫了一小段lisp不確定是否符合要求
請各位前輩幫忙看看有沒有地方可以修改並更符合工作上的需求

代碼:


(defun c:fx(/ a b c d e f g point time px py pt ssl ssp oldos)

(defun *error* (msg)
(command)(command)
(setvar "osmode" oldos)
(princ))

(setq oldos (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)

(setq a (getreal "x^3係數:"))
(setq b (getreal "x^2係數:"))
(setq c (getreal "x係數:"))
(setq d (getreal "常數:"))
(setq e (getreal "圖形起始x值:"))
(setq f (getreal "圖形結束x值:"))
(setq g (getreal "節點橫向間距:"))
(setq point (getpoint "指定圖形起點位置:"))
(setq time (+ (/ (- f e) g) 1))

(setq px e)

(setq py (+ (* a (expt px 3)) (* b (expt px 2)) (* c px) d))
(setq point (list (- (car point) px) (- (cadr point) py)))
(setq pt (list (+ (car point) px) (+ (cadr point) py)))

(command "pline" pt
     (progn
          (setq px (+ px g))
          (setq py (+ (* a (expt px 3)) (* b (expt px 2)) (* c px) d))
          (setq pt (list (+ (car point) px) (+ (cadr point) py)))
     )
"")
(setq ssl (ssget"L"))

(while (< px f)
     (command "pline" pt
          (progn
               (setq px (+ px g))
               (setq py (+ (* a (expt px 3)) (* b (expt px 2)) (* c px) d))
               (setq pt (list (+ (car point) px) (+ (cadr point) py)))
          )
     "")
     (setq ssp (ssget"P") ssl (ssget"L"))
     (command "pedit" "M" ssl ssp "" "j" "" "")
     (setq ssl (ssget"L"))
)
(setvar "osmode" oldos)

(princ)
)