AutoLisp(四)

文章日期：2008-02-24 21:29

文章接近結尾了，來講講如何用AutoLisp寫刀具路徑的CNC程式，及用AutoLisp來讀取CNC程式並畫出刀具路徑。
以交線的這題來做範例，用AutoLisp來寫已求得的刀具路徑的CNC程式，AutoLisp程式如下：
(defun c:kk()
  (setq r1 0  r2 0  r3 0  s1 0)
   ;依次要求使用者輸入圓柱半徑、圓柱長度、
  ;圓孔半徑、球刀半徑、倒角尺寸  (setq r1 (getreal "Enter the radius of the pillar : "))
  (setq s1  (getreal "Enter the length of the pillar : "))
  (setq r2 (getreal "Enter the radius of the hole: "))
  (setq r3 (getreal "Enter the radius of the ball-endmilling: "))
  (setq chm (getreal "Enter the size of chamfer: "))

  (setq file01 (open "test.nc" "w")) ;開檔
  ;以下五行是程式片頭，隨人寫，也可寫G54的片頭
  (princ "%\n" file01)
  (princ "O0001\n" file01)
  (princ "G0G17G40G49G80G90F250\n" file01)
  (princ "G92X0Y0Z20.\n" file01)
  (princ "S2000M03\n" file01)

  (setq r3 (- r3 (/ chm 1.414)))
  (setq x1 0  z1 0  x2 0  z2 0  y1 0  y2 0  i1 1 k1 0)
  (command "color" "red" )
  (while (< i1 362)
    (setq x2 (* -1 (- r2 (/ r3 1.414))  (sin(/ (* i1 3.1415926) 180))) )
    (setq y2 (+ (* 0.5 s1)  (*  (- r2 (/ r3 1.414))  (cos (/ (* i1 3.1415926) 180))) ))
    (setq k1 (* r2 (sin(/ (* i1 3.1415926) 180))))
    (setq z2 (+ (* -1 r1)  (sqrt (- (* r1 r1) (* k1 k1))) (/ r3 1.414) ))
    (if (> i1 1.5)
      (command "line" (list x1 y1 z1) (list x2 y2 z2) "") )

    (if (< i1 1.5)
      (progn
        (setq zx (+ z2 4))
        (princ "G0 " file01)
        (pp1)   ;呼叫副程式
        (setq zx (+ z2 1))
        (princ "G1 " file01)
        (pp1) )
      (progn
        (setq zx z2)
        (princ "   " file01)
        (pp1) ))
    (setq i1 (+ i1 1) x1 x2 y1 y2 z1 z2)
  )
  (princ "G0 G91 Z20.\n" file01)
  (princ "   X0 Y0.\n" file01)
  (princ "M30" file01)
  (close file01)
  (command "vpoint" "-1,-1,1" "")
  (command "zoom" "a" "")
)

 ;副程式
(defun pp1()
  (setq pxs(rtos x2 2 3) pys(rtos y2 2 3) pzs(rtos zx 2 3))
  (setq pxl(strlen pxs) pyl(strlen pys) pzl(strlen pzs))
  (setq pxn(- 7 pxl) pyn(- 7 pyl) pzn(- 7 pzl))
  (princ "X" file01)
  (princ pxs file01)
  (repeat pxn (princ " " file01))
  (princ " " file01)
  (princ "Y" file01)
  (princ pys file01)
  (repeat pyn (princ " " file01))
  (princ " " file01)
  (princ "Z" file01)
  (princ pzs file01)
  (princ "\n" file01)
)

以上是將刀具路徑寫成CNC程式，這樣只完成一半，最重要的後段是如何將已寫好的CNC程式化為刀具路徑模擬，這一部分我已寫好，不過檔案有點大，解說不易，我把如何使用的影像檔放下載區，可自由下載，如有興趣研究程式碼，請來信索取原文，不過，僅限個人研究用，請尊重智慧財產權，勿拿此程式做商業用，也勿拿來做任何形式的發表。
下2圖是讀取CNC程式來做刀具路徑模擬的範例，第一個圖是球面刀具路徑模擬，第二個圖是平面刀具路徑模擬，此Autolisp是個簡易型的，適用於CNC程式開端是G92的片頭，不能模擬巨集指令，不過，對於CNC程式在1000行內的都適用(因為沒有對RAM做規畫，所以要看使用者的電腦等級)，CNC程式得先複製至AutoCAD的目錄之下，才可啟動此Autolisp程式 : 載入後鍵入"bt"，並enter，每按一次enter，畫面上就會顯示執行一刀，如果要連續執行，則要鍵入"r"，並enter，就會把所有的刀具路徑顯示在螢幕上，請參照http://web.mcvs.tp.edu.tw/cu01/並下載Autolisp之CNC程式模擬.rar(0.2k);。