Question

老师让我们用AutoLISP画出一个奥运五环，哪位大侠能给我完整的autolisp编码，谢谢啦··

环的半径自己定 急 谢谢····

Answer 1

下面是我写的程序有什么问题加QQ584963273共同学习
(defun c:wh ()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint ":指定第一个圆心位置"))
(setq r (getdist ":指定半径"))
(setq p2 (polar p1 (* -0.25 pi) r))
(setq p3 (polar p2 (* 0.25 pi) r))
(setq p4 (polar p3 (* -0.25 pi) r))
(setq p5 (polar p4 (* 0.25 pi) r))

(command "color" "blue")(command "circle" p1 r)
(command "color" "yellow")(command "circle" p2 r)
(command "color" "white")(command "circle" p3 r)
(command "color" "green")(command "circle" p4 r)
(command "color" "red")(command "circle" p5 r)
(setvar "osmode" os)
(princ)
)

Answer 2

我不做枪手