Meningkatkan Kinerja Dengan Mempercepat Laju Mouse

Dengan mengganti kecepatan kursor mouse meningkatkan kinerja, menurut pengalaman saya pribadi sebagai pekerja dibidang engineering yang berhubungan dengan software autocad sangatlah membantu saya dalam mempercepat menyelesaikan pekerjaan jobs gambar saya terutama dengan cad. mouse sangatlah penting bagi para pengguna autocad jika tidak ada mouse. Bisa dibilang tidak akan bisa menggunakan software cad .

Meningkatkan Kinerja Dengan Mempercepat Laju MouseJika kita hanya menggunakan software microsoft office word atau excel maka tidak menggunakan mousepun kita masih dapat bekerja, maka saya mencoba untuk optimasi dibagian mouse kursor mouse yang cepat maka akan mudah menjakau area kerja windows dengan hanya menggerakkan sedikit mouse.

Jika tidak terbiasa menggunakan kursor yang cepat maka akan terasa aneh dan sulit dalam mengendalikan arah kursor mouse. jika kursor mouse semakin cepat maka akan berkurang tingkat presisinya sehingga kurang cocok untuk melakukan pekerjaan design grafis tetapi akan sangat membantu dalam menggambar menggunakan cad ataupun 3D PDMS.

Mari kita mengubah pengaturan kursor mouse. Saya menggunakan windows 7.

1. Start - Control Panel
Meningkatkan Kinerja Dengan Mempercepat Laju Mouse
2. Pilih gambar Mouse, dan klik pada gambar mouse

Meningkatkan Kinerja Dengan Mempercepat Laju Mouse

3. Pada menu Mouse Properties pilih tab Pointer Option dan geser nilai Motion menjadi Fast. Klik tombol Ok.
Atau cara cepatnya menggunakan :  Tombol_Windows + R   dan isikan pada menu run Main.cpl

Meningkatkan Kinerja Dengan Mempercepat Laju Mouse
Mouse Properties pada Windows

4. Silahkan coba perbedaan dan suasana baru dengan kursor yang lebih cepat.

Berikut tadi ulasan bagaimana mengganti kecepatan laju kursor pada windows 7 untuk meningkatkan kecepatan dalam bekerja, menurut saya. Semoga tulisan kali ini berguna bagi para pembaca. Baca juga tilisan lainnya di Engineering tips dan trik.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010


      Mudah dalam membuat nama dan alamat pada undangan begitulah yang semua harapkan dalam pembuatan kop surat undangan yang akan ditujukan kepada banyak penerima yang memiliki nama dan alamat yang berbeda. Secara standard kita akan membuat / menulis nama dan alamat tersebut secara satu persatu.
Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010 
       Tetapi program Microsoft Word memiliki menu Mailings yang dapat membantu kita dalam hal pembuatan  kop surat undangan. Bagi para pembaca yang suka mebuat undangan - undangan ataupun para pembaca yang suka mencoba hal - hal yang aneh tentang engineering tips dan trik, wajib meluangkan waktu sejenak untuk membaca tulisan ini.
Sebagai contoh kita akan membuat beberapa surat undangan yang akan kita tujukan kepada beberapa orang yang memiliki nama dan alamat yang berbeda.

Berikut salah satu caranya :
1. Buat terlebih dahulu daftar nama dan alamat pada sebuah file Excel.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

2. Simpan file Excel yang telah diberi nama dan alamat penerima undangan kedalam sebuah folder dengan nama daftar undangan.xls ( nama file hanya sebagai contoh ).

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

 3. Buka program Microsoft Word ( sebagai contoh Microsoft Word 2010 ).
 4. Buka menu Mailings
 5. Klik pada Start Mail Merge - pilih Labels ...

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010


6. Setelah tampil menu Label Options, pilih sesuai kebutuhan.
sebagai contoh pilihlah Label Vendors : A-ONE , pilih salah satu Product Number contoh A-ONE 28171.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

Untuk mengatahui detail dari label klik pada tombol Details dan klik pada tombol Ok jika pilihan sudah sesuai.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

7. Sekarang kita akan menggunakan file excel yang terdapat daftar nama dan alamat penerima undangan dengan cara klik Select Recipients pada menu Mailings dan pilih Use Existing List.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

8. Setelah tampil menu Select Data Source pilih folder letak penyimpanan file Excel dan pilih file Excel yang telah dibuat sebelumnya dan Klik tombol Open.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010
 9. Pilih sheet pada daftar undangan pada file Excel pada menu Select Table.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

 10. Sekarang waktunya untuk implementasi pembuatan data - data para penerima undangan pada workbook.
Pilih Insert Merge Field pada menu Mailing, didalam tersebut terdapat nama - nama judul kolom pada file Excel daftar undangan. Pilih field / kolom yang akan digunakan dan tambahkan kata - kata tambahan jika memang diperlukan.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

Tempatkan field /sesuai dengan format yang kita rencanakan.
Salin dan tempelkan pada kolom Next Record untuk menampilkan daftar selanjutnya sesuai urutan yang telah tertera pada file Excel daftar undangan.

Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

