Tài liệu Hướng dẫn sử dụng mã lisp autolisp cadviet forum

6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Trung tâm đào tạo CA DV iet for u m → Lập t r ìn h CA D → A u t oLisp Hướng dẫn sử dụng mã Lisp Started by Nguy en Hoanh, Sep 2 0 2 007 04 :2 4 PM Trang 1 / 2 Gửi v à o 2 0 Sept em ber 2 0 0 7 - 0 4 :2 4 PM Nguyen Hoanh * Lisp là gì? Lisp là một ngôn ngữ script chạy dưới CAD, sử dụng các mã lisp giúp AutoCAD mạnh hơn. POPULA R * Cách sử dụng file lisp Gồm 2 bước: a. Tải (load) file lisp vào AutoCAD Khi đã có file lisp trên ổ cứng, dùng lệnh appload (vào menu: Tools > Load Applications ...) rồi chọn file lisp cần sử dụng, nhấn vào phím load. Với mỗi bản vẽ, thao tác tải file chỉ cần thực hiện 1 lần. T r u n g t â m đà o t ạo CA DV i et X▼ AutoCAD nâng cao chuy ên nghiệp 1 8h00 tối thứ Bảy - Chủ nhật (tuần 2 buổi) Khai giảng: 1 8:00 30/06/201 4 0 4 3 5 5 2 0 1 9 0 - 0 9 1 5 1 3 9 2 5 7 - w @ca dv iet .com ca dv iet .com /edu / b. Gọi lệnh trong file lisp vừa tải Tại dòng command, gõ tên lệnh (xem phần tìm tên lệnh bên dưới) và nhấn enter. * Lưu lại đường dẫn file sau mỗi lần load Bạn hãy check vào ô Add to History, từ lần sau bạn chỉ cần click tên file lisp từ bảng History list. * Để file lisp tự động được load mỗi khi mở bản vẽ? bạn hãy click vào ô contents trong phần Startup suite. http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 1/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum * Để chạy một đoạn mã lấy từ CADViet về: - Nếu đoạn mã đã là 1 file lsp thì bạn chỉ việc download về và dùng chức năng appload lên để sử dụng (như đã nói ở trên). - Nếu đoạn mã nằm trong bài viết của diễn đàn, mở notepad (hoặc một chương trình soạn thảo nào đó cho phép bạn soạn file text) rồi paste nội dung vào. Sau đó save file này thành một file có đuôi là lsp. Sau đó appload lên dùng. - Nếu chương trình có sử dụng file ngoài như dcl, sld, dwg thì bạn có 2 lựa chọn: . Copy các file này vào thư mục support của AutoCAD . Copy vào một thư mục nào đó rồi khai báo thư mục này với AutoCAD bằng cách vào Menu: Tools > Options > Files > Support file search path > Add rồi thêm đường dẫn của bạn vào. * T ìm tên lệnh của file lisp Bạn mở file lsp ra (bằng notepad), tìm đến các dòng mã (defun c:, phía sau c: là tên lệnh. Ví dụ: (defun c:NOILINE thì tên lệnh là NOILINE. Mặc định các file lisp của CADViet thì tên lệnh nằm ở tên file. Ví dụ file tên là abc_def.lsp thì file có 2 lệnh là abc và def Các chủ đề liên quan: 01 - Cách sử dụng Lisp ! - AutoLisp (http://www.cadviet.com/forum/topic/32-cach-su-dung-lisp/) 02 - AutoLisp (http://www.cadviet.com/forum/forum/50-autolisp/) 03 - How to use Visual LISP Editor - AutoLisp (http://www.cadviet.com/forum/topic/71169-how-to-use-visuallisp-editor/) 04 - cách gỡ lisp - AutoLisp (http://www.cadviet.com/forum/topic/25359-cach-go-lisp/) 05 - [Nhờ viết] mã code đường dẫn load lisp - AutoLisp (http://www.cadviet.com/forum/topic/66559-nho-vietma-code-duong-dan-load-lisp/) 06 - Giúp mình sử dụng tff.lips - AutoLisp (http://www.cadviet.com/forum/topic/96875-giup-minh-su-dung-tfflips/) 07 - code giới hạn thời gian sử dụng File lisp - AutoLisp (http://www.cadviet.com/forum/topic/1024-code-gioihan-thoi-gian-su-dung-file-lisp/) 08 - Vẽ thang bằng lisp - AutoLisp (http://www.cadviet.com/forum/topic/272-ve-thang-bang-lisp/) 09 - Lisp tiện ích về dung sai. - AutoLisp (http://www.cadviet.com/forum/topic/92994-lisp-tien-ich-ve-dung-sai/) 10 - Tổng hợp các file lisp thường dùng - Page 3 - AutoLisp - CADViet ... (http://www.cadviet.com/forum/topic/7974-tong-hop-cac-file-lisp-thuong-dung/page-3) 11 - [Hỏi] Tiếng Việt trong Visual Lisp của Win7 - AutoLisp (http://www.cadviet.com/forum/topic/67533-hoitieng-viet-trong-visual-lisp-cua-win7/) 12 - Autocad 2012 không sử dụng được LISP! - AutoLisp (http://www.cadviet.com/forum/topic/61405-autocad2012-khong-su-dung-duoc-lisp/) 13 - Tổng hợp các file lisp thường dùng - Page 5 - AutoLisp - CADViet ... (http://www.cadviet.com/forum/topic/7974-tong-hop-cac-file-lisp-thuong-dung/page-5) 14 - Tìm lệnh của Lisp vẽ mặt cắt - AutoLisp (http://www.cadviet.com/forum/topic/89231-tim-lenh-cua-lisp-vemat-cat/) 15 - [Đã xong] Lisp rải đối tượng theo đơờng dẩn. - AutoLisp - CADViet ... (http://www.cadviet.com/forum/topic/42771-da-xong-lisp-rai-doi-tuong-theo-doong-dan/) T ags: text (/forum/custom/tag.html?q=text) , lisp (/forum/custom/tag.html?q=lisp) , script (/forum/custom/tag.html?q=script) , autocad (/forum/custom/tag.html?q=autocad) , cách (/forum/custom/tag.html?q=cách) , appload (/forum/custom/tag.html?q=appload) , tools (/forum/custom/tag.html?q=tools) , load (/forum/custom/tag.html?q=load) , applications http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 2/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum (/forum/custom/tag.html?q=applications) , command (/forum/custom/tag.html?q=command) , history (/forum/custom/tag.html?q=history) , contents (/forum/custom/tag.html?q=contents) , startup (/forum/custom/tag.html?q=startup) , download (/forum/custom/tag.html?q=download) , notepad (/forum/custom/tag.html?q=notepad) , Gửi v à o 1 6 A pr il 2 0 0 9 - 1 1 :5 6 A M thuyvan89 Tue_NV, on Apr 13 2009, 13:24, said: password của nó là : www.cadv iet.com Tuy nhiên cách thức hoạt động của nó giống như lệnh Ded. Lệnh Ded có thể thêm tiền tố lẫn hậu tố. Về cách của bạn ghi kích thưóc 1 2 [ Ø3 00.80] thì Ø3 00.80 là do trong nhãn Altnate Units -> Multiplier alt units bạn để số khác 1 . Hãy nhập giá trị bằng 1 trong Multiplier alt units -> bạn sẽ có kết quả là 1 2 [ Ø1 2 ]. Tuy nhiên, đây không phải là kết quả bạn m ong m uốn. Cái m ong m uốn của bạn là Ø1 2 thôi phải không? Rất tiếc, CAD không thể làm được chuy ện đó được bạn ạ. Cách nhanh nhất là bạn sử dụng lệnh Ded(dim edit). Bạn có thể chọn trước Dim Sty le bằng quickselect hoặc Filter rồi dùng Ded(Dim edit) để điền tiền tố Hoặc nhanh hơn là khi v ừa ghi kích thước xong, sẽ tự động nhập luôn giá trị Ø trước kích thước. Đây là ý của bạn phải không? Vậy thì bạn sử dụng đoạn Code này . Khi y êu cầu nhập điểm đầu, điểm cuối v à đường chân kích thước (giống dim linear) thì Lisp tự động điền luôn tiền tố Ø trước kích thước Hẳn bạn đã biết sử dụng Code Chúc thành công Em vẫn chưa làm được Code đâu !Hu hu hu! Các anh chỉ giúp em : các thao tác tuần tự nhé, em cảm ơn nhiều! Gửi v à o 1 6 A pr il 2 0 0 9 - 1 2 :5 1 PM Tue_NV thuyvan89, on Apr 16 2009, 11:56, said: Em v ẫn chưa làm được Code đâu !Hu hu hu! Các anh chỉ giúp em : các thao tác tuần tự nhé, em cảm ơn nhiều! Bạn lưu file này về trong một thư mục nào đó. http://www.cadviet.com/upfiles/gfi.lsp (http://www.cadviet.com/link/?f=upfiles/gfi.lsp&w=1787) Vào CAD -> đánh lệnh AP(Apload) -> Hiện lên hộp thoại Load/Unload aplication -> Bạn chỉ đường dẫn chọn file lưu đó -> Chọn Load -> Chọn Close . Bạn đánh lệnh gfi xem sao. Khi chạy Lisp yêu cầu nhập điểm đầu, điểm cuối và đường chân kích thước (giống dimlinear) và Lisp tự động điền luôn tiền tố Ø trước kích thước Chúc thành công nhé Gửi v à o 0 9 A u g u st 2 0 0 9 - 0 7 :5 8 PM MoneyFan E mới học Cad , e đã làm theo hướng dẫn ở trên ,nhưng vẫn chưa hiểu cách thực hiện và chạy các list này thế nào ,có phải đánh lệnh gì để nó chạy ko hay chỉ vào chọn đường dẫn load về ,......e chưa hiểu mong các bác chỉ dùm Gửi v à o 0 9 A u g u st 2 0 0 9 - 0 8 :3 9 PM svba1608 MoneyFan, on Aug 9 2009, 19:58, said: E m ới học Cad , e đã làm theo hướng dẫn ở trên ,nhưng v ẫn chưa hiểu cách thực hiện v à chạy các list này thế nào ,có phải đánh lệnh gì để nó chạy ko hay chỉ v ào chọn đường dẫn load v ề ,......e chưa hiểu m ong các bác chỉ dùm Đây có phải điều bạn muốn hỏi: http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 3/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Tue_NV, on Apr 16 2009, 11:45, said: Bạn m ở notepad rồi paste nội dung v ào. Sau đó sav e file này thành m ột file có đuôi là lsp. Ví dụ file này lưu có tên là gfi.lsp ở ổ C:\ chẳng hạn (đuôi là lsp) Vào Cad -> Gõ AP (APPLOAD) -> Hiện lên hộp thoại Load/Unload Application -> Bạn chọn file Lisp bạn v ừa lưu đó ở ổ C:\gfi.lsp -> Chọn Load -> Chọn Close Để biết tên lệnh là gì? Bạn m ở file lsp ra, tìm đến các dòng m ã (defun c:, phía sau c: là tên lệnh. Ví dụ: (defun c:gfi thì tên lệnh là gfi. Bạn đọc thêm bài v iết này nhé : Hướng dẫn sử dụng m ã Lisp (http://www.cadv iet.com /forum /index.php? showtopic= 1 7 87 ) Với những lisp có sắn, bạn chỉ việc down về, gõ ap để appload lisp. Muốn biết lệnh của lisp, bạn mở file ra, tìm dòng chữ sau "defun c:". Đó chính là lệnh của lisp. Mong bạn hiểu! Gửi v à o 2 9 Oct ober 2 0 0 9 - 1 2 :5 3 PM dinhcong Mình mới xem qua mã Lisp nên chưa hiểu lắm. Mình có down file có đuôi VLX, nhưng không biết thi hành lệnh thế nào? Đã convert sang file lsp để đọc, được 1 thư mục rất nhiều file, mình mở file có đuôi .fas_.lsp xem defun là gì để thi hành lệnh nhưng báo lỗi. Mà khi apload file lsp sau hki convert lại báo lỗi ở dòng Common, thế là sao nhỉ? Gửi v à o 1 4 Ja n u a r y 2 0 1 0 - 0 3 :4 5 PM gia_bach thaiquyenck, on Nov 14 2009, 14:20, said: Mấy anh ơi cho em hỏi các lệnh v ẽ trong cad( chẳng hạn như line, circle, rectangle,...)khi v ào lisp thì m ình phải sử dụng như thế naò v ậy ? - Chẳng hạn như lệnh circle : (Com m and "circle" p1 r).... Mấy lệnh đó có sử dụng giống như khi m ình v ẽ không ? tức là thứ tự nhập điểm có giống nhau k? Mấy anh chỉ cho em cách sử dụng luôn nha. Ví dụ vẽ line, circle, rectangle bằng command File lisp: dt1_v t1_rec1.lsp Download (http://www.cadv iet.com/forum/topic/1 7 87 -huong-dan-su-dung- ma-lisp/) (defun C:dt1(/ pt1 pt2 ) (setq pt1 (getpoint "\nDiem dau :") pt2 (getpoint pt1 "\nDiem cuoi : ")) (com m and "line" pt1 pt2 "" ) (princ) )(defun C:v t1(/ oo r ) (setq oo (getpoint "\nT am :") r (getdist oo "\nBan kinh :")) (com m and "circle" oo r ) (princ) )(defun C:rec1(/ pt1 pt2 ) (setq pt1 (getpoint "\nDiem dau :") pt2 (getpoint pt1 "\nDiem doi dien :")) (com m and "rectang" pt 1 pt2) (princ) ) Ví dụ vẽ line, circle bằng AutoLisp File lisp: dt2_v t2.lsp Download (http://www.cadv iet.com/forum/topic/1 7 87 -huong-dan-su-dung-ma-lis p/) http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 4/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum (defun C:dt2(/ pt1 pt2 ) (setq pt1 (getpoint "\nDiem dau :") pt2 (getpoint pt1 "\nDiem cuoi : ")) (entm ake (list '(0 . "LINE")(cons 10 pt1)(cons 11 pt2) )) (princ) )(defun C:v t2(/ oo r ) (setq oo (getpoint "\nT am :") r (getdist oo "\nBan kinh :")) (entm ake (list '(0 . "CIRCLE")(cons 1 0 oo)(cons 40 r) )) (princ) ) Ví dụ vẽ rectangle bằng AutoLisp, độ phức tạp tăng lên File lisp: rec2.lsp Download (http://www.cadv iet.com/forum/topic/1 7 87 -huong-dan-su-dung-ma-lisp/) (defun C:rec2(/ ll ur ) (defun m akeLWPoly line(lst-pt) (entm ake (apply (function appe nd) (cons (list '(0 . "LWPOLY LINE") '(100 . "AcDbEntity ") '(100 . "AcDbPoly line") (cons 90 (length lst-pt)) '(7 0 . 1) ) (m apcar (function list) (m apcar (function ( lam bda (a) (cons 10 a))) lst-pt) ) ;_ m apcar ) ;_ cons ) ;_ apply ) ) (setq ll (getpoint "\ nDiem dau :") ur (getpoint ll "\nDiem doi dien :")) (m akeLWPoly line (list ll (list (car ll)(ca dr ur)) ur (list (car ur)(cadr ll)))) (princ) ) Gửi v à o 1 5 Ja n u a r y 2 0 1 0 - 0 9 :5 4 A M gia_bach DTCAT, on Jan 14 2010, 13:54, said: Chao cac bac!E la thanh v ien m oi toe!Xin cac bac chi bao giup!Hien e dang co Lisp co đuổi dạng *.fas; em m uốn tìm hiểu cấu trúc bên trong của Lisp m à không thể m ở được. Có bác nào có cách chuy ển v ề *.lsp được không?E đang cần, rất cần..... Vấn đề bạn đặt ra khá tế nhị. Bạn hãy search trên diễn đàn, chủ đề này đã bàn rất nhiều rồi. hay http://www.cadviet.c...p?showtopic=324 (http://www.cadviet.com/forum/index.php?showtopic=324) http://www.cadviet.c...-Lsp-t3252.html (http://www.cadviet.com/forum/Lai-Van-De-Chuyen-VLX-Sang-Lspt3252.html) Gửi v à o 0 1 Febr u a r y 2 0 1 0 - 1 0 :2 5 A M ndtnv thaiquyenck, on Nov 14 2009, 14:20, said: Mấy anh ơi cho em hỏi các lệnh v ẽ trong cad( chẳng hạn như line, circle, rectangle,...)khi v ào lisp thì m ình phải sử dụng như thế naò v ậy ? - Chẳng hạn như lệnh circle : (Com m and "circle" p1 r).... Mấy lệnh đó có sử dụng giống như khi m ình v ẽ không ? tức là thứ tự nhập điểm có giống nhau k? Mấy anh chỉ cho em cách sử dụng luôn nha. Ngoài cách dùng command thì bạn có thể dùng hàm vl-cmdf với cú pháp tương tự. Dùng vl-cmdf có ưu điểm là CAD sẽ lượng giá các tham số giao cho command trước, nếu có lỗi sẽ trả về nil trong khi đó nếu dùng command thì ta không thể lường trước lỗi sẽ xảy ra như thế nào thangngucuto http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ Gửi v à o 0 1 Ju n e 2 0 1 0 - 0 4 :4 7 PM 5/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Cảm ơn bác vì kiến thức bổ ích này Gửi v à o 2 8 A u g u st 2 0 1 0 - 0 9 :0 4 A M kienctk4 gia_bach, on Jan 14 2010, 15:45, said: Ví dụ v ẽ line, circle, rect angle bằng command Ví dụ v ẽ line, circle bằng Aut oLisp Ví dụ v ẽ rect angle bằng Aut oLisp, độ phức t ạp t ăng lên Mình mới tìm hiểu Autolisp nên chưa biết nhiều lắm.Bạn có thể hướng dẫn cụ thể mình sử dụng Autolisp được không? Sử dụng file .lisp như thế nào? Minh chua hieu ve Gửi v à o 2 8 A u g u st 2 0 1 0 - 0 3 :2 0 PM saonam_duyxuyen hochoaivandot, on Aug 28 2010, 8:56, said: Em xin được hỏi v ấn đề như sau : Khi em dùng lệnh m easure Cad cho phép m ình Align Block. Nghĩa là qua đường cong thì hướng Block là theo phương tiếp tuy ến đường cong tại v ị trí chèn block. Vậy cho em hỏi Cad quản lý góc tiếp tuy ến của đường cong so v ới phương ngang qua thông số nào? Nhờ các anh có thể chỉ cho em cách để lấy góc đường tiếp tuy ến của đường cong tại 1 điểm so v ới phương ngang. Em đã xem các hàm trong v lax-curv e----m à không thấy ? Em m ới tập tành nên nếu có hỏi hơi ngớ ngẩn thì cũng m ong nhận được sự nhiệt tình của diễn đàn. Xin cảm ơn m ọi người. - Mình cũng vừa đăng ký thành viên để hỏi vấn đề này, Hi vong nhận được câu trả lời sớm của diễn đàn. Mình nghĩ thế này : Nếu là đường arc, circle thì mình có thể vẽ 1 đường nối tâm, Rồi xác định góc đường này so với phương ngang dễ dàng bằng lệnh (angle point center), Nhưng nếu là đường curve tổng quát được ghép từ nhiều đường (Có thể có nhiều hơn 1 điểm center) thì làm sao xác định góc của đường tiếp tuyến với phương ngang. Chắc phải có 1 biến nào đó chứa thông số này vì khi mình vẽ 1 đường line từ 1 điểm và rê chuột chọn osnap : parallel thì Cad cho ta đường tiếp tuyến Gửi v à o 2 3 Sept em ber 2 0 1 0 - 0 1 :2 3 PM phucprodhv Tại sao mình vẫn làm theo hướng dẫn mà vẫn không dc vậy hè? nhờ các bác chỉ dùm. thanks nhìu nhé! Gửi v à o 2 8 Sept em ber 2 0 1 0 - 1 0 :4 0 A M tuanduc Bani có thể nói cụ thể hơn không. Ví dụ như mở notepad rồi paste nội dung vào đâu? Khi mình mở notepad, sau đó save file này thành một file có đuôi là lsp nhưng ko đc. Có thể gửi file hướng dẫn đính kèm ko. nguyen.huy.const http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ Gửi v à o 3 0 Sept em ber 2 0 1 0 - 0 5 :2 9 PM 6/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Các bạn có thể nói rõ hơn về tác dụng của LISP giúp mình được ko.Thanks all Gửi v à o 0 1 Oct ober 2 0 1 0 - 1 2 :0 4 A M phucprodhv mình đã làm và sử dụng rùi.nó rất hay.nó giúp ta vẽ nhanh hơn nhiều.nhưng mà khi nào sử dụng thì phải chạy nó truớc.anh em ai có cách nào mà nó tự đọng chạy như các lệnh bình thuờng không? chỉ dùm mình nhé!thanks! Gửi v à o 0 1 Oct ober 2 0 1 0 - 0 7 :5 5 A M 18011985 phucprodhv, on Oct 1 2010, 0:04, said: m ình đã làm v à sử dụng rùi.nó rất hay .nó giúp ta v ẽ nhanh hơn nhiều.nhưng m à khi nào sử dụng thì phải chạy nó truớc.anh em ai có cách nào m à nó tự đọng chạy như các lệnh bình thuờng không? chỉ dùm m ình nhé!thanks! Bạn dùng lệnh appload, Chọn button contents, chọn button add, chọn các lisp bạn thường xuyên sử dụng ấn OK, Close, Close Gửi v à o 0 4 Oct ober 2 0 1 0 - 1 2 :5 1 PM lyky Để ACAD tự động load một AutoLisp nào đó, điều đầu tiên bạn phải chép file LISP đó vào folder Support (nằm trong vùng cài đặt của ACAD trong máy bạn). Sau đó mở file Acad.lsp lên (file này nằm sẵn trong Support, là Autolisp duy nhất được ưu tiên tự động cập nhật mặc nhiên). Thêm vào ở vị trí thích hợp (nghĩa là ở sau vị trí kết thúc hoặc ở trước vị trí bắt đầu của một đoạn code thống nhất nào đó) một đoạn như sau (chọn cách nào cũng được): 1. (load "TÊN FILE LISP CẦN TẢI") 2. (command "load" ""TÊN FILE LISP CẦN TẢI") Cần tự động load bao nhiêu file thì bạn cần thêm vào bấy nhiêu dòng. Sau đó lưu file lại, khởi động ACAD lên, các LISP mà bạn yêu cầu đã được tự động cập nhật rồi đó. chúc các bạn vui và mọi điều may mắn! Lý Kỳ. Gửi v à o 2 9 Oct ober 2 0 1 0 - 1 2 :3 1 PM dandongcoc_boison Làm thế nào để save tex *txt thanh LSP được các bạn nhỉ? Gửi v à o 2 9 Oct ober 2 0 1 0 - 1 2 :5 1 PM phamthanhbinh dandongcoc_boison, on Oct 29 2010, 12:31, said: Làm thế nào để sav e tex *txt thanh LSP được các bạn nhỉ? Sau khi bạn soạn thảo xong lisp trên notepad, bạn click vào nút save as từ menu file trên thanh công cụ. Trong hộp thoại save as, bạn click vào nút file type, chọn all file. Trong dòng file name bạn nhập đầy đủ cả tên và kiểu file mà bạn muốn , ví dụ: hoclisp.lsp. Nhớ click vào dấu kiểm mã text Ansi. Sau đó click nút save là OK. Bạn sẽ có file *.lsp mong muốn Chúc thành công. Trang 1 / 2 Back to AutoLisp CA DV iet for u m → Lập t r ìn h CA D → A u t oLisp http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 7/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ 8/8