Memasukkan block AutoCAD dengan mudah menggunakan AutoLISP

Memasukkan block gambar Autocad sangatlah mudah dengan digabungkan menggunakan AutoLISP.

Silahkan baca Mengganti perintah / command pada Autocad : Menengah . untuk mempermudah mengikuti penjelasan di tulisan ini.

Sangat cocok bagi para drafter yang menggunakan suatu komponen gambar yang sama secara berulang di dalam suatu gambar yang kompleks. Sebagai contoh kasus yang mudah adalah adanya pekerjaan revisi sebuah gambar yang harus menggunakan gambar segitiga revisi.

Revision Triangle

Diperlukan command AutoCAD REVCLOUD untuk pekerjaan revisi gambar, dan INSERT block untuk menambahkan segitiga revisi pada gambar.

 Untuk lebih mudahnya dengan membuat command - command baru autocad sebagai berikut :

hanya contoh, command bisa diganti sesuai keinginan.

1.  Untuk command REVCLOUD ganti dengan command ( angka ) 44 .
2.  Untuk command INSERT permudah dengan menggukan AutoLISP hanya memilih point pada gambar kerja langsung tampil block gambar.  ganti dengan command ( angka ) 55 .
3. Simpan block gambar menjadi file dwg , beri nama file REV01.dwg dan simpan file tersebut difolder C:\block\. baca juga tulisan mempermudah Insert file block pada AutoCAD.

berikut sourcecode file yang diperlukan :

(defun C:44 ()
(command : "REVCLOUD")
(princ))

(defun C:55 ()
(setq p (getpoint))  ;untuk menentukan titik
(command : "INSERT" "C:/block/REV01.dwg" p "" "" "")  ;untuk memasukkan block pada titik
(princ))

Atau download file Autolisp langsung di  Autocad LISP Download

Agar kita tidak melakukan drag and drop kode - kode autoLISP  ke gambar kerja Autocad secara manual maka perlu pengaturan agar kode kita load otomatis, baca Konfigurasi agar AutoLISP load otomatis saat AutoCAD dibuka untuk cara konfigurasinya.

Semoga tulisan ini bermanfaat.

Belajar membuat Macro PDMS dengan bahasa PML ( Programmable Macro Language )

Bagi para pungguna PDMS pastinya sudah banyak yang memiliki PDMS Macro yang digunakan dalam penyelesaian pekerjaan terkait dengan PDMS tetapi banyak juga yang kurang mengerti cara membuatnya atau hanya sebatas pemakai saja.

Disini saya ingin berbagi ilmu yang sebatas saya ketahui tentang bahasa PML  PDMS Macros, karena membaca buku

PDMS Macro Tutorial

saja terkadang sulit memahami bahasa tersebut.
Silahkan kunjungi halaman

PDMS Macro Download

untuk mengetahui contoh - contoh macro PDMS.

Mungkin sekian dulu tulisan Belajar membuat Macro PDMS dengan bahasa PML nanti saya lanjutkan.
Kalau ada pertanyaan , kritik atau saran silahkan mengisi di kolom komentar. Terimakasih banyak atas kunjungannya.

Kumpulan command PDMS Move ( Summary )

Klik pada tulisan command - command move PDMS dibawah untuk melihat gambar ilustrasi dari command tersebut.
 
BY E 500
BY E 500 wrt SITE
MOVE N45E DIST 100
MOVE TOW IDP@ DIST 100
MOVE TOW /NAMA-ITEM PLANE E DIST 1500
MOVE TOW /VESSEL DIST 1500
MOVE N30W THR /BOX
MOVE E THR E3000
MOVE ALONG N45E THR IDP@
MOVE ALONG N45E DIST 20 TO /BEAM
MOVE Y30W DIST 30 TO(or FROM) /BOX
MOVE X DIST 1000 TO (or FROM) /VESSEL5
MOVE ALONG Y45E DIST 20 TO (or FROM) /COL8
MOVE IDP@ TOW /DATUM PLANE Y THROUGH Y1000
MOVE ALONG X PLANE Y45W DIST 20 TO /TANK5
MOVE X DIST 1000 BEH /WALL10
MOVE N45E DISTANCE 20 INFRONT /BOX
MOVE D ONTO /BOX
MOVE ALONG X45D DISTANCE 3000 UNDER /BEAM
MOVE P1 E INFRONT /BOX
MOVE ALONG N45E PLANE E DIST 10 BEH /WALL
MOVE D CLEAR ONTO /BEAM
MOVE ALONG U45W CLEAR 20 ONTO /BEAM
MOVE E60D CLEAR 1000 UNDER PIN6
MOVE E CLEAR 100 BEH /WALL
MOVE ALONG E45N CLEAR BEH /BOX
MOVE E CLEAR 1000 INFRONT /BOX
MOVE E45N CLEAR 100 BEH IDP@
MOVE TOWARD /TANK PLANE E CLEAR 30 INF /TANK