11. Unntuk melihat hasil apakah sesuai dengan yang kita harapkan dengan cara menggunakan menu Preview Results.
Mempermudah membuat undangan dengan menu Mailings di Microsoft Word 2010

     Begitulah salah satu cara - cara pembuatan kop undangan dengan menu Mailings di Microsoft Word 2010. Masih banyak lagi cara untuk membuat kop undangan dengan mudah dan cepat, mungkin para pembaca yang lebih mengetahui boleh menuliskan di kotak komentar sebagai alat sharing pengetahuan. Dan tulisan diatas merupakan pengatahuan penulis yang sedikit yang tertuang dalam bentuk tulisan semoga dapat membantu mempercepat penyelesaian pekerjaan bagi para pekerja dibidang engineering dan semuanya.

Membuat Daftar Nama File Yang Berada Didalam Suatu Folder

      Bisa dikatakan penting bagi para pekerja dibidang engineering termasuk saya untuk dapat membuat daftar nama file yang terdapat didalam satu folder. Jika jumlah file banyak sangatlah merepotkan jika kita copy paste satu persatu nama - nama file tersebut. 

Membuat Daftar Nama File Yang Berada Didalam Suatu Folder
      Disinilah saya ingin berbagi dengan menulis  cara bagaimana mendapatkan daftar nama file dengan menggunakan aplikasi dari windows yaitu Command Prompt Windows ( CDM ).

Cara membuka aplikasi Command Prompt :
Tekan tombol  Logo Windows + R atau cari aplikasi Run 
ketikkan  CMD pada isian di aplikasi Run. Akan tampil aplikasi Command Prompt Windows ( CMD ).

Mungkin terdapat berbagai cara untuk menampilkan daftar nama file dan folder yang berada didalam suatu folder melalui aplikasi Cmd, saya hanya menuliskan sebagian kecil cara - cara tersebut.

Cara Pertama :
command : dir(spasi)direktori_folder

Tuliskan command DIR (spasi) , klik kanan pada aplikasi CMD dan paste nama direktori.

Catatan : Jika nama folder mengandung spasi, maka harus ditambahkan tanda petik dua diantara nama direktori tersebut, contoh direktori yang mengandung spasi :

F:\Data\Project Sample\Merubah Command AutoCAD

maka pada saat menuliskan di aplikasi CMD maka harus seperti dibawah ini :

F:\Data\"Project Sample"\"Merubah Command AutoCAD"

Direktori diatas hanya sekedar contoh, direktori bisa berubah - ubah tergantung dimana letak nama - nama file yang kita butuhkan.

Jadi command / perintah lengkapnya adalah :
Dir F:\Data\"Project Sample"\"Merubah Command AutoCAD"

Maka pada aplikasi Cmd akan menampilkan nama - nama file dan folder yang terdapat didalam folder yang dituliskan tersebut.

Membuat Daftar Nama File Yang Berada Didalam Suatu Folder CMD
Mark pada nama File di CMD

Langkah selanjutnya yaitu klik kanan pada lembar aplikasi Command Prompt ( CMD ), pilih Mark
dan blok barisan nama - nama file yang dibutuhkan lalu tekan tombol Enter pada keyboard, daftar nama file sudah tersalin di clipboard windows.

Silahkan buka aplikasi notepad atau software Microsoft Office Excel untuk menempelkan / paste daftar yang sudah kita copy /  salin dari aplikasi Cmd.
Silahkan olah daftar nama - nama file melalui software Notepad atau software Excel sesuai kebutuhan. Baca juga tips dan trik Excel.

Cara kedua :
Dengan cara menambahkan command > nama_file_hasil untuk langsung mendapatkan hasil daftar nama file dalam bentuk file.
command : dir (spasi) directori_folder > direktori+nama_file_hasil

Dir F:\Data\"Project Sample"\"Merubah Command AutoCAD" > F:\Data\Project\DaftarNama.txt

Kekurangan menggunakan cara yang kedua adalah semua atribut file seperti tanggal modify file juga ikut terdapat pada file hasil sehingga akan kesulitan jika kita hanya memerlukan nama filenya saja.


      Terkadang kita juga memiliki nama - nama file yang panjang dan pada saat kita menggunakan cara diatas terjadi kesalahan atau hasil yang tidak sesuai yang kita inginkan, contoh hasil yang kurang tepat :
Nama file akan terpotong dan potongan dilanjutkan dibaris bawahnya.

Membuat Daftar Nama File Yang Berada Didalam Suatu Folder
Nama file yang panjang terpotong dan berlanjut di baris berikutnya

