Đối với những người dùng AtoCAD chuyên nghiệp có lẽ cụm từ Autolisp đã quá quen thuộc. Autolisp đã trở thành 1 phần của AutoCAD, nó giúp người dùng tiết kiệm thời gian và công sức cho công việc mà vẫn mang lại những hiệu quả như mong đợi. Bài viết này sẽ chỉ đề cập đến những vấn đề cơ bản về autolisp, những vấn đề nâng cang và mở rộng sẽ đề cập trong các bài viết khác. Bài viết được tổng hợp từ nhiều nguồn và từ kinh nghiệm của những người đã từng sử dụng autolisp.
Mọi chi yêu cầu, thắc mắc các bạn có thể gửi tại diễn đàn xây dựng


 Autolisp là gì?

- AutoLisp là một ứng dụng của ngôn ngữ Lisp được sử dụng trong môi trường AutoCAD. LISP là ngôn ngữ lập trình thuộc nhóm trí tuệ nhân tạo do MacCarthy soạn thảo cuối những năm 50. Ngôn ngữ này xuất hiện lần đầu tiên vào năm 1960 trong số xuất bản tháng 4 của tạp chí The Communications of ACM. Vào những năm 60 các ngôn ngữ lúc đó đều đã lỗi thời, trừ Fortran và Cobol. LISP đã đem ngôn ngữ lập trình chuyển sang một kỉ nguyên mới và sau đó hàng chục ngôn ngữ lập trình đã ra đời dựa trên LISP như Common LISP, BYSCO LISP, ExpertLISP, Waltz LISP, XLISP...v...v... AutoLISP phát triển bởi Autodesk là sự hiện thực hóa của ngôn ngữ LISP. Từ bản AutoCAD 2.18 trở đi, AutoLISP trở thành ngôn ngữ của chương trình. Với AutoLisp người dùng có thể mở rộng và tuỳ biến các chức năng của AutoCad.
- AutoLisp là một ngôn ngữ lập trình thông dịch, nghĩa là dịch đến dòng nào thực hiện dòng đó và cho kết quả, không có trình biên dịch riêng. Một tập hợp các câu lệnh của AutoLisp được gọi là hàm Lisp và tệp (file) chứa các hàm gọi là tệp (file) Lisp có phần mở rộng là *.Lsp. 

(
defun C:hinhin(/ W H1 H2 p1 p2 p3 p4 p5 OldOs)
;;;Nhap so lieu
(setq
 W (getreal "\nChieu rong nha W = ")
 H1 (getreal "\nChieu cao nha H1 = ")
 H2 (getreal "\nChieu cao chop nha H2 = ")
 p1 (getpoint "\nDiem chuan: ")
;;;----------------------------------------------------------
;;;Tinh toa do
 p2 (polar p1 0.0 W)
 p3 (polar p2 (/ pi 2) H1)
 p4 (polar p3 pi W)
 p5 (list (+ (car p4) (/ W 2)) (+ (cadr p4) H2))
)
;;;----------------------------------------------------------
;;;Luu bien osmode
(setq OldOs (getvar "osmode"))
;;;----------------------------------------------------------
;;;Set object snap OFF
(setvar "osmode" 0)
;;;----------------------------------------------------------
;;;Goi lenh AutoCAD
(command "line" p1 p2 p3 p4 "c")
(command "line" p3 p5 p4 "")
;;;----------------------------------------------------------
;;;Tai lap osmode
(setvar "osmode" OldOs)
;;;----------------------------------------------------------
(princ)
)
;;;----------------------------------------------------------
;;;SUMMARY: setq, getreal, getpoint, polar, list, car, cadr, caddr,
+ - * /, command, comment, getvar, setvar, princ