Re: [心得] 叫AutoCAD畫 極座標函數的LISP函數
前面，有人問起，如何載入 AUTOLISP 程式檔案
和執行的問題，整理一下
一
(LOAD "FILE-NAME.LSP")
把 FILE-NAME.LSP 檔案，存放到
和你目前的工作開啟圖檔 同一個目錄，
一定可以正確執行。
以下面的程式而言，他沒有
(DEFUN C:XXX ( / ))
所以，只要載入，就會自動執行。
如果程式裡面有定義 很多個
(DEFUN C:XXX-01 ( / ))
那麼，就會幫 AUTOCAD 增加一個新的指令
XXX-01
你就直接執行，下達指令
XXX-01
就可以了
二
APPLOAD
以上指令，會使用交談框，
會使用 檔案瀏覽視窗，讓你去選取要載入的
AUTOLISP 程式檔案，載入之後，同上面
※ 引述《sjgau (sjgau)》之銘言：
: (setvar "cmdecho" 0)
: ; plot r= G(theta)
: ; ｒ＝ａ（１－ｓｉｎθ）
: (setq a 2.5)
: (setq no (getint "Please input no= "))
: (setq t1 (* -1 pi) t2 (* +1 pi)
: dt (/ (- t2 t1) no)
: t2 (+ t2 (* 0.1 dt)))
: ; for theta= t1 to t2 step dt do ...
: ; dt= (t2 - t1)/no
: ; no= ?
: (command "PLINE")
: (setq theta t1)
: (while (< theta t2)
: ; // ｒ＝ａ（１－ｓｉｎθ）
: (setq r (* a (- 1.0 (sin theta))))
: (setq x (* r (cos theta))
: y (* r (sin theta)))
: (setq p1 (list x y))
: (command p1)
: (setq theta (+ theta dt))
: )
: (command "")
: (princ)
: 只要改 r= G(theta)的那幾行，就可以畫出任何你想要的圖形
: no= 100 到 30
--
e-mail: sjgau4311@gmail.com
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.65.103
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
