Membuat LISP [.lsp] pada AutoCAD

Salam BHT,
Pada pertemuan kita kali ini Hotline Terkini akan mencoba share tentang Membuat LISP [.lsp] pada AutoCAD. Membuat file LISP tambahan?, bukankah dari Aplikasi AutoCAD sudah ada?, Acad2004.lsp, Acad2004doc.lsp, dan lain sebagainya. Di dalam menggambar dengan AutoCAD, kita dituntut Cepat dan Benar. Nah pada kesempatan kali ini Hotline Terkini akan memberi Tip bagaimana supaya kita bisa menggambar lebih Cepat, Bagaimana?, tertarikkah sobat?. Oke tanpa basa-basi lagi, langsung saja ke langkah-langkah Membuat LISP-file pada AutoCAD, dan cara penerapannya, agar kita bisa menggambar lebih Cepat.

CARA MENGGAMBAR CEPAT DENGAN LSP-FILE TAMBAHAN.

Sebelum bisa menggunakan Tip ”Cara Menggambar Cepat dengan AutoLISP tambahan” ini, sobat harus menyiapkan hal-hal berikut. Setelah anda membuat persiapan seperti tadi, anda sudah bisa meneruskan tip ini. Berikut langkah-langkahnya:

• Buka aplikasi pengolah kata, seperti Ms.Word atau Notepad.

• Copy Code-Code berikut, (Silahkan dimodify sesuai keinginan dengan format sesuai). 

;;; =========         PERINTAH CEPAT       =================

;;; Created by MARLON ALAMO on  http://cadtechnics.blogspot.com

;;; Modified by MARLON ALAMO on http://onlineprivates.blogspot.com

;;;

;;; MASUKKAN KE BARIS "AUTOLOAD" PADA Acad2004doc.LSP atau pada Acad2012doc.lsp

;;; folder adress: C:\Program Files\AutoCAD 2004\Support\Acad2004doc.lsp atau

;;; folder adress: C:\Program Files\AutoCAD 2012\Support\Acad2012doc.lsp

;;;

;;;      ===== AutoLoad LISP Applications =====

;;;      (autoload "keyCAD" '("keyCAD"))

;;;

;;; MASUKKAN KE BARIS TERAKHIR PADA Acad2004doc.LSP atau pada Acad2012doc.lsp

;;;      )

;;;      (if (findfile "keyCAD.lsp")

;;;      (load "keyCAD.lsp")

;;;      ) 

;;; ==========================

;;; Command Alias for "ROTATE"

;;; ==========================

(Defun C:R45 () (Command "rotate" pause pause pause "" "@" "45"))

(Defun C:R90 () (Command "rotate" pause pause pause "" "@" "90"))

(Defun C:R180 () (Command "rotate" pause pause pause "" "@" "180"))

(Defun C:R270 () (Command "rotate" pause pause pause "" "@" "270"))

;;; ==========================

;;; Command Alias for "ZOOM"

;;; ==========================

(Defun C:op () (Command "zoom" "p"))

(Defun C:zw () (Command "zoom" "w"))

(Defun C:za () (Command "zoom" "a"))

(Defun C:F () (Command "zoom" "e"))

(Defun C:zD () (Command "zoom" "D"))

(Defun C:x () (Command "zoom" "0.5x"))

(Defun C:xx () (Command "zoom" "2x"))

;;; ===========================

;;; Command Alias for "FILLET"

;;; ===========================

(Defun C:R0 () (Command "fillet" "r" "0" "fillet"))

(Defun C:R1 () (Command "fillet" "r" "1" "fillet"))

(Defun C:R2 () (Command "fillet" "r" "2" "fillet"))

(Defun C:R3 () (Command "fillet" "r" "3" "fillet"))

(Defun C:R4 () (Command "fillet" "r" "4" "fillet"))

(Defun C:R5 () (Command "fillet" "r" "5" "fillet"))

