sharing : Autolisp Jarak / Offset pada AUTOCAD..silahkan mencoba...

Offset jarak dengan kelipatan tertentu ini bisa di aplikasi kan ke autoCAD anda, dengan cara copy paste program autolisp ke program NOTEPAD  dikomputer anda , si save as dengan extension  : namafile.lsp
dan kemudian pada layar autoCAD di Appload lsp tersebut...semoga bermanfa'at....

Langkah 1

Langkah 2

 

Langkah 3

 

 Langkah 4

 

copy paste mulai dari sini....!!!

 tekan shift+panah bawah

;Jarak.LSP: Oleh Musa Sulaeman

;PT. total Bangun Persada

;021-5666999 ext.539-Jakarta

;Selamat menggunakan

;

;___________________________________________________________________________

(DEFUN C:5   () (COMMAND "offset" "5" ))

(DEFUN C:10   () (COMMAND "offset" "10" ))

(DEFUN C:15   () (COMMAND "offset" "15" ))

(DEFUN C:20   () (COMMAND "offset" "20" ))

(DEFUN C:25   () (COMMAND "offset" "25" ))

(DEFUN C:30   () (COMMAND "offset" "30" ))

(DEFUN C:35   () (COMMAND "offset" "35" ))

(DEFUN C:40   () (COMMAND "offset" "40" ))

(DEFUN C:45   () (COMMAND "offset" "45" ))

(DEFUN C:50   () (COMMAND "offset" "50" ))

(DEFUN C:55   () (COMMAND "offset" "55" ))

(DEFUN C:60   () (COMMAND "offset" "60" ))

(DEFUN C:65   () (COMMAND "offset" "65" ))

(DEFUN C:70   () (COMMAND "offset" "70" ))

(DEFUN C:75   () (COMMAND "offset" "75" ))

(DEFUN C:80   () (COMMAND "offset" "80" ))

(DEFUN C:85   () (COMMAND "offset" "85" ))

(DEFUN C:90   () (COMMAND "offset" "90" ))

(DEFUN C:95   () (COMMAND "offset" "95" ))

(DEFUN C:100   () (COMMAND "offset" "100" ))

(DEFUN C:115   () (COMMAND "offset" "115" ))

(DEFUN C:120   () (COMMAND "offset" "120" ))

(DEFUN C:125   () (COMMAND "offset" "125" ))

(DEFUN C:130   () (COMMAND "offset" "130" ))

(DEFUN C:135   () (COMMAND "offset" "135" ))

(DEFUN C:140   () (COMMAND "offset" "140" ))

(DEFUN C:145   () (COMMAND "offset" "145" ))

(DEFUN C:150   () (COMMAND "offset" "150" ))

(DEFUN C:155   () (COMMAND "offset" "155" ))

(DEFUN C:160   () (COMMAND "offset" "160" ))

(DEFUN C:165   () (COMMAND "offset" "165" ))

(DEFUN C:170   () (COMMAND "offset" "170" ))

(DEFUN C:175   () (COMMAND "offset" "175" ))

(DEFUN C:180   () (COMMAND "offset" "180" ))

(DEFUN C:185   () (COMMAND "offset" "185" ))

(DEFUN C:190   () (COMMAND "offset" "190" ))

(DEFUN C:195   () (COMMAND "offset" "195" ))

(DEFUN C:200   () (COMMAND "offset" "200" ))

(DEFUN C:225   () (COMMAND "offset" "225" ))

(DEFUN C:250   () (COMMAND "offset" "250" ))

(DEFUN C:275   () (COMMAND "offset" "275" ))

(DEFUN C:300   () (COMMAND "offset" "300" ))

(DEFUN C:325   () (COMMAND "offset" "325" ))

(DEFUN C:350   () (COMMAND "offset" "350" ))

(DEFUN C:375   () (COMMAND "offset" "375" ))

(DEFUN C:400   () (COMMAND "offset" "400" ))

(DEFUN C:425   () (COMMAND "offset" "425" ))

(DEFUN C:450   () (COMMAND "offset" "450" ))

(DEFUN C:475   () (COMMAND "offset" "475" ))

(DEFUN C:500   () (COMMAND "offset" "500" ))

(DEFUN C:525   () (COMMAND "offset" "525" ))

(DEFUN C:550   () (COMMAND "offset" "550" ))

(DEFUN C:575   () (COMMAND "offset" "575" ))

(DEFUN C:600   () (COMMAND "offset" "600" ))

(DEFUN C:625   () (COMMAND "offset" "625" ))

(DEFUN C:650   () (COMMAND "offset" "650" ))

(DEFUN C:700   () (COMMAND "offset" "700" ))

(DEFUN C:725   () (COMMAND "offset" "725" ))

(DEFUN C:750   () (COMMAND "offset" "750" ))

(DEFUN C:775   () (COMMAND "offset" "775" ))

(DEFUN C:800   () (COMMAND "offset" "800" ))

(DEFUN C:825   () (COMMAND "offset" "825" ))

(DEFUN C:850   () (COMMAND "offset" "850" ))

(DEFUN C:875   () (COMMAND "offset" "875" ))

(DEFUN C:900   () (COMMAND "offset" "900" ))

(DEFUN C:925   () (COMMAND "offset" "925" ))

(DEFUN C:950   () (COMMAND "offset" "950" ))

(DEFUN C:975   () (COMMAND "offset" "975" ))

(DEFUN C:1000   () (COMMAND "offset" "1000" ))

(DEFUN C:1100   () (COMMAND "offset" "1100" ))

(DEFUN C:1200   () (COMMAND "offset" "1200" ))

(DEFUN C:1250   () (COMMAND "offset" "1250" ))

(DEFUN C:1300   () (COMMAND "offset" "1300" ))

(DEFUN C:1400   () (COMMAND "offset" "1400" ))

(DEFUN C:1500   () (COMMAND "offset" "1500" ))

(DEFUN C:1600   () (COMMAND "offset" "1600" ))

(DEFUN C:1650   () (COMMAND "offset" "1650" ))

(DEFUN C:1700   () (COMMAND "offset" "1700" ))

(DEFUN C:1750   () (COMMAND "offset" "1750" ))

(DEFUN C:1800   () (COMMAND "offset" "1800" ))

(DEFUN C:1850   () (COMMAND "offset" "1850" ))

(DEFUN C:1900   () (COMMAND "offset" "1900" ))

(DEFUN C:1950   () (COMMAND "offset" "1950" ))

(DEFUN C:2000   () (COMMAND "offset" "2000" ))

(DEFUN C:2500   () (COMMAND "offset" "2500" ))

(DEFUN C:3000   () (COMMAND "offset" "3000" ))

(DEFUN C:3500   () (COMMAND "offset" "3500" ))

(DEFUN C:4000   () (COMMAND "offset" "4000" ))

(DEFUN C:4500   () (COMMAND "offset" "4500" ))

(DEFUN C:5000   () (COMMAND "offset" "5000" ))

(DEFUN C:5500   () (COMMAND "offset" "5500" ))

(DEFUN C:6000   () (COMMAND "offset" "6000" ))

(princ "  musa.sulaeman@totalbp.com loaded.")

(princ)

 apabila ada kesulitan silahkan hubungi : musa.sulaeman@totalbp.com
atau di 081777 2058