Kita dapat mengatasi masalah tersebut diatas dengan menambahkan /N pada akhir command atau dengan merubah lebar dari tampilan aplikasi Cmd, dengan cara - cara berikut :
  • Klik kanan pada  bagian atas aplikasi Cmd, pilih Properties.
  • Pada menu pilih Properties pilih tab Layout dan ubah atau tambahkan nilai width pada Screen Buffer Size.
      Cara diatas membantu jobs engineering saya dalam pembuatan daftar nama - nama file yang akan saya kirimkan ke klien ataupun kepada pimpinan saya, disitu kadang saya merasa terbantukan dengan adanya tips / trik seperti diatas. Semoga tulisan berguna bagi para pembaca, jangan lupa tinggalkan komentar, dan silahkan mencoba.

Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

      Melanjutkan tulisan tips dan trik engineering saya sebelumnya Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel tulisan ini merupakan cara - cara untuk memisahkan memisahkan text dalam suatu kalimat yang di sekat oleh karakter tertentu menggunakan software Excel 2010.

Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010contoh kalimat : No$Jumlah$Keterangan, akan dipisahkan menjadi satu kata satu cell dan karakter $ sebagai pemisahnya. sehingga dihasilkan perkata yaitu No dalam satu cell, Jumlah dalam satu cell, dan Keterangan dalam satu cell.
     Dalam bidang engineering menurut saya cara / tools ini sangat membantu saya dalam menyelesaikan pekerjaan yang berhubungan dengan pengelolaan data nama - nama file ataupun report / laporan dalam bentuk text yang di export dari software lain seperti PDMS / MDS dan diperlukan pengelolaan mengunakan software Excel agar report menjadi informatif.
     

1. Pada tab Data workbook Excel 2010 terdapat menu Text to Columns silahkan klik pada menu tersebut, pastikan sebelumnya sudah memilih / select column letak Text yang akan dipisahkan.


Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010
Menu Text to Columns Excel 2010

 Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

2. Pilih Delimited dan lanjutkan dengan klik tombol Next.

Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

Isikan pada check menu Other dengan karakter pemisah, misalkan $, pastikan tampilan data review sesuai dengan yang kita inginkan.

Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

3. Pilih semua kolom pada Data Review dan pilih pada column data format dalam tipe Text.


Untuk melanjutkan tulisan Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel silahkan mengikuti cara - cara dibawah ini :
 
1. Paste / tempel hasil copy dari AutoCAD pada sembarang cell, untuk mudahnya kita paste pada cell A1.
Contoh kalimat hasil salinan / copy dari AutoCAD yang akan kita jadikan contoh kasus : 

No^Nama^Jumlah^$1^Rod^12^$2^Plug^10^$3^Mur@baut^66^$

2. Ikuti langkah seperti tulisan diatas untuk memisahkan text dengan karakter pemisah $, Sehingga dihasilkan :
No^Nama^Jumlah^ di cell A1,
1^Rod^12^$2^Plug^10^ di cell B1, 
3^Mur@baut^66^ di cell C1.

3. Pilih semua cell hasil pemisahan. dalam contoh A1, B1, dan C1, Copy.

4. Pada cell A2, klik kanan Paste Special - centang pada Tranpose. Sehingga hasil akan menjadi vertikal, jumlah baris sesuai dengan jumlah cell yang dicopy.

No^Nama^Jumlah^ di cell A2,
1^Rod^12^$2^Plug^10^ di cell A3, 
3^Mur@baut^66^ di cell A4.

4. Langkah selanjutnya yaitu memisahkan semua dengan karakter pemisah ^ sesuai langkah sebelumnya, pastikan pilih kolom A.

5. Ganti semua karakter @ menjadi spasi dengan CTRL + H, untuk mengembalikan spasi ( tulisan sebelumnya di AutoCAD )

Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

Somoga tulisan kali ini dapat menjadi tips dan trik engineering yang dapat membantu mempercepat penyelesaian pekerjaan. Silahkan tulis masukkan atau komentar di kotak komentar dibawah ini.



Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel

      Tulisan saya kali ini adalah pengalaman diri saya yang pernah menggunakan software Autocad bukan mengenai 3D modeling ataupun PDMS, untuk menggambar gambar yang harus mencantumkan tabel Material Take Off ( MTO ) untuk mempermudah para pekerja lapangan melihat / menggunakan material karena sudah tercantum dalam gambar. Dalam hal ini tabel MTO (seperti contoh gambar dibawah ) sudah dibuat di AutoCAD tetapi tidak memakai menu Table AutoCAD yang bisa terkoneksi dengan file Excel.
Menyalin / mengcopy tabel MTO di AutoCAD ke Excel      Dan saya diharuskan menyalin semua tabel MTO dari dalam gambar Autocad ke file Excel untuk membantu perhitungan semua material. Pengalaman saya yang sedikit mengenai Autocad ini saya tuangkan dalam tulisan yang mungkin bisa dikatakan sebuah tips atau trik engineering dan semoga dapat membantu para drafter pengguna AutoCAD yaitu  Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel.