(Defun C:R6 () (Command "fillet" "r" "6" "fillet"))

(Defun C:R7 () (Command "fillet" "r" "7" "fillet"))

(Defun C:R8 () (Command "fillet" "r" "8" "fillet"))

(Defun C:R9 () (Command "fillet" "r" "9" "fillet"))

(Defun C:R10 () (Command "fillet" "r" "10" "fillet"))

(Defun C:R11 () (Command "fillet" "r" "11" "fillet"))

(Defun C:R12 () (Command "fillet" "r" "12" "fillet"))

(Defun C:R13 () (Command "fillet" "r" "13" "fillet"))

(Defun C:R14 () (Command "fillet" "r" "14" "fillet"))

(Defun C:R15 () (Command "fillet" "r" "15" "fillet"))

(Defun C:R20 () (Command "fillet" "r" "20" "fillet"))

;;; ================================

;;; Command Alias for "FILLET +0.5"

;;; ================================

(Defun C:R0+5 () (Command "fillet" "r" "0.5" "fillet"))

(Defun C:R1+5 () (Command "fillet" "r" "1.5" "fillet"))

(Defun C:R2+5 () (Command "fillet" "r" "2.5" "fillet"))

(Defun C:R3+5 () (Command "fillet" "r" "3.5" "fillet"))

(Defun C:R4+5 () (Command "fillet" "r" "4.5" "fillet"))

(Defun C:R5+5 () (Command "fillet" "r" "5.5" "fillet"))

(Defun C:R6+5 () (Command "fillet" "r" "6.5" "fillet"))

(Defun C:R7+5 () (Command "fillet" "r" "7.5" "fillet"))

(Defun C:R8+5 () (Command "fillet" "r" "8.5" "fillet"))

(Defun C:R9+5 () (Command "fillet" "r" "9.5" "fillet"))

(Defun C:R10+5 () (Command "fillet" "r" "10.5" "fillet"))

(Defun C:R11+5 () (Command "fillet" "r" "11.5" "fillet"))

(Defun C:R12+5 () (Command "fillet" "r" "12.5" "fillet"))

(Defun C:R13+5 () (Command "fillet" "r" "13.5" "fillet"))

;;; =============================

;;; Command Alias for "OFFSET" ;;;

;;; ===========================;;;

(Defun C:O1 () (Command "OFFSET" "1"))

(Defun C:O2 () (Command "OFFSET" "2"))

(Defun C:O3 () (Command "OFFSET" "3"))

(Defun C:O4 () (Command "OFFSET" "4"))

(Defun C:O5 () (Command "OFFSET" "5"))

(Defun C:O6 () (Command "OFFSET" "6"))

(Defun C:O7 () (Command "OFFSET" "7"))

(Defun C:O8 () (Command "OFFSET" "8"))

(Defun C:O9 () (Command "OFFSET" "9"))

(Defun C:O10 () (Command "OFFSET" "10"))

(Defun C:O11 () (Command "OFFSET" "11"))

(Defun C:O12 () (Command "OFFSET" "12"))

(Defun C:O13 () (Command "OFFSET" "13"))

(Defun C:O14 () (Command "OFFSET" "14"))

(Defun C:O15 () (Command "OFFSET" "15"))

(Defun C:O16 () (Command "OFFSET" "16"))

(Defun C:O17 () (Command "OFFSET" "17"))

(Defun C:O18 () (Command "OFFSET" "18"))

(Defun C:O19 () (Command "OFFSET" "19"))

(Defun C:O19 () (Command "OFFSET" "19"))

(Defun C:O32 () (Command "OFFSET" "32"))

(Defun C:O42 () (Command "OFFSET" "42"))

(Defun C:O45 () (Command "OFFSET" "45"))

;;; ========================================;;;

;;; Command Alias for OFFSET "KELIPATAN 0.5";;;

;;; ========================================;;;

(Defun C:O0+5 () (Command "OFFSET" "0.5"))

