Re: [問題] autolisp指令
下面是 一個完整的範例程式，
你去 跑跑看
; for n1= 3 to 7 step 1 do ...
(setq n1 3)
(while (<= n1 7)
(setq p1 (list 0 0)
t1 0.0)
; for n2=0 to (n1 - 1) step 1 do
(setq n2 0
dt (* (/ (/ 360.0 n1) 180.0) pi))
(while (<= n2 (- n1 1))
(setq p2 (polar p1 t1 50.0))
(command "LINE" p1 p2 "")
(setq p1 p2)
(setq n2 (+ n2 1)
t1 (+ t1 dt))
); end while
(setq n1 (+ n1 1))
); end while
(princ)
※ 引述《kihg (值得努力)》之銘言：
: 請問用lisp寫 (polar x (* pi (/ 75 180)) y))
: 為什麼跑出來的都是一條水平線?
: 照理說不是應該是75度的直線嘛?
: 還是有其他問題?
: 謝謝
--
e-mail: sjgau4311@gmail.com
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.81.202
討論串 (同標題文章)
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