Baca juga Mengapa Harus Belajar Software Aveva PDMS ?

      Bagi para drafter yang jobs nya menggambar menggunakan software AutoCAD, dan telah terlanjur membuat tabel Material Take Off ( MTO ) atau tabel Bill Of Material ( BOM ) di AutoCAD dalam bentuk Text ataupun MText dan ingin menyalin ke file Excel, luangkan waktu sejenakuntuk membaca tulisan ini, semoga dapat membantu menyelesaikan pekerjaan lebih cepat.

     Dibawah ini adalah contoh gambar tabel Material Take Off  ( MTO ) yang telah dibuat di AutoCAD yang akan kita salin ke Excel :

Menyalin / mengcopy tabel MTO di AutoCAD ke Excel

Hasil yang diharapkan adalah Material Take Off ( MTO ) / tabel dapat disalin kedalam software excel 2010, seperti gambar contoh dibawah ini :

Menyalin / mengcopy tabel MTO di AutoCAD ke Excel

Berikut adalah  step - step menyalin MTO dari AutoCAD ke software Excel :

1. Copy kode - kode / script AutoLisp di tulisan paling bawah di halaman ini, dan simpan dalam bentuk Lsp file dan drag and drop kedalam AutoCAD seperti tulisan saya yang sebelumnya, Mengganti perintah / command pada Autocad : Menengah  pada poin 1, 2, 3 dan 4.

 2. Jika tabel Material Take Off ( MTO ) masih terdiri dalam bentuk object Mtext dan Text atau block, maka Explode terlebih dahulu sehingga menjadi bentuk Text semua.

3. Jika dalam suatu cell / value / tulisan dalam tabel MTO terdapat spasi, ganti semua spasi dengan
 karakter @ . Untuk mempermudah mengganti spasi gunakan menu Find ( ketik Command Autocad Find ). Karena ini adalah syarat agar berhasil untuk copy text AutoCAD ke Excel.

4. Jika dalam suatu cell / value / tulisan dalam tabel MTO tidak terdapat isi, harus diisi dengan tanda - . Dan ini merupakan syarat agar cara dalam tulisan  ini berhasil seperti yang diharapkan.

Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel
Contoh sederhana AutoCAD ke Excel

5. Ketik perintah command Autocad : HT2M   -  Horizontal Convert from Text to MText. 
Pilih / select kata pertama dibaris pertama kemudian pilih semua kata dibaris pertama, tekan enter atau spasi. 

Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel

Lakukan cara ini untuk baris - baris berikutnya dengan diselingi enter atau spasi, sehingga menjadi satu tipe MText, satu baris satu Mtext.

Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel

6.  Explode semua baris yang sudah di konversi menjadi satu MText satu baris sehingga semua menjadi Text.

7.  Ketik perintah command Autocad : VT2M   -  Vertical Convert from Text to MText.
Pilih / select baris pertama kemudian pilih semua baris, tekan enter atau spasi, sehingga menjadi satu baris saja yang bertipe MText.

Menyalin / mengcopy tabel MTO dari AutoCAD ke Excel

8. Copy semua tulisan didalam MText.

9. Buka program Microsoft Office Excel dan tempel / paste tulisan hasil copy dari  AutoCAD ke Excel.

Untuk langkah berikutnya silahkan melanjutkan untuk baca tulisan, Memisahkan text berdasarkan karakter pemisah dengan software Excel 2010

Jika ada cara lain yang lebih mudah dan pembaca ketahui mohon  dibagi pengetahuannya bagi pembaca yang lainnya dan penulis dengan memberi masukkan atau di kolom komentar.

Berikut kode - kode / script AutoLisp menggubah mengkonversi Text menjadi MText sehingga membantu:

(defun col2str (inp)
  (cond
    ((= inp nil)(setq ret "BYLAYER"))
    ((= inp 256)(setq ret "BYLAYER"))
    ((= inp 0)(setq ret "BYBLOCK"))
    ((and (> inp 0)(< inp 255))(setq ret (itoa inp)))
    (t nil)
  )
)

(defun savprop ()
  (setq clayer (getvar "CLAYER"))
  (setq cecolor (getvar "CECOLOR"))
  (setvar "CECOLOR" "BYLAYER")
  (setq celtype (getvar "CELTYPE"))
  (setvar "CELTYPE" "BYLAYER")
  (setq thickness (getvar "THICKNESS"))
  (setvar "THICKNESS" 0)
  (if (>= (atoi (getvar "ACADVER")) 13)
    (progn
      (setq celtscale (getvar "CELTSCALE"))
      (setvar "CELTSCALE" 1.0)
    )
  )
)

(defun resprop ()
  (if (>= (atoi (getvar "ACADVER")) 13)
    (setvar "CELTSCALE" celtscale)
  )
  (setvar "THICKNESS" thickness)
  (setvar "CELTYPE" celtype)
  (setvar "CECOLOR" cecolor)
  (setvar "CLAYER" clayer)
)

