TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Adesu on October 09, 2007, 12:47:20 AM
-
If you bore in your work, play this ball.
; bttd is stand for Ball Top To Down
; Design by : Adesu <Ade Suharna>
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Website : http://cadesu.multiply.com
; Create : 09 October 2007
; Program no.: 0664/10/2007
; Edit by :
(defun donut (pt)
(setq irad 0.0)
(setq orad 2.5)
(command "_donut" irad orad pt "" "")
(princ)
) ; defun
(defun topdown ()
(setq cnt 0)
(repeat
10
(setq pt (list 5 (+ 10 cnt) 0))
(donut pt)
(command "_erase" "l" "")
(setq cnt (1- cnt))
) ; repeat
) ; defun
(defun downtop ()
(setq cnt 0)
(repeat
10
(setq pt (list 5 (- 0 cnt) 0))
(donut pt)
(command "_erase" "l" "")
(setq cnt (1- cnt))
) ; repeat
) ; defun
(defun c:bttd (/ irad orad cnt pt)
(repeat
10
(topdown)
(downtop)
) ; repeat
(princ)
) ; defun