球面投影 上學期教了 Mastercam 的刀具路徑投影 ， 這學期來教點 球面投影的原理 ， 並用 AutoLisp 來印證 … AutoLisp的作動流程 ，請參考下列影片 https://www.youtube.com/watch?v=Ge4EXQG8klg&feature=youtu.be AutoLisp的程式如下 ， 讀者可以把下列的程式如影片中的操作，複製到記事本存檔，就可以在AutoCAD裡面使用 (defun c:pp() (command "osmode" 0) (command "vpoint" (list 1 1 1)) (setq i1 1 R1 80 x1 R1 y1 0 z1 0 x2 0 y2 0 z2 0 ctaWk 0) (setq cta (/ 3.1415926 180.0)) (command "color" 252) (while (< i1 91) (setq ctaWk (+ ctaWk cta)) (setq x2 (* R1 (cos ctaWk))) (setq z2 (* R1 (sin ctaWk))) (command "circle" (list 0 0 z2) x2 "") (setq i1 (+ i1 1)) (command "zoom" "e") ) (setq x1 -45 y1 -45 x2 45 y2 -45) (pj) (setq x1 45 y1 -45 x2 45 y2 45) (pj) (setq x1 45 y1 45 x2 -45 y2 45) (pj) (setq x1 -45 y1 45 x2 -45 y2 -45) (pj) (setq x1 -45 y1 -45 x2 45 y2 45