[討論]有關倒角chamfer及圓角fillet的作法

因為本身職業的關係在繪製都市計畫圖的時候道路截角部分法規規定的是斜邊的距離,與cad指令中的倒角設定的距離不同,本身是輔助使用lisp來計算出所需要的距離在來繪製,不知道各位有沒有其他的方法來繪製.


Quickpost this image to Myspace, Digg, Facebook, and others!

這個 case , 確實適合 和需要寫程式，
請問 你程式寫好了嗎？

是否好用和 順手？
這個 case 我以前寫過，
我可以 免費幫忙喔。

感謝 高老師 程式是有了,不過有些瑕疵,我是用點選參點的座標在輸入截角長度,利用座標算出截角位置,不過我這個方法再碰到道路是圓弧的話所點選座標的位置就要十分注意了

假設道路轉角是 直線段構成，假設道路的轉角 非直角，
這種 case 可以處理嗎？

我之前做過的 case, 可以處理 非直角。
不過，轉角由 弧段構成，倒是 沒有考慮過。

我寄個檔案請你幫我參考看看

我的 e-mail: sjgau4311XX@gmail.com

(defun rtad(rl)
(setq r (* (/ 180 pi) rl))
)
(defun dtor (dl)
(setq r (/ (* dl pi) 180))
)
(defun get-angle(p1 p2 p3)
(setq d1 (angle pt2 pt1))
(setq d2 (angle pt2 pt3))
(setq d (- d1 d2))
(if (< d 0)(setq d (+ d pi)))
)
這是寫好的副程式

你寫的 (get-angle p1 p2 p3)
在某些時候，會得到 錯誤的答案。

(defun get-angle(p1 p2 p3 / d1 d2 d)
(setq d1 (angle p2 p1))
(setq d2 (angle p2 p3))
(setq d (- d1 d2))
(if (< d 0.0)(setq d (+ d pi)))
(princ d)
)
這是修正過的

ps.我們在這裡討論這個好嗎,覺得怪怪的,應該要移到專區的吧

那，我們就 移駕到 程式設計的專區 繼續。

不知道高老師有怎樣的思路,程式寫的時候例子都不會用的太多經過的驗證也就很少,所以我在寫好的時候程式時常隨著使用都在不斷的修正>"<

程式語言有提供一些現成的函式的話總是習慣性的直接使用,高老師提醒的是,能自己寫出也能比較掌握狀況,對自己也能提升能力

答對了！

自己生的小孩，可以打。

別人家的小朋友，打不得。

所以，自己寫的工具程式，才是 最好用的東西。

sjgau 寫到:P1, P2, P3 求夾角的問題，
我後來都採用 餘弦定理來計算，
比較不會出錯。

P1, P2, P3 決定一個角，你可以把他 這三個點，
想像成 一個任意 三角形。

假設角
對邊的長度是 A

那麼

A^2= B^2 + C^2 - 2*B*C*COS(THETA)

知道 P1, P2, P3, --> 三個邊的長度
A, B, C 即為已知，所以

COS(THETA)= X= (A^2 - B^2 - C^2)/(-2*B*C)

使用 ARCCOS(X) , 即可求出 THETA= ?
> 0.0, < 180.0

這個方法，比較不會錯。

你認為呢？

我試著要寫出可是lisp沒有arccos 原始公式太久沒用又還給老師了 可不可以在麻煩高老師在講解一下有關三角函數在lisp裡的應用

我等下，或是 明天就 做給你。

先給你 數學公式，至於 程式設計，
明／後天再給你

如果 cos(theta)= x

那麼 tan(theta)= (sqrt(1 - (x^2)))/(x)

所以，theta= arctan((sqrt(1 - (x^2)))/(x))

AutoLISP 有提供 arctan(), 所以 得解。

最近幾天都是滿腦子的角度座標........整個人失神的家人都在問說是不是談戀愛了
真是暈了
有找到維基網站一堆的定理有看沒有懂,還在努力專研當中

其實，用到的 都是高中數學。

你趕快找 一本 高中數學 1 - 6冊 總複習來 翻閱一下。

不過，說真的，談戀愛比較重要，不要 只顧著當 宅男。
你 爸媽急著要 抱孫子了！

天空的雲 寫到:最近幾天都是滿腦子的角度座標........整個人失神的家人都在問說是不是談戀愛了
真是暈了
有找到維基網站一堆的定理有看沒有懂,還在努力專研當中

哈哈~
數學我也不行...

可是，學 AutoCAD 進階和
程式設計，最好具備國中以上，中上的數學程度。

我教 if 的結構，使用的是

y= f(x)= a*(x^2) + b*(x) + c= 0

判別式 D= (b^2) - 4*a*c

D > 0

D < 0

D = 0

sjgau 寫到:其實，用到的 都是高中數學。

你趕快找 一本 高中數學 1 - 6冊 總複習來 翻閱一下。

不過，說真的，談戀愛比較重要，不要 只顧著當 宅男。
你 爸媽急著要 抱孫子了！

看著有關三角函數的東西是需要回憶一下
我也想談戀愛阿,可是也要有對象的唄

各位 像我數學那麼爛的人 都能寫lisp程式了 所以不要畏懼寫lisp有多難,趕快加入吧

天空的雲 寫到:



看著有關三角函數的東西是需要回憶一下
我也想談戀愛阿,可是也要有對象的唄

對象不會自己找上門，要自己 主動出擊。
學美工設計，3DS Max 比較有女生會 感到興趣。

學 AutoCAD，大部分都是男生。

(setq d1 (sqrt (+ (expt (- (car p1)(car p2)) 2)(expt (- (cadr p1)(cadr p2)) 2))))
(setq d2 (sqrt (+ (expt (- (car p2)(car p3)) 2)(expt (- (cadr p2)(cadr p3)) 2))))
(setq d3 (sqrt (+ (expt (- (car p1)(car p3)) 2)(expt (- (cadr p1)(cadr p3)) 2))))
(setq c (/ (- (+ (expt d1 2)(expt d2 2))(expt d3 2))(* 2.0 d1 d2)))
(setq cc (atan (/ (sqrt (1- (expt c 2.0))) c)))

高老師我算到cc的時候有問題 根號內的東西(1- (expt c 2.0))算出來是負的
這是怎麼回是ㄚ
需要加上abs嗎 可是算出來的數字又不對 在個加判斷?????

建議，你寫程式的時候，要稍微改變一下 coding style

先寫 虛擬碼

已知 P1(X1,Y1), P2(X2,Y2), P3(X3,Y3)
求夾角 <P1-P2-P3 的角度

U 向量的 分量：
U1= X1 - X2
U2= Y1 - Y2

V 向量的分量：
V1= X3 - X2
V2= Y3 - Y2

U, V 兩個向量的內積＝ (U 的長度) * (V 的長度) * COS(THETA)
= U1*U2 + V1*V2