Lisp Vẽ Đường Thẳng Có Độ Dốc Bất Kì

[hoangminhtien91 0]

E đang viết lisp vẽ 1 đường line có độ dốc. nhưng đang bí chỗ thêm GÓC vào lệnh line:

(command ".line" a GOC  (getpoint a "\nChon diem 2:"))

E mới viết được ít nhưng chưa hoàn thiện ạ.Mong mấy a chỉ giáo e chỗ ni vs ạ.

(defun c:ld()

(setq n (getreal "\nNhap do doc:"))

(setq a (getpoint "\nChon diem goc:"))

(setq goc (atan n))

(setq b (polar a (+ (* 1.5 pi) goc) (distance a (getpoint a "\nChon diem 2:"))))

(command ".line" a b "")

(princ)

)