BY E 500
memindahkan benda yang sedang dipilih atau CE ( Current Element ) sejauh 500 ke arah Timur ( East ).

BY E 500 wrt SITE
memindahkan benda yang sedang dipilih atau CE ( Current Element ) sejauh 500 ke arah Timur sumbu SITE.

MOVE N45E DIST 100
memindahkan object yang sedang dipilih / current element ( CE ) sepanjang North 45deg East di sitem sumbu Owner ( lihat tulisan sebelumnya ) dengan jarak 100. Untuk lebih jelasnya silahkan lihat gambar dibawah.

MOVE TOW IDP@ DIST 100
memindahkan object yang sedang dipilih / current element ( CE ) sepanjang atau searah dengan titik yang dapat kita pilih sejauh 100. Untuk lebih jelasnya silahkan lihat gambar dibawah.

MOVE TOW /NAMA-ITEM PLANE E DIST 1500
yaitu command untuk memindahakan benda sepanjang / menuju nama-item dengan jarak perpindahan axis East ( X ) sejauh 1500

MOVE TOW /VESSEL DIST 1500
command untuk memindahkan benda sepanjang / menuju VESSEL dengan jarak 1500

MOVE N30W THR /BOX
yaitu memindahkan benda ( CE ) kearah North dan 30 West hingga titik origin benda ( CE ) bersinggungan / tegak lurus dengan garis referensi North dan 30 West dari origin /BOX.

MOVE E THR E3000
yaitu memindahkan benda ( CE ) kearah East terhadap Owner axis ( baca tulisan sebelumnya ) hingga titik origin East benda ( CE ) berada pada koordinat axis E3000 terhadap sumbu Owner.

MOVE ALONG N45E THR IDP@
yaitu memindahkan benda ( CE ) kearah North dan 45 East hingga titik origin benda ( CE ) bersinggungan / tegak lurus dengan garis referensi North dan 45 East dari titik yang kita pilih.

MOVE ALONG N45E DIST 20 TO /BEAM
yaitu memindahkan benda ( CE ) kearah North dan 45 East hingga titik origin benda ( CE ) bersinggungan / tegak lurus dengan garis referensi North dan 45 East dari /BEAM dengan jarak 20.

MOVE Y30W DIST 30 TO(or FROM) /BOX
Memindahkan benda ( CE ) ke arah Y 30 W sampai origin benda ( CE ) berpotongan dengan garis reference origin /BOX dengan jarak 30 sebelum / sesudah titik perpotongan

MOVE X DIST 1000 TO (or FROM) /VESSEL5
Memindahkan benda ( CE ) ke arah X ( x of owner ) sampai origin benda ( CE ) berpotongan dengan garis reference origin /VESSEL5 dengan jarak 1000 sebelum / sesudah titik perpotongan

MOVE ALONG Y45E DIST 20 TO (or FROM) /COL8
Memindahkan benda ( CE ) sepanjang Y 45 E sampai origin benda ( CE ) berpotongan dengan garis reference origin /COL8 dengan jarak 20 sebelum / sesudah titik perpotongan

MOVE IDP@ TOW /DATUM PLANE Y THROUGH Y1000
Memindahkan benda ( CE ) ke arah /DATUM sampai berpotongan dengan garis Y1000 dengan menklik / memilih sebuah POINT ( bukan ORIGIN ) sebagai acauan perpindahan benda.

MOVE ALONG X PLANE Y45W DIST 20 TO /TANK5
Memindahkan benda ( CE ) sepanjang X sampai berpotongan dengan garis referensi Y45W ( garis miring ) dengan jarak 20 sebelum /TANK5.

MOVE X DIST 1000 BEH /WALL10
Memindahkan benda ( CE ) ke arah X sampai origin benda melampaui sisi luar dari /WALL10 dengan jarak 1000 dari sisi luar /WALL10.

MOVE N45E DISTANCE 20 INFRONT /BOX
Memindahkan benda ( CE ) sepanjang N45E sampai origin benda memiliki jarak 20 dari sisi terdekat /BOX.

MOVE D ONTO /BOX
Memindahkan benda ( CE ) ke arah Down sampai origin benda berada di sisi atas dari /BOX.

MOVE ALONG X45D DISTANCE 3000 UNDER /BEAM
Memindahkan benda ( CE ) sepanjang N45E sampai origin benda memiliki jarak vertical 3000 dari sisi bawah /BEAM.

MOVE P1 E INFRONT /BOX
Memindahkan benda ( CE ) dengan reference P1 ke arah East sampai P1 benda berada di sisi depan permukaan dari /BOX.

MOVE ALONG N45E PLANE E DIST 10 BEH /WALL
Memindahkan benda ( CE ) ke arah N45E sampai origin benda berada di sisi belakang permukaan dari /WALL dengan jarak 10.

MOVE D CLEAR ONTO /BEAM
Memindahkan benda ( CE ) dengan memperhitungkan volume benda hingga benda berada tepat diatas permukaan /BEAM.

