有一陣子沒講AutoLISP了，本文試著藉錐面軸向孔之倒角來講解如何使用AutoLISP繪製錐面軸向孔輪廓，並寫出倒角的CNC程式。
錐面的繪製
假設錐面的上頂面半徑為r1，底面半徑為r2，高度是h1，則需使用者輸入的AutoLISP寫法如下所示，當，AutoCAD讀到這三行時，其螢幕底下的字幕行就會出現雙引號內的文字，以(setq r1 (getreal "Enter the top diameter : \n") )來說，螢幕底下的字幕就是會出現Enter the top diameter : ，此時AutoCAD會等待使用者輸入半徑之數值後，才會繼續讀下行的AutoLISP。
(setq r1 (getreal "Enter the top diameter : \n") )
(setq r2 (getreal "Enter the bottom diameter : \n"))
(setq h1 (getreal "Enter the height : \n"))
但是，一般來說，圖面上通常標示直徑，所以，為了方便性，讓使用者直接輸入直徑值，而程式內部再除以2，以轉化成半徑值，則AutoLISP寫法如下所示：
(setq r1 (/ (getreal "Enter the top diameter : \n") 2 ))
(setq r2 (/ (getreal "Enter the bottom diameter : \n") 2 ))
(setq h1 (getreal "Enter the height : \n"))
當上述資料經使用者輸入之後，便可以開始繪製錐面，如果要以每度畫一次錐面直線，則需寫一個可以跑360次迴圈，此時可以用while這個函式，寫法如下：
(setq i1 1 )
(while (< i1 361)
(setq i1 (+ 1 i1))
)
那麼要如何在每次迴圈之內畫一次錐面直線呢？ AutoLISP程式如下所示：
(defun c:bt()
(setq r1 0 r2 0 h1 0 )
(setq r1 (/ (getreal "Enter the top diameter : \n") 2 ))
(setq r2 (/ (getreal "Enter the bottom diameter : \n") 2 ))
(setq h1 (getreal "Enter the height : \n"))
(setq x2 0 y2 0 x22 0 y22 0 )
(setq i1 1 cta (/ 3.1415926 180.0) ctaWk 0 h1 (* -1 (abs h1)) )
(while (< i1 361)
(setq ctaWk (* cta i1))
(setq x2 (* r1 (cos ctaWk)) y2 (* r1 (sin ctaWk )) )
(setq x22 (* r2 (cos ctaWk)) y22 (* r2 (sin ctaWk )) )
(command "line" (list x2 y2 0) (list x22 y22 h1) "" )
(setq i1 (+ 1 i1))
)
(command "zoom" "e" "")
(command "vpoint" "-1,-1,1" "")
)
使用者輸入錐面的上頂面直徑10，底面直徑為30，高度是5時，則AutoCAD就會自動畫出下面圖形
這錐面的繪製只是用來講解AutoLISP的暖身用，並為了下一個步驟-錐面孔的繪製來做視覺上的驗證，看看畫出來的錐面孔的輪廓是否有在錐面上，到底錐面孔的輪廓是甚麼樣子?我還沒畫之前也不清楚，不過有個高人是這樣說 :
"圓"放在斜面就變橢圓，放在錐柱上就變雞蛋狀，上尖下圓 ，還折彎在錐柱上，就是洋竽片...
ㄏㄏ，真是有想像力的洋竽片，下回再分曉了...
留言
張貼留言