Tăng Hưng vô đây hỏi cái.

Mọi người xem hộ đoạn Lisp này sai ở đâu mà mình không vẽ ra được
(defun C:sin1()
(setq a1 (getreal "vao diem dau: "))
(setq a2 (getreal "vao diem cuoi :"))
(setq dt (getreal "nhap buoc :"))
(command "spline")
(while (<= x a2)
(setq y (sin x))
(command (list x y))
(setq x (+ x dt))
)
(command "")
)

Nói chung là cái lisp này dỏm rồi! không chạỵ đc!

Đúng là Lisp dỏm thưa các bạn. Đã sửa lại rồi, ae check coi ngon chưa
(defun C:sin1()
(setq a1 (getreal "vao diem dau: "))
(setq a2 (getreal "vao diem cuoi :"))
(setq dt (getreal "nhap buoc :"))
(setq x a1)
(command "spline")
(while (<= x a2)
(setq y (sin x))
(command (list x y))
(setq x (+ x dt))
)
(command "")
)

hehe...