Re: [心得] AutoLISP 的 Hello, world!\n
(defun c:xxx( / )
(command "circle" "0,0" "1.0")
)
以上，為定義一個 user-defined 指令
下達
xxx
AutoCAD 會幫你 自動畫一個圓
圓心= 0,0
半徑= 1.0
(defun yyy(n1 n2 / n3)
(setq n3 (+ n1 n2))
(eval n3)
)
以上，會幫你定義一個 user-defined function
下達
(yyy 2 3)
會得到 5
(setq n4 (yyy 6 7 ))
會設定 n4= 13
※ 引述《HiEArO (xsd)》之銘言：
: 謝謝你仔細的回答 我是第一次執行lisp程式
: 不曉得執行的流程
: ※ 引述《sjgau (sjgau)》之銘言：
: : 以下，應該是 正確的
: : (defun f2(n / )
: : ;
: : )
: : 我把 函數名稱改成 f2
: : 執行的方法是
: : (load "tmp.lsp")
: : (f2 10)
: 這兩行可以說是關鍵所在
: 我之前是有load進去，但是不曉得怎麼跑
: 經過第二行和以下執行結果的示範
: 我了解了 非常感謝回答 你的解答真的很詳細
: 若可以的話 可以教教我DEFINE的用法嗎？謝謝
: : 還有，第0項 和 第1項的答案都是 1
: : 還有，為了擔心 n < 0
: : 所以，
: : if (n <= 0) return 1;
: : 令: (f2 0)
: : 1
: : 指令: (f2 1)
: : 1
: : 指令: (f2 2)
: : 2
: : 指令: (f2 3)
: : 3
: : 指令: (f2 5)
: : 8
: : 指令: (f2 10)
: : 89
: : 指令: (f2 20)
: : 10946
: : 指令: (f2 25)
: : 121393
: : 指令: (f2 30)
: : 1346269
: : (defun f2 (n / )
: : (cond ((<= n 0) 1)
: : ((= n 1) 1)
: : (t
: : (+ (f2 (- n 1))
: : (f2 (- n 2))
: : )
: : )
: : )
: : )
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.243.237.65
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 9 篇)：
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
