Trong lĩnh vực đồ họa (AutoCad), ngôn ngữ lập trình AutoLisp được ứng dụng rộng rãi. Tuy nhiên ngôn ngữ AutoLisp có những hạn chế nhất định và phức tạp. Những lỗi mở ngoặc, đóng ngoặc () rất khó chịu và không phải dễ dàng tìm ra. Sau 1 thời gian nghiên cứu về AutoLisp, tôi ko tiếp tục nữa. Theo tôi, những bạn ngành kỹ thuật (có dùng AutoCad) nếu biết về VBA for Excel thì nên sử dụng VBA for AutoCad, không nên dùng AutoLisp. Sau đây tôi giới thiệu tiện ích vẽ mặt cắt địa chất công. | Sử dụng AutoLisp trong AutoCad Trong lĩnh vực đồ họa AutoCad ngôn ngữ lập trình AutoLisp được ứng dụng rộng rãi. Tuy nhiên ngôn ngữ AutoLisp có những hạn chế nhất định và phức tạp. Những lỗi mở ngoặc đóng ngoặc rất khó chịu và không phải dễ dàng tìm ra. Sau 1 thời gian nghiên cứu về AutoLisp tôi ko tiếp tục nữa. Theo tôi những bạn ngành kỹ thuật có dùng AutoCad nếu biết về VBA for Excel thì nên sử dụng VBA for AutoCad không nên dùng AutoLisp. Sau đây tôi giới thiệu tiện ích vẽ mặt cắt địa chất công trình chưa được hoàn chỉnh bằng AutoLisp để các bạn tham khảo. Chương trình gồm 2 file và . Để chạy chương trình đầu tiên bạn mở file trong AutoCad2004. Sau đó vào Tools Load Application AutoCAD 2004 - UNREGISTER ED VERSION @ File Edit View Insert Format Tools Draw Dimension Modify Window Help Autodesk Website CAD Standards Spelling Quick Select. Display Order Inquiry Attribute Extraction. Properties Ctrl 1 Designcenter Ctrl 2 Tool Palettes Window Ctrl 3 dbConnect Ctrl 6 Load Application. Run Script. Macro AutoLISP Cửa sô Load Unload Application hiện ra bạn chọn file trong look in Sau đó chọn Load rồi Close. Nếu việc Load thành công thì máy sẽ báo IZH Add to History Unload Startup Suite Applications History list File 1 Path C Documents and Settings userprckJ . CAProgram Files AutoCAD 2ŨŨ4 su acad2ŨŨ4do. C Program FilesV utoCAD 2ŨŨ4 su C Program FilesV utoCAD 2ŨŨ4 AcDblClkEdi. CAProgram FilesWutoCAD 2ŨŨ4 v _ -Ị iL _ 11 I Để chạy được đầu tiên bạn đặt chế độ Osnap off. Sau đó ở dòng command bạn gõ TL thước tỷ lệ . Khi vào xong các yêu cầu thì sẽ thoát lệnh. Dòng command trống xuất hiện bạn vào HK Hố khoan rồi nhập các yêu cầu vào. Để hiểu hơn các lệnh AutoLisp mời các bạn xem code Ve mat cat dia chat cong trinh defun C TL Saumax setq Vitri getpoint nCho vi trí thuoc ty lê setq TLD getreal nCho ty lê dung 1 setq TLN getreal nCho ty lê ngang 1 setq Batdau getreal nCho cao dô bat .
