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 007 04 :2 PM Trang / Gửi v o Sept em ber 0 - :2 PM Nguyen Hoanh * Lisp gì? Lisp ngôn ngữ script chạy CAD, sử dụng mã lisp giúp AutoCAD mạnh POPULA R * Cách sử dụng file lisp Gồm bước: a Tải (load) file lisp vào AutoCAD Khi có file lisp ổ cứng, dùng lệnh appload (vào menu: Tools > Load Applications ) chọn file lisp cần sử dụng, nhấn vào phím load Với vẽ, thao tác tải file cần thực 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 8h00 tối thứ Bảy - Chủ nhật (tuần buổi) Khai giảng: 8:00 30/06/201 4 5 - 9 - w @ca dv iet com ca dv iet com /edu / b Gọi lệnh 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) nhấn enter * Lưu lại đường dẫn file sau lần load Bạn check vào ô Add to History, từ lần sau bạn cần click tên file lisp từ bảng History list * Để file lisp tự động load mở vẽ? bạn click vào ô contents 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 đoạn mã lấy từ CADViet về: - Nếu đoạn mã file lsp bạn việc download dùng chức appload lên để sử dụng (như nói trên) - Nếu đoạn mã nằm viết diễn đàn, mở notepad (hoặc chương trình soạn thảo cho phép bạn soạn file text) paste nội dung vào Sau save file thành file có đuôi lsp Sau appload lên dùng - Nếu chương trình có sử dụng file dcl, sld, dwg bạn có lựa chọn: Copy file vào thư mục support AutoCAD Copy vào thư mục khai báo thư mục với AutoCAD cách vào Menu: Tools > Options > Files > Support file search path > Add thêm đường dẫn bạn vào * T ìm tên lệnh file lisp Bạn mở file lsp (bằng notepad), tìm đến dòng mã (defun c:, phía sau c: tên lệnh Ví dụ: (defun c:NOILINE tên lệnh NOILINE Mặc định file lisp CADViet tên lệnh nằm tên file Ví dụ file tên abc_def.lsp file có lệnh abc 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 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 lisp - AutoLisp (http://www.cadviet.com/forum/topic/272-ve-thang-bang-lisp/) 09 - Lisp tiện ích dung sai - AutoLisp (http://www.cadviet.com/forum/topic/92994-lisp-tien-ich-ve-dung-sai/) 10 - Tổng hợp file lisp thường dùng - Page - 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 Visual Lisp Win7 - AutoLisp (http://www.cadviet.com/forum/topic/67533-hoitieng-viet-trong-visual-lisp-cua-win7/) 12 - Autocad 2012 không sử dụng LISP! - AutoLisp (http://www.cadviet.com/forum/topic/61405-autocad2012-khong-su-dung-duoc-lisp/) 13 - Tổng hợp file lisp thường dùng - Page - AutoLisp - CADViet (http://www.cadviet.com/forum/topic/7974-tong-hop-cac-file-lisp-thuong-dung/page-5) 14 - Tìm lệnh 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 A pr il 0 - 1 :5 A M thuyvan89 Tue_NV, on Apr 13 2009, 13:24, said: password : www.cadv iet.com Tuy nhiên cách thức hoạt động giống lệnh Ded Lệnh Ded thêm tiền tố lẫn hậu tố Về cách bạn ghi kích thưóc [ Ø3 00.80] Ø3 00.80 nhãn Altnate Units -> Multiplier alt units bạn để số khác Hãy nhập giá trị Multiplier alt units -> bạn có kết [ Ø1 ] Tuy nhiên, kết bạn m ong m uốn Cái m ong m uốn bạn Ø1 phải không? Rất tiếc, CAD làm chuy ện bạn Cách nhanh bạn sử dụng lệnh Ded(dim edit) Bạn chọn trước Dim Sty le quickselect Filter dùng Ded(Dim edit) để điền tiền tố Hoặc nhanh v ừa ghi kích thước xong, tự động nhập giá trị Ø trước kích thước Đây ý bạn phải không? Vậy bạn sử dụng đoạn Code Khi y cầu nhập điểm đầu, điểm cuối v đường chân kích thước (giống dim linear) Lisp tự động điề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 chưa làm Code đâu !Hu hu hu! Các anh giúp em : thao tác nhé, em cảm ơn nhiều! Gửi v o A pr il 0 - :5 PM Tue_NV thuyvan89, on Apr 16 2009, 11:56, said: Em v ẫn chưa làm Code đâu !Hu hu hu! Các anh giúp em : thao tác nhé, em cảm ơn nhiều! Bạn lưu file thư mục 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 đường dẫn chọn file lưu -> Chọn Load -> Chọn Close Bạn đánh lệnh gfi xem Khi chạy Lisp yêu cầu nhập điểm đầu, điểm cuối đường chân kích thước (giống dimlinear) Lisp tự động điền tiền tố Ø trước kích thước Chúc thành công Gửi v o A u g u st 0 - :5 PM MoneyFan E học Cad , e làm theo hướng dẫn ,nhưng chưa hiểu cách thực chạy list ,có phải đánh lệnh để chạy ko hay vào chọn đường dẫn load , e chưa hiểu mong bác dùm Gửi v o A u g u st 0 - :3 PM svba1608 MoneyFan, on Aug 2009, 19:58, said: E m ới học Cad , e làm theo hướng dẫn ,nhưng v ẫn chưa hiểu cách thực v chạy list ,có phải đánh lệnh để chạy ko hay v chọn đường dẫn load v ề , e chưa hiểu m ong bác 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 paste nội dung v Sau sav e file thành m ột file có đuôi lsp Ví dụ file lưu có tên gfi.lsp ổ C:\ chẳng hạn (đuôi 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 gì? Bạn m file lsp ra, tìm đến dòng m ã (defun c:, phía sau c: tên lệnh Ví dụ: (defun c:gfi tên lệnh gfi Bạn đọc thêm v iết : Hướng dẫn sử dụng m ã Lisp (http://www.cadv iet.com /forum /index.php? showtopic= 87 ) Với lisp có sắn, bạn việc down về, gõ ap để appload lisp Muốn biết lệnh lisp, bạn mở file ra, tìm dòng chữ sau "defun c:" Đó lệnh lisp Mong bạn hiểu! Gửi v o Oct ober 0 - :5 PM dinhcong Mình xem qua mã Lisp nên chưa hiểu Mình có down file có đuôi VLX, thi hành lệnh nào? Đã convert sang file lsp để đọc, thư mục nhiều file, mở file có đuôi fas_.lsp xem defun để thi hành lệnh báo lỗi Mà apload file lsp sau hki convert lại báo lỗi dòng Common, nhỉ? Gửi v o Ja n u a r y - :4 PM gia_bach thaiquyenck, on Nov 14 2009, 14:20, said: Mấy anh cho em hỏi lệnh v ẽ cad( chẳng hạn line, circle, rectangle, )khi v lisp m ình phải sử dụng naò v ậy ? - Chẳng hạn lệnh circle : (Com m and "circle" p1 r) Mấy lệnh có sử dụng giống m ình v ẽ không ? tức thứ tự nhập điểm có giống k? Mấy anh cho em cách sử dụng nha Ví dụ vẽ line, circle, rectangle command File lisp: dt1_v t1_rec1.lsp Download (http://www.cadv iet.com/forum/topic/1 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 pt2) (princ) ) Ví dụ vẽ line, circle AutoLisp File lisp: dt2_v t2.lsp Download (http://www.cadv iet.com/forum/topic/1 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 oo)(cons 40 r) )) (princ) ) Ví dụ vẽ rectangle AutoLisp, độ phức tạp tăng lên File lisp: rec2.lsp Download (http://www.cadv iet.com/forum/topic/1 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 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 Ja n u a r y - :5 A M gia_bach DTCAT, on Jan 14 2010, 13:54, said: Chao cac bac!E la 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 Lisp m m Có bác có cách chuy ển v ề *.lsp không?E cần, cần Vấn đề bạn đặt tế nhị Bạn search diễn đàn, chủ đề bàn nhiều 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 Febr u a r y - :2 A M ndtnv thaiquyenck, on Nov 14 2009, 14:20, said: Mấy anh cho em hỏi lệnh v ẽ cad( chẳng hạn line, circle, rectangle, )khi v lisp m ình phải sử dụng naò v ậy ? - Chẳng hạn lệnh circle : (Com m and "circle" p1 r) Mấy lệnh có sử dụng giống m ình v ẽ không ? tức thứ tự nhập điểm có giống k? Mấy anh cho em cách sử dụng nha Ngoài cách dùng command bạn dùng hàm vl-cmdf với cú pháp tương tự Dùng vl-cmdf có ưu điểm CAD lượng giá tham số giao cho command trước, có lỗi trả nil dùng command ta lường trước lỗi xảy thangngucuto http://www.cadviet.com/forum/topic/1787-huong-dan-su-dung-ma-lisp/ Gửi v o Ju n e - :4 PM 5/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Cảm ơn bác kiến thức bổ ích Gửi v o A u g u st - :0 A M kienctk4 gia_bach, on Jan 14 2010, 15:45, said: Ví dụ v ẽ line, circle, rect angle command Ví dụ v ẽ line, circle Aut oLisp Ví dụ v ẽ rect angle Aut oLisp, độ phức t ạp t ăng lên Mình tìm hiểu Autolisp nên chưa biết nhiều lắm.Bạn hướng dẫn cụ thể sử dụng Autolisp không? Sử dụng file lisp nào? Minh chua hieu ve Gửi v o A u g u st - :2 PM saonam_duyxuyen hochoaivandot, on Aug 28 2010, 8:56, said: Em xin hỏi v ấn đề sau : Khi em dùng lệnh m easure Cad cho phép m ình Align Block Nghĩa qua đường cong hướng Block theo phương tiếp ến đường cong v ị trí chèn block Vậy cho em hỏi Cad quản lý góc tiếp ến đường cong so v ới phương ngang qua thông số nào? Nhờ anh cho em cách để lấy góc đường tiếp ến đường cong điểm so v ới phương ngang Em xem hàm v lax-curv e m không thấy ? Em m ới tập tành nên có hỏi ngớ ngẩn m ong nhận nhiệt tình diễn đàn Xin cảm ơn m ọi người - Mình vừa đăng ký thành viên để hỏi vấn đề này, Hi vong nhận câu trả lời sớm diễn đàn Mình nghĩ : Nếu đường arc, circle vẽ đường nối tâm, Rồi xác định góc đường so với phương ngang dễ dàng lệnh (angle point center), Nhưng đường curve tổng quát ghép từ nhiều đường (Có thể có nhiều điểm center) xác định góc đường tiếp tuyến với phương ngang Chắc phải có biến chứa thông số vẽ đường line từ điểm rê chuột chọn osnap : parallel Cad cho ta đường tiếp tuyến Gửi v o Sept em ber - :2 PM phucprodhv Tại làm theo hướng dẫn mà không dc hè? nhờ bác dùm thanks nhìu nhé! Gửi v o Sept em ber - :4 A M tuanduc Bani nói cụ thể không Ví dụ mở notepad paste nội dung vào đâu? Khi mở notepad, sau save file thành file có đuôi lsp 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 Sept em ber - :2 PM 6/8 6/18/2014 Hướng dẫn sử dụng mã Lisp - AutoLisp - CADViet forum Các bạn nói rõ tác dụng LISP giúp ko.Thanks all Gửi v o Oct ober - :0 A M phucprodhv làm sử dụng rùi.nó hay.nó giúp ta vẽ nhanh nhiều.nhưng mà sử dụng phải chạy truớc.anh em có cách mà tự đọng chạy lệnh bình thuờng không? dùm nhé!thanks! Gửi v o Oct ober - :5 A M 18011985 phucprodhv, on Oct 2010, 0:04, said: m ình làm v sử dụng rùi.nó hay giúp ta v ẽ nhanh nhiều.nhưng m sử dụng phải chạy truớc.anh em có cách m tự đọng chạy lệnh bình thuờng không? dùm m ình nhé!thanks! Bạn dùng lệnh appload, Chọn button contents, chọn button add, chọn lisp bạn thường xuyên sử dụng ấn OK, Close, Close Gửi v o Oct ober - :5 PM lyky Để ACAD tự động load AutoLisp đó, điều bạn phải chép file LISP vào folder Support (nằm vùng cài đặt ACAD máy bạn) Sau mở file Acad.lsp lên (file nằm sẵn Support, Autolisp ư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 sau vị trí kết thúc trước vị trí bắt đầu đoạn code thống đó) đoạn sau (chọn cách được): (load "TÊN FILE LISP CẦN TẢI") (command "load" ""TÊN FILE LISP CẦN TẢI") Cần tự động load file bạn cần thêm vào nhiêu dòng Sau lưu file lại, khởi động ACAD lên, LISP mà bạn yêu cầu tự động cập nhật chúc bạn vui điều may mắn! Lý Kỳ Gửi v o Oct ober - :3 PM dandongcoc_boison Làm để save tex *txt LSP bạn nhỉ? Gửi v o Oct ober - :5 PM phamthanhbinh dandongcoc_boison, on Oct 29 2010, 12:31, said: Làm để sav e tex *txt LSP bạn nhỉ? Sau bạn soạn thảo xong lisp notepad, bạn click vào nút save as từ menu file 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 đủ tên 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 OK Bạn có file *.lsp mong muốn Chúc thành công Trang / 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 ... 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/ ... (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 lisp - AutoLisp. .. 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