(defun textrect (tent / ang sinrot cosrot t1 t2 p1 p2 p3 p4)
  (setq p0 (cdr (assoc 10 tent))
    ang (cdr (assoc 50 tent))
    sinrot (sin ang)
    cosrot (cos ang)
    t1 (car (textbox tent))
    t2 (cadr (textbox tent))
    p1 (list (+ (car p0)
       (- (* (car t1) cosrot) (* (cadr t1) sinrot)))
       (+ (cadr p0)
       (+ (* (car t1) sinrot) (* (cadr t1) cosrot))))
    p2 (list (+ (car p0)
       (- (* (car t2) cosrot) (* (cadr t1) sinrot)))
       (+ (cadr p0)
       (+ (* (car t2) sinrot) (* (cadr t1) cosrot))))
    p3 (list (+ (car p0)
       (- (* (car t2) cosrot) (* (cadr t2) sinrot)))
       (+ (cadr p0)
       (+ (* (car t2) sinrot) (* (cadr t2) cosrot))))
    p4 (list (+ (car p0)
       (- (* (car t1) cosrot) (* (cadr t2) sinrot)))
       (+ (cadr p0)
       (+ (* (car t1) sinrot) (* (cadr t2) cosrot))))
  )
  (list p1 p2 p3 p4)
)