MOVE ALONG U45W CLEAR 20 ONTO /BEAM
Memindahkan benda ( CE ) dengan memperhitungkan volume benda hingga benda berada diatas permukaan /BEAM dengan jarak bersih 20.

MOVE E60D CLEAR 1000 UNDER PIN6
Memindahkan benda ( CE ) ke arah East 60 Down dengan memperhitungkan volume benda hingga benda berada dibawah titik PIN6 dengan jarak bersih 1000.

MOVE E CLEAR 100 BEH /WALL
Memindahkan benda ( CE ) sepanjang sumbu East ( X ) dengan memperhitungkan volume benda hingga benda berada dibelakang permukaan /WALL dengan jarak bersih antar benda 100.

MOVE ALONG E45N CLEAR BEH /BOX
Memindahkan benda ( CE ) sepanjang garis sumbu East 45 North dengan memperhitungkan volume benda hingga benda menempel dipermukaan bagian belakang /BOX.

MOVE E CLEAR 1000 INFRONT /BOX
Memindahkan benda ( CE ) sepanjang sumbu East ( X ) dengan memperhitungkan volume benda hingga benda berada didepan permukaan /BOX dengan jarak bersih antar benda 1000.

MOVE E45N CLEAR 100 BEH IDP@
Memindahkan benda ( CE ) sepanjang garis East 45 North dengan memperhitungkan volume benda hingga permukaan benda berjarak 100 dengan titik yang dipilih.

MOVE TOWARD /TANK PLANE E CLEAR 30 INF /TANK
Memindahkan benda ( CE ) ke arah /TANK dengan memperhitungkan volume benda hingga benda berada didepan permukaan /TANK dengan jarak bersih antar benda 30 dihitung dari garis sumbu East ( X ).

Untuk download macro PDMS ataupun AutoLISP AutoCAD silahkan buka link Download Macro.

Silahkan baca tulisan yang lainnya dari nggokabeh.com di Engineering tips dan trik dan kunjungi juga nggokabeh di youtube.com

PDMS Macro set Linelist attribut pada Pipa

Tools PDMS untuk memasukkan atribut data linelist ke object PIPE di program PDMS guna ditampilkan di gambar Isometrik dibuat dengan PML progamming.

Memang kebanyakan atribut - atribut data linlist dimasukkan dengan cara bulk load dari file Excel ke program PDMS. Tetapi walau begitu sering juga ada keadaan dimana harus memasukkan atribut - atribut tersebut secara manual yaitu pada saat tahap revisi gambar Piping Isometrik.

Dan saat ini saya gunakan pada saat tahap revisi gambar Piping Isometrik. 

Menu Load Data : untuk menyalin data dari pipa dengan atribut yang sama, sehingga atribut yang berada di PIPE yang dipilih akan tersalin ke form / menu set Linelist. 

Menu Set Att : digunakan untuk memasukan data dari form menu ke PIPE.

Cara menggunakan :

1. Pilih Current Element pada PIPE.

2. Isi secara manual data - data linelist di menu / form set Linelist attribut atau klik tombl Load Data untuk menyalin dari PIPE yang lain dengan cara memilih / men-klik item pipa.

3. Klik tombol Set Att untuk memasukkan data dari menu / form ke atribut PIPE.

Contoh gambar isometrik yang menampilkan atribut dari PIPE PDMS.

Silahkan menuju halaman kursus online untuk memesan.

Untuk download macro PDMS ataupun AutoLISP AutoCAD silahkan buka link Download Macro.

Silahkan baca tulisan yang lainnya dari nggokabeh.com di Engineering tips dan trik dan kunjungi juga nggokabeh di youtube.com

Commands Line PDMS MOVE Bagian 12 MOVE PLANE CLEARANCE INFRONT BEHIND

Baca tulisan sebelumnya Commands Line PDMS MOVE Bagian 11 MOVE CLEARANCE INFRONT BEHIND
Selanjutnya contoh command - command PDMS berikut ( MOVE PLANE CLEARANCE INFRONT BEHIND ) dapat digunakan dalam menentukan jarak bersih diantara dua benda sehingga mempermudah kita dalam pemodelan 3D tanpa harus memperhatikan titik pusat ( origin ) sebuah benda yang diperhitungkan adalah volume benda sehingga mendapatkan jarak bersih antar kedua benda dan jarak tersebut berdasarkan garis ukur ( sumbu ) yang berbeda dengan arah perpindahan.

contoh command line PDMS :

MOVE TOWARD /TANK PLANE E CLEAR 30 INF /TANK
Memindahkan benda ( CE ) ke arah /TANK dengan memperhitungkan volume benda hingga benda berada didepan permukaan /TANK dengan jarak bersih antar benda 30 dihitung dari garis sumbu East ( X ).

berikut ilustrasi dari command PDMS :

Untuk download macro PDMS ataupun AutoLISP AutoCAD silahkan buka link Download Macro.

Silahkan baca tulisan yang lainnya dari nggokabeh.com di Engineering tips dan trik dan kunjungi juga nggokabeh di youtube.com