作者sjgau (sjgau)
看板Cad_Cae
标题Re: [问题] autolisp指令
时间Fri Sep 10 06:38:01 2010
下面是 一个完整的范例程式，
你去 跑跑看
; 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:
[email protected]
我的课程介绍网页：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台湾地区菁英讲师获选
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.81.202