(Defun C:O1+5 () (Command "OFFSET" "1.5"))

(Defun C:O2+5 () (Command "OFFSET" "2.5"))

(Defun C:O3+5 () (Command "OFFSET" "3.5"))

(Defun C:O4+5 () (Command "OFFSET" "4.5"))

(Defun C:O5+5 () (Command "OFFSET" "5.5"))

(Defun C:O6+5 () (Command "OFFSET" "6.5"))

(Defun C:O7+5 () (Command "OFFSET" "7.5"))

(Defun C:O8+5 () (Command "OFFSET" "8.5"))

(Defun C:O9+5 () (Command "OFFSET" "9.5"))

(Defun C:O10+5 () (Command "OFFSET" "10.5"))

(Defun C:O11+5 () (Command "OFFSET" "11.5"))

(Defun C:O12+5 () (Command "OFFSET" "12.5"))

(Defun C:O13+5 () (Command "OFFSET" "13.5"))

(Defun C:O14+5 () (Command "OFFSET" "14.5"))

(Defun C:O15+5 () (Command "OFFSET" "15.5"))

(Defun C:O16+5 () (Command "OFFSET" "16.5"))

(Defun C:O17+5 () (Command "OFFSET" "17.5"))

(Defun C:O18+5 () (Command "OFFSET" "18.5"))

(Defun C:O19+5 () (Command "OFFSET" "19.5"))

;;;

;;; ========================================;;;

;;; Command Alias for OFFSET "KELIPATAN 5"  ;;;

;;; ========================================;;;

(Defun C:O25 () (Command "OFFSET" "25"))

(Defun C:O35 () (Command "OFFSET" "35"))

(Defun C:O45 () (Command "OFFSET" "45"))

(Defun C:O55 () (Command "OFFSET" "55"))

(Defun C:O65 () (Command "OFFSET" "65"))

(Defun C:O75 () (Command "OFFSET" "75"))

(Defun C:O85 () (Command "OFFSET" "85"))

(Defun C:O95 () (Command "OFFSET" "95"))

(Defun C:O105 () (Command "OFFSET" "105"))

(Defun C:O115 () (Command "OFFSET" "115"))

(Defun C:O125 () (Command "OFFSET" "125"))

(Defun C:O135 () (Command "OFFSET" "135"))

(Defun C:O145 () (Command "OFFSET" "145"))

(Defun C:O155 () (Command "OFFSET" "155"))

;;;

;;; ========================================;;;

;;; Command Alias for OFFSET "KELIPATAN 10" ;;;

;;; ========================================;;;

(Defun C:O20 () (Command "OFFSET" "20"))

(Defun C:O30 () (Command "OFFSET" "30"))

(Defun C:O40 () (Command "OFFSET" "40"))

(Defun C:O50 () (Command "OFFSET" "50"))

(Defun C:O60 () (Command "OFFSET" "60"))

(Defun C:O70 () (Command "OFFSET" "70"))

(Defun C:O80 () (Command "OFFSET" "80"))

(Defun C:O90 () (Command "OFFSET" "90"))

(Defun C:O100 () (Command "OFFSET" "100"))

(Defun C:O110 () (Command "OFFSET" "110"))

(Defun C:O120 () (Command "OFFSET" "120"))

(Defun C:O130 () (Command "OFFSET" "130"))

(Defun C:O140 () (Command "OFFSET" "140"))

(Defun C:O150 () (Command "OFFSET" "150"))

(Defun C:O160 () (Command "OFFSET" "160"))

(Defun C:O170 () (Command "OFFSET" "170"))

;;;

;;; ===========================

;;; Command Alias for "CHAMFER"

;;; ===========================

(Defun C:C1 () (Command "CHAMFER" "D" "1" "1" "CHAMFER"))

(Defun C:C2 () (Command "CHAMFER" "D" "2" "2" "CHAMFER"))

(Defun C:C3 () (Command "CHAMFER" "D" "3" "3" "CHAMFER"))

(Defun C:C4 () (Command "CHAMFER" "D" "4" "4" "CHAMFER"))

(Defun C:C5 () (Command "CHAMFER" "D" "5" "5" "CHAMFER"))

(Defun C:C6 () (Command "CHAMFER" "D" "6" "6" "CHAMFER"))

(Defun C:C7 () (Command "CHAMFER" "D" "7" "7" "CHAMFER"))

(Defun C:C8 () (Command "CHAMFER" "D" "8" "8" "CHAMFER"))

(Defun C:C9 () (Command "CHAMFER" "D" "9" "9" "CHAMFER"))

(Defun C:C10 () (Command "CHAMFER" "D" "10" "10" "CHAMFER"))

;;;

;;; ===========================

;;; Command Alias for "ISOVIEW"

;;; ===========================

(Defun C:88 () (Command "-VIEW" "_SEISO"))

(Defun C:888 () (Command "-VIEW" "_SWISO"))

(Defun C:99 () (Command "-VIEW" "_TOP"))

(Defun C:66 () (Command "-VIEW" "_LEFT"))

(Defun C:77 () (Command "-VIEW" "_RIGHT"))

;;; ===========================

;;; Command Alias for "SHADE"

;;; ===========================

(Defun C:W1 () (Command "-SHADEMODE" "_g"))

(Defun C:W2 () (Command "-SHADEMODE" "_L"))

(Defun C:W3 () (Command "-SHADEMODE" "_H"))

;;;

;;; ===============================================

;;;     QUICK COPY, MIRROR, MOVE

;;; ===============================================

(Defun C:MOV (/ gp) (setq gp (ssget)) (command "move" gp "" pause))

(Defun C:CQ (/ gp) (setq gp (ssget)) (command "copy" gp "" "@"))

(Defun C:MMy (/ gp) (setq gp (ssget)) (command "mirror" gp "" pause pause "y"));;;move-mirror

(Defun C:MMn (/ gp) (setq gp (ssget)) (command "mirror" gp "" pause pause "n")) ;;;copy-mirror

;;; ===============================================

;;; ===============================================

(princ "*** by Marlon Alamo ***")

• Modify Command-codes sesuai keperluan sobat. 
• Simpan/Save-as sebagai LSP file, misalnya: KeyCAD.lsp. (Ingat pada dialog save as type, pilih All Files (*.*) 
• Tutup Aplikasi (Ms.Word/Notepad) anda.
•  Buka file Acad2004doc.lsp (untuk AutoCAD 2004), atau Acad2012doc.lsp (untuk AutoCAD 2012). Catatan: Alamat folder Acad2004doc.lsp = C:\Program Files\AutoCAD 2004\Support 
• Cari Code berikut: AutoLoad LISP Applications, setelah ketemu Copy code berikut, (autoload "keyCAD" '("keyCAD")),letakkan dibawah  == AutoLoad LISP Applications == 

           Sehingga jadinya seperti ini :
 

===== AutoLoad LISP Applications =====

      (autoload "keyCAD" '("keyCAD"))

• Copy Code berikut, lalu Paste di baris terakhir dari Acad2012doc.lsp.

                              ;;;      (if (findfile "keyCAD.lsp")

;;;      (load "keyCAD.lsp")

;;;      )

• Simpan.   Pastikan keyCAD.lsp anda bekerja, dengan perintah Load Application, double klik Acad2004doc.lsp atau Acad2012doc.lsp (sesuai release yang digunakan). 
• Lakukan  juga pada keyCAD.lsp. 
• Selesai. File keyCAD.lsp anda siap digunakan untuk menyingkat (shortcut) atau sebagai Command-shortcut.

Okay, Sekian dulu pembahasan BHT dalam artikel  Membuat LISP [.lsp] pada AutoCAD. Semoga ini bisa bermanfaat. Salam BHT.

Bagikan Artikel ini via :

Share on fb Tweet Share on G+