Program AutoCAD – Pelajaran Teknik Gambar

Seiring dengan lajunya perkembangan informasi dan teknologi, saat ini hampir semua bidang pekerjaan memanfaatkan komputer sebagai alat bantu. Demikian pula dalam bidang teknik,perangkat lunak komputer sangat dibutuhkan untuk mempercepat proses dan mendapatkan hasil pekerjaan yang akurat. Tuntutan dunia usaha/dunia industri yang selalu berkembang dan persaingan dalam produk dan jasa menciptakan peluang munculnya teknologi baru untuk memenuhi kebutuhan tersebut.

Suatu perusahaan pembuatperangkat lunak di Amerika, AUTODESK telah menciptakan perangkat lunak untuk membantu perancangan yaitu Computer Aided Design (CAD). Perangkat lunak tersebut adalah AUTOCAD, yang saat ini telah banyak digunakan dalam berbagai bidang teknik, antara lain gambarArsitektur, Mesin, Automotif, Survai dan Pemetaan dan sebagainya.

Dewasa ini AutoCAD adalah salah satu dari perangkat lunak CAD yang terbanyak digunakan oleh Dunia Usaha/Dunia Industri maupun perorangan. Hal ini disebabkan karena perangkat lunak ini menawarkan berbagai kemudahan dalam menggambar, baik gambar 2 dimensi maupun 3 dimensi secara akurat dan memiliki sekian banyak fasilitas untuk mempercepat proses menggambar. Selain itu karena AutoCAD adalah perangkat lunak CAD yang pertama dan yang dapat dijalankan pada PC (Personal Computer). AutoCAD telah dijadikan standar perangkat lunak untuk IBM PC, sehingga hardware-hardware penunjangnya (Plotter, Digitiser dan lain-lain) selalu menyediakan driver untuk AutoCAD. Dan sekarang telah banyak dibuat perangkat lunak pembantunya (Third Party Software), yang menjadikan fungsi AutoCAD lebih spesifik dengan bidang teknik tertentu.

Salah satu perusahaan pembuat perangkat lunak pembantu AutoCAD yang selalu mengikuti perkembangan AutoCAD adalah SOFTDESK, produknya antara lain adalah perangkat lunak pembantu AutoCAD untuk pembuatan gambar Arsitektur dalam modul Arsitektural, Konstruksi Dalam Modul Struktural, dan Modul Civil Survey untuk pembuatan peta kontur. Perangkat-perangkat lunak tersebut dijalankan didalam AutoCAD dan masih banyak lagi Third Party Software yang telah beredar di  pasaran.

Dari pertama dikeluarkan AutoCAD Release 1, Desmber 1982 Release 12, Juni 1992 , Release 13 , Desember 1995 hingga sekarang Release 2008, telah banyak memberikan kontribusinya terhadap perkembangan rancang bangun bidang teknik, maka sudah menjadi kebutuhan kita dalam bidang pekerjaan teknik sekaligus untuk mengantisipasi tuntutan dunia usaha dan dunia industri saat ini.

Dalam buku ini akan banyak digunakan perintah standar yang memungkinkan bila ada perkembangan baru lagi tidak terlalu kesulitan untuk mengikutinya, karena pada dasarnya perintah dasarnya antara release awal dan terakhir sama saja, hanya untuk versi baru ditambah kemudahan-kemudahan dalam pengoperasiannya.

Kini program AutoCAD tampil dengan sistem full windows, hal ini menyebabkan semakin mudahnya pengguna untuk menggunakan program AutoCAD, sekalipun bagi pemula yang baru saat ini mengenal AutoCAD karena adanya icon-icon/tool bar yang mewakili suatu perintah, pada umumnya akan lebih mudah mengingat daripada harus mengetikan banyak perintah.

Pada dasarnya perintah-perintah pada program AutoCAD dikelompokkan menjadi 3, yaitu perintah-perintah gambar, perintah-perintah edit/modifikasi dan perintah-perintah bantu/ utilitas. Tidak semua perintah divisualisasikan dengan icon, tetapi pada umumnya untuk perintahprintah yang sangat sering digunakan disediakan icon-nya.

Berdasarkan pengalaman dari beberapa pelatihan yang telah dilaksanakan, metode penggabungan 3 kelompok perintah sekaligus melalui suatu job, lebih efektif daripada menguraikan 3 perintah tersebut secara parsial. Karena itu dalam buku ini akan terjadi gabungan antara perintah parsial dan perintah gabungan menjadi satu kesatuan. Untuk itu job atau tugas latihan disusun berdasarkan tingkat yang sederhana bertahap ke tingkat yang lebih rumit.

Sumber: Buku Sekolah

Terima Kasih: Ok Rek | Produk Duwur | Martapura| Batik Tulis | Millo Shop | Dutapulsa

point inside area to be calculated

(defun c:ga (/ a ar pt sc pt1)
(setq pt1 (getpoint “Select point inside area to be calculated: “))
(command “-boundary” pt1 “”)
(setq A (ssget “L”))
(setq unts (getvar “lunits”))
(setvar “lunits” 2)
(command “area” “e” a )
(setq ar (getvar “area”))
(setvar “lunits” unts)
(setq pt (getpoint “select location for area note: “))
(command “text” pt”"”" ar)
)

merubah teks menjadi huruf besar atau huruf kecil

(defun case(str / A F AN DI)
(setq rr *error* *error* merr)
(setq v1 (ssget ‘((0 . “TEXT”))) A 0)
(if v1 (while (< A (sslength v1))
(setq F (assoc 1 (setq DI (entget (ssname v1 A)))))
(setq AN (cons 1(strcase(cdr F)str)))
(entmod (subst AN F DI))
(setq A (1+ A))
) )(setq *error* rr) A)

(defun c:cast()(case T))
(defun c:case()(case nil))

Membut kotak dengan memasukkan ukurannya

;Membut kotak dengan memasukkan ukurannya
(defun c:bx(/ af an di)
(setq af(getp “\n Base point: “)
an(getreal “Horizontal: “))
(command “line” “non” af “non”(list(+(car af)an)(cadr af)) “”)
(setq di(getreal(strcat”\n Vertical : “)))
(if(not di)(setq di an))
(command”line” “” “non”(list(+(car af)an)(+(cadr af)di))
“non”(list(car af)(+(cadr af)di)) “non”af “”"line”
“non”(list(+(car af)(/ an 2))(-(cadr af)(/ di 10)))
“non”(list(+(car af)(/ an 2))(+(cadr af)(* di 1.1))) “”"line”
“non”(list(+(car af)(* an 1.1))(+(cadr af)(/ di 2)))
“non”(list(-(car af)(/ an 10))(+(cadr af)(/ di 2))) “”)
(princ))

SS

SS

Jadi tanggal sekarang

;Jadi tanggal sekarang

;Edit text menjadi tanggal sekarang

(defun c:dy(/ af an d i) (setq af (RTOS(GETVAR”CDATE”)2 4)) (setq an(cons 1(strcat(SUBSTR af 10 2)”:”(SUBSTR af 12 2) ” # “(SUBSTR af 7 2)”-”(SUBSTR af 5 2)”-”(SUBSTR af 1 4) ” # “(GETVAR”DWGPREFIX”) “\ ” (GETVAR”DWGNAME”)))) (setq d(assoc 1(setq i(entget(car(entsel “select text: “)))))) (entmod (subst an d i)) an )

Membuat kotak dengan memasukkan ukurannya

;Membut kotak dengan memasukkan ukurannya (defun c:bx(/ af an di) (setq af(getp “\n Base point: “) an(getreal “Horizontal: “)) (command “line” “non” af “non”(list(+(car af)an)(cadr af)) “”) (setq di(getreal(strcat”\n Vertical < “(rtos an 2 0)” > : “))) (if(not di)(setq di an)) (command”line” “” “non”(list(+(car af)an)(+(cadr af)di)) “non”(list(car af)(+(cadr af)di)) “non”af “”"line” “non”(list(+(car af)(/ an 2))(-(cadr af)(/ di 10))) “non”(list(+(car af)(/ an 2))(+(cadr af)(* di 1.1))) “”"line” “non”(list(+(car af)(* an 1.1))(+(cadr af)(/ di 2))) “non”(list(-(car af)(/ an 10))(+(cadr af)(/ di 2))) “”) (princ))

Merubah sudut text berdasarkan satu garis yang dipilih

;Merubah sudut text berdasarkan satu garis yang dipilih

;Dari end point terdekat kearah endpoint terjauh

 (DEFUN C:99(/ rr v2 se a f an d i k u su ma) (setq rr *error* *error* merr) (setq v1(ssget ‘((0 . “TEXT”))) V2 0 se(nsel” Select line : “)) (setq a (cdr (assoc 10 (entget (car se)))) an (distance (car (cdr se)) a) f (cdr (assoc 11 (entget (car se)))) d (distance (car (cdr se)) f) ) (if (< an d )(setq i a k f)(setq i f k a)) (setq u (cons 50(ANGLE i k))) (while (< v2 (sslength v1)) (setq su (assoc 50 (setq ma(entget (ssname v1 v2))))) (entmod (subst u su ma)) (setq v2 (1+ v2)) ) (setq *error* rr)(princ))

Yang butuh silakan copy. Untuk  yang lain pesan saja. jika ada waktu tak bikinkan. Bayarnya terserah kamu. gratis juga boleh.