跳到主要內容

發表文章

目前顯示的是 3月, 2015的文章

球面投影

球面投影 上學期教了 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