(defun C:HT2M ( / mwid dset ibrk bitm bent sset rect mlay mcol mlst
                      bins bang tang nins num ndis chnd cent nhnd nstr
                      str pt1 pt2 pt3 dis dvx dvy dvz new)
(while
  (if (< (atoi (getvar "ACADVER")) 13)
    (alert "This Function Requires\nRelease 13 or Higher")
    (progn
      (setq cmdecho (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (command "_.UNDO" "_G")
      (setq mwid 0.0)
      (setq dset (ssadd))
      ;
      ;(initget "Y N")
      ;(setq tmp (getkword "\nDS> Include Line Breaks <Y>/N: "))
      ;(if (/= tmp "N")(setq ibrk "Y")(setq ibrk "N"))
      (setq ibrk "N")
      ;
      (setq bitm (car (entsel "\nDS> Pick Base String: ")))
      (setq bent (entget bitm))
      (setq rect (textrect bent))
      (setq chk (distance (car rect)(cadr rect)))
      (if (> chk mwid)(setq mwid chk))
      ;
      (if (= "TEXT" (cdr (assoc 0 bent)))
        (progn
          (redraw bitm 3)
          (princ "\nDS> Select Remaining Text: ")
          (setq sset (ssget '((0 . "TEXT"))))
          (if sset
            (progn
              (setq rect (textrect bent))
              (setq orig rect)
              (setq mlay (cdr (assoc 8 bent)))
              (setq mcol (cdr (assoc 62 bent)))
              (setq mlst (list (cdr (assoc 1 bent))))
              ;
              (if (> (cdr (assoc 72 bent)) 0)
                (setq bins (cdr (assoc 11 bent)))
                (setq bins (cdr (assoc 10 bent)))
              )
              (setq bang (cdr (assoc 50 bent)))
              (setq tang (- bang (/ PI 2)))
              (setq nins bins)
              (ssdel bitm sset)
              (while (> (sslength sset) 0)
                (setq num (sslength sset) itm 0)
                (setq ndis 99999999.9)
                (while (< itm num)
                  (setq chnd (ssname sset itm))
                  (setq cent (entget chnd))
                  (if (> (cdr (assoc 72 cent)) 0)
                    (setq cins (cdr (assoc 11 cent)))
                    (setq cins (cdr (assoc 10 cent)))
                  )
                  (setq cdis (distance bins cins))
                  (if (< cdis ndis)
                    (setq ndis cdis nhnd chnd nent cent)
                  )
                  (setq itm (1+ itm))
                )
                (setq dset (ssadd nhnd dset))
                (ssdel nhnd sset)
                ;
                (setq rect (textrect nent))
                (setq chk (distance (car rect)(cadr rect)))
                (if (> chk mwid)(setq mwid chk))
                ;
                (setq nstr (cdr (assoc 1 nent)))
                (setq mlst (append mlst (list nstr)))
              )
              ;
              (entdel bitm)
              (setq num (sslength dset) itm 0)
              (while (< itm num)
                (setq hnd (ssname dset itm))
                (entdel hnd)
                (setq itm (1+ itm))
              )
              ;
              (savprop)
              (setvar "CLAYER" mlay)
              (if (/= mcol nil)
                (setvar "CECOLOR" (col2str mcol))
              )
              (setq mwid (+ mwid (* mwid 0.025)))
              (setq pt1 (car orig))
              (setq pt2 (cadr orig))
              (setq dis (distance pt1 pt2))
              (setq dvx (/ (- (car pt2)(car pt1)) dis))
              (setq dvy (/ (- (cadr pt2)(cadr pt1)) dis))
              (setq pt3 (list dvx dvy 0.0))
              (setq nins (list (car (cadddr orig))
                         (cadr (cadddr orig))
                         (nth 2 (cdr (assoc 10 bent)))))
              ;
              (setq new '((0 . "MTEXT")(100 . "AcDbEntity")(100 . "AcDbMText")))
              (setq new (append new (list (assoc 7 bent))))
              (setq new (append new (list (assoc 8 bent))))
              (setq new (append new (list (cons 10 nins))))
              (setq new (append new (list (cons 11 pt3))))
              (foreach lin mlst
                (if (= ibrk "Y")
                  (if (/= lin (last mlst))
                    (setq lin (strcat lin "\\P"))
                  )
                  (setq lin (strcat lin "^"))
                )
                (setq new (append new (list (cons 1 lin))))
              )
              (setq new (append new (list (assoc 40 bent))))
              (setq new (append new (list (cons 41 mwid))))
              (setq new (append new (list (cons 71 1))))
              (setq new (append new (list (cons 72 1))))
              (entmake new)
              (resprop)
              ;
              (setq sset nil)
              (setq dset nil)
              (setq lst nil)
              (command "_.UNDO" "_E")
              (setvar "CMDECHO" cmdecho)
            )
            (redraw bitm 4)
          )
        )
      )
    )
  )
  (setq sset nil)
  (setq mlst nil)
  (princ)
)
)

(defun C:VT2M ( / mwid dset ibrk bitm bent sset rect mlay mcol mlst
                      bins bang tang nins num ndis chnd cent nhnd nstr
                      str pt1 pt2 pt3 dis dvx dvy dvz new)
  (if (< (atoi (getvar "ACADVER")) 13)
    (alert "This Function Requires\nRelease 13 or Higher")
    (progn
      (setq cmdecho (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (command "_.UNDO" "_G")
      (setq mwid 0.0)
      (setq dset (ssadd))
      ;
      ;(initget "Y N")
      ;(setq tmp (getkword "\nDS> Include Line Breaks <Y>/N: "))
      ;(if (/= tmp "N")(setq ibrk "Y")(setq ibrk "N"))
      (setq ibrk "N")
      ;
      (setq bitm (car (entsel "\nDS> Pick Base String: ")))
      (setq bent (entget bitm))
      (setq rect (textrect bent))
      (setq chk (distance (car rect)(cadr rect)))
      (if (> chk mwid)(setq mwid chk))
      ;
      (if (= "TEXT" (cdr (assoc 0 bent)))
        (progn
          (redraw bitm 3)
          (princ "\nDS> Select Remaining Text: ")
          (setq sset (ssget '((0 . "TEXT"))))
          (if sset
            (progn
              (setq rect (textrect bent))
              (setq orig rect)
              (setq mlay (cdr (assoc 8 bent)))
              (setq mcol (cdr (assoc 62 bent)))
              (setq mlst (list (cdr (assoc 1 bent))))
              ;
              (if (> (cdr (assoc 72 bent)) 0)
                (setq bins (cdr (assoc 11 bent)))
                (setq bins (cdr (assoc 10 bent)))
              )
              (setq bang (cdr (assoc 50 bent)))
              (setq tang (- bang (/ PI 2)))
              (setq nins bins)
              (ssdel bitm sset)
              (while (> (sslength sset) 0)
                (setq num (sslength sset) itm 0)
                (setq ndis 99999999.9)
                (while (< itm num)
                  (setq chnd (ssname sset itm))
                  (setq cent (entget chnd))
                  (if (> (cdr (assoc 72 cent)) 0)
                    (setq cins (cdr (assoc 11 cent)))
                    (setq cins (cdr (assoc 10 cent)))
                  )
                  (setq cdis (distance bins cins))
                  (if (< cdis ndis)
                    (setq ndis cdis nhnd chnd nent cent)
                  )
                  (setq itm (1+ itm))
                )
                (setq dset (ssadd nhnd dset))
                (ssdel nhnd sset)
                ;
                (setq rect (textrect nent))
                (setq chk (distance (car rect)(cadr rect)))
                (if (> chk mwid)(setq mwid chk))
                ;
                (setq nstr (cdr (assoc 1 nent)))
                (setq mlst (append mlst (list nstr)))
              )
              ;
              (entdel bitm)
              (setq num (sslength dset) itm 0)
              (while (< itm num)
                (setq hnd (ssname dset itm))
                (entdel hnd)
                (setq itm (1+ itm))
              )
              ;
              (savprop)
              (setvar "CLAYER" mlay)
              (if (/= mcol nil)
                (setvar "CECOLOR" (col2str mcol))
              )
              (setq mwid (+ mwid (* mwid 0.025)))
              (setq pt1 (car orig))
              (setq pt2 (cadr orig))
              (setq dis (distance pt1 pt2))
              (setq dvx (/ (- (car pt2)(car pt1)) dis))
              (setq dvy (/ (- (cadr pt2)(cadr pt1)) dis))
              (setq pt3 (list dvx dvy 0.0))
              (setq nins (list (car (cadddr orig))
                         (cadr (cadddr orig))
                         (nth 2 (cdr (assoc 10 bent)))))
              ;
              (setq new '((0 . "MTEXT")(100 . "AcDbEntity")(100 . "AcDbMText")))
              (setq new (append new (list (assoc 7 bent))))
              (setq new (append new (list (assoc 8 bent))))
              (setq new (append new (list (cons 10 nins))))
              (setq new (append new (list (cons 11 pt3))))
              (foreach lin mlst
                (if (= ibrk "Y")
                  (if (/= lin (last mlst))
                    (setq lin (strcat lin "\\P"))
                  )
                  (setq lin (strcat lin "$"))
                )
                (setq new (append new (list (cons 1 lin))))
              )
              (setq new (append new (list (assoc 40 bent))))
              (setq new (append new (list (cons 41 mwid))))
              (setq new (append new (list (cons 71 1))))
              (setq new (append new (list (cons 72 1))))
              (entmake new)
              (resprop)
              ;
              (setq sset nil)
              (setq dset nil)
              (setq lst nil)
              (command "_.UNDO" "_E")
              (setvar "CMDECHO" cmdecho)
            )
            (redraw bitm 4)
          )
        )
      )
    )
  )
  (setq sset nil)
  (setq mlst nil)
  (princ)
)

Agar File Excel dapat diedit beberapa orang dan diwaktu yang bersamaan

   Sangatlah membantu sekali jika suatu pekerjaan dapat dikerjakan oleh beberapa orang bersama-sama dalam jaringan yang sama ( work share ), contohnya didalam sebuah kantor.  Tentunya pekerjaan yang besar akan lebih cepat selesai dan ini merupakan salah satu tips dan trik engineering  dari tips - tips yang pernah saya tulis sebelumnya , memberi nomor sheet ( sheet ... of ... sheets ) secara otomatis.
      Sebagai contoh adalah pekerjaan 3d cad modeling PDMS / MDS yang pekerjaannya dilakukan oleh beberapa orang dalam waktu bersamaan, sebagai contoh saja. 

Agar File Excel dapat diedit beberapa orang dan diwaktu bersamaan Engineering Tips dan Trik     Dan tulisan saya berikut mengenai pekerjaan yang menggunakan software excel. Siapa yang tidak tahu software excel, yang setiap harinya digunakan para engineer ataupun drafter autocad dalam membantu mengitung kalkulasi / membuat perhitungan material. 
     Konsepnya hampir sama dengan contoh 3d modeling, hanya saja kita menggunakan satu file excel yang diletakkan di server dan semua dapat membuka file excel tersebut dalam waktu yang bersamaan.



Didalam tulisan ini saya menggunakan software excel 2010

1. Buka pada tab Review 

2. Klik pada share workbook. 


Pada tab editing, centang pada allow changes by more than one user at the same time.also allows workbook mergering. 

Agar File Excel dapat diedit beberapa orang dan diwaktu bersamaan Engineering Tips dan Trik

Pada tab advanced, kita bisa atur sesui kebutuhan. 

Agar File Excel dapat diedit beberapa orang dan diwaktu bersamaan Engineering Tips dan Trik

Dan salah satu yang terpenting adalah pada pengaturan conflig change between users.
- Ask me which changes win - ada pemberitahuan jika ada perubahan secara bersamaan di satu cell yang sama ( yang disarankan ).
- The changes being saved win - tidak ada pemberitahuan.


Kekurangan saat kita menggunakan share workbook :
Kita tidak dapat memperbarui / refresh data yang berada di sheet yang menggunakan VipotTable, kita harus mengembalikan file excel dalam kondisi tidak shrare workbook dengan cara menghilangkan tanda centang pada allow changes by more than one user at the same time.also allows workbook mergering.

 Semoga tulisan dari saya yang sedikit ini dapat membantu mempercepat dalam menyelesaikan pekerjaan kita ataupun hanya sekedar menambah pengetahuan.

Mengganti perintah / command pada Autocad : Menengah

      Dalam tulisan saya sebelumnya mengenai tips trik autocad yaitu merubah command / perintah autocad : dasar. Saya melanjutkan tulisan tesebut bagi para pembaca terutama di bidang engineering yaitu teman - teman yang bekerja sebagai drafter autocad 2D maupun 3D model.

Baca juga Mengapa Harus Belajar Software Aveva PDMS ?
      Sangatlah penting bagi teman teman drafter untuk dapat meningkatkan mengoptimasi dalam
mengerjakan pekerjaan menggambar. Waktu pengerjaan lebih singkat tapi dengan hasil yang sama memuaskan.

Mengganti perintah / command pada Autocad : Menengah      Dalam hal ini kita dapat meningkatkan kinerja dengan mengganti command / perintah autocad salah satunya dengan membuat command - command / perintah baru yang singkat dan mudah diketik untuk menggatikan command standard autocad yang dirasa panjang dan memakan waktu dalam pengetikan. Contoh command - command autocad yang panjang :
DIMBREAK
REVCLOUD
ISOLATE
dan lain lain
Berikut adalah cara lain untuk mengganti command autocad :

1. Buka software notepad pada windows

2. Tuliskan code / script dibawah ini pada software notepad tersebut. 

(defun C:DB ()
(command "DIMBREAK")
(princ))

(defun C:C ()
(command "COPY")
(princ))

(defun C:CC ()
(command "CIRCLE")
(princ))

Code / script diatas adalah salah satu contoh code code / script penggantian command pada AutoCAD.

3. Simpan file dalam bentuk *.lsp didalam folder.
   
Mengganti perintah / command pada Autocad : Menengah

4. Drag & drop file lsp yang telah tersimpan di folder tadi pada autocad yang sedang dibuka.
Untuk cara agar file lsp selalu pada waktu kita membuka program AutoCAD silahkan baca tulisan selanjutnya Mengganti perintah / command pada Autocad : Mahir.

5. Coba ketikkan pada command DB atau C pada command line autocad seharusnya command sudah berubah.

Semoga tulisan yang tidak panjang ini dapat membantu.

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

      Penomoran sheet secara otomatis di Excel sangatlah berguna bagi para engineer yang menggunakan software Excel dalam menelesaikan pekerjaan seperti pembuatan laporan / report suatu pekerjaan. Dimana terdapat banyak sekali worksheet yang harus adanya modifikasi, pengurangan, dan penambahan worksheet dalam masa Engineering.
Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel       Contoh kasusnya adalah kita harus memberi keterangan sheet .. of .. sheets disetiap lembar dokumen sesuai nomor urut sheetnya. Sangatlah merepotkan jika kita harus terpaksa mengurangi atau menambah jumlah sheet yang berimbas kepada semua lembar dokumen dengan mengganti tulisan sheet .. of .. sheets disetiap lembarnya. Tidak seperti autocad yang harus mengganti secara manual disetiap drawingnya. Disinilah keunggulan software Excel.
      Berikut saya bagikan cara bagaimana kita dapat membuat keterangan nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel.

Hasil yang kita inginkan :
Setiap cell disetiap worksheet otomatis menampilkan nomor dan jumlah sheet berdasarkan posisi dan jumlah Worksheet.

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel
Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel







Cara - cara membuat nomor sheet secara otomatis :
1. Save Excel dalam extensi *.xls atau *.xlsm  ( *.xlsx tidak mendukung )
2. Ketik ATL + F11, akan tampil menu Microsoft Visual Basic for Application.

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

3. Buatlah Module baru seperti tanda lingkaran merah nomor 1
4. Klik pada module yang telah dibuat disini adalah Module 1 dan akan tampil Module1 ( Code )
5. Isikan code dibawah berikut dan Simpan ( CTRL + S ) 

Function SheetNum(Optional celRef As Range) As Long
    With Application.Caller.Parent
        If celRef Is Nothing Then
            SheetNum = .Index
        Else
            SheetNum = celRef.Parent.Index
        End If
    End With
End Function
Function JumlahSheet()

   JumlahSheet = Worksheets.Count
End Function

6. Isikan kombinasi code =SheetNum()&" / "&JumlahSheet() pada setiap cell disetiap worksheet seperti contoh hasil yang kita inginkan.



Begitulah tulisan diatas salah satu Engineering tips dan trik agar dapat mempermudah atau mengoptimasi dalam penyelesaian pekerjaan. Semoga dapat membantu.

Menggunakan menu Piping PDMS pada saat membuka MDS

       Dibawah ini adalah sedikit tulisan dari pengalaman saya yang baru sedikit di bidang Engineering terutama bergerak di bidang EPC, dan dimana software PDMS sangat berperan penting pada tahap Engineering dalam membangun sebuah Plant. Silahkan baca mengenai software PDMS dan MDS .

MDS PDMS Engineering Tips dan Trik       Bagi semua pembaca khususnya bagi para PDMS Piping Designer yang mungkin tertarik dengan
tips dan trik mengenai software PDMS dan MDS silahkan luangkan waktu sejenak, mari kita bahas mengenai penggunaan menu Create Pipe, Create Brans dan Create Components pada saat bersamaan kita membuaka MDS.
Sangatlah menyulitkan / merepotkan pada saat sedang membuka aplikasi MDS untuk membuat support piping, tiba - tiba harus ada modifikasi atau penambahan component piping, brans, dll pada pipa, dan kita harus bolak balik memindahkan aplikasi dari Multi Discipline Support ke aplikasi Pipeworks secara bergantian yang membutuhkan loading / waktu yang lama.
Berikut adalah salah satu caranya manampilkan menu piping :

1. Sebelum masuk ke aplikasi Multi Discipline Support masuklah terlebih dahulu ke aplikasi   Pipeworks dan kemudian masuk ke aplikasi Multi Discipline Support.

2. Gunakan command PDMS berikut di command line menu :

show _CDPIPE  untuk membuat pipa

Menu Create Pipe PDMS


show _CDBRAN untuk membuat bran

Menu Create Brans PDMS Engineering Tips dan Trik
 
show _CDCOMP untuk memodifikasi dan membuat komponen pipa

Menu Create Components Pipe PDMS
 3. Selamat mencoba

Semoga cara - cara diatas dapat membantu dalam menyelesaikan / mempercepat pekerjaan kita sebagai PDMS Piping Designer maupun teman - teman Drafter autocad yang ingin belajar / tertarik dengan PDMS.