Cara Mengatasi Hasil Combine Dua Objek Yang Tidak Bolong Di CorelDRAW

Setahun sudah aku tidak update blog tercinta ini, sekarang mari kita mulai lagi tentang pertanyaan dari sahabat kita kang Setiyono B. Sampurno tentang Cara Mengatasi Hasil Combine Dua Objek Yang Tidak Bolong Di CorelDRAW. Contohnya seperti gambar dibawah ini

Seharusnya gambar seperti ini.

Dulu aku dibuat pusing dengan kasus seperti ini yang sering kita jumpai ketika kita menggambar, mungkin sampeyan juga begitu?... ketika kita tahu cara penyelesaiannya eee ... jebule ngglethek, caranya sangat sederhana.. simak langkahnya

1. Pilih Shape tool di Toolbox

2. Seleksi pada salah satu Node yang berbentuk segitiga atau kotak sama saja

3. Pada Property Bar pencet tombol Reverse Direction

Atau klik kanan pada mouse pilih Reserve Subpaths

Dan hasil Combine pada huruf O sudah sesuai dengan yang kita harapkan yaitu terlihat BOLONG

 

Kasus seperti ini memang sepele tapi sangat berpengaruh terhadap hasil kerja kita... dan kayaknya belum pernah ada yang ngeposting tutorial tentang cara penyelesaiannya.

Demikian semoga bermanfaat

Mengubah Foto Berwarna Menjadi 1 Warna Dengan Perintah Mode Duotone (8-bit) di CorelDRAW

Di CorelDRAW Untuk mengubah foto berwarna menjadi satu warna apa saja ada bermacam-macam cara, salah satunya adalah dengan perintah Mode Duotone (8-bit), suatu misal kita akan mengubah warna foto dibawah ini;

1. Disini aku menggunakan CorelDRAW  X7 tapi kita juga bisa menggunakan dengan versi dibawahnya, langkahnya sebagai berikut, pilih Menu Bitmaps > Mode > Duotone (8-bit)...

2. Pada kotak dialog perintah kita mengatur Type: Monotone, doubel klik untuk mengubah warna pantone, disini aku menggunakan warna coklat, dan klik OK;

3. Maka hasilnya akan seperti gambar dibawah ini;

Demikian semoga bermanfaat.

PowerClip Dan Perintah Drag Dengan Tombol Kanan Mouse Di CorelDRAW

Request dari salah satu member KPCI, saudara Kaka FC Barcelona:

Klau cropping foto di corel bisa ga gan? tapi cropping bentuknya bulat? Makasih, maaf newbie gan, baru masuk dunia CorelDRAW

Jawab : Bisa

1. Ini salah satu langkah untuk membuatnya yaitu  drag dengan pijit tombol kanan mouse, contoh, Import gambar, dan buat lingkaran disampingnya dengan Ellipse tool di Toolbox;

2. Pijit tombol kanan pada mouse kemudian drag ke objek lingkaran dan lepas tombol:

3. Ketika tombol dilepas akan muncul pilihan menu perintah, pilih yang PowerClip Inside;

4. Sehingga hasilnya seperti gambar dibawah ini;

5. Langkah terakhir klik pada pilihan tanda silang di Color Palette untuk menghapus outline warna biru.. selesai;

Monggo dicoba, semoga bermanfaat... salam vector.

Cara Menghitung Luas dan Keliling Bidang Datar di CorelDRAW

Pertanyaan dari member KPCI: Komunitas Pengguna CorelDRAW Indonesia di Facebook, saudara Adrika Abu Uwais, demikian pertanyaannya:

ASK : agan2 master sekalian, ane mau tanya bisakah menghitung luas area polygon pakai Corel?

Jawab:

emangnya corel itu kalkulator..    tapi bisa, pakai Macros.. (Bahasa Visual Basic nih)... script dibawah ini untuk  Luas dan Keliling semua objek bidang datar, gak cuma polygon..

Dibawah ini adalah contoh perbedaan menggunakan rumus matematika dan menggunakan macros dalam menghitung luas dan keliling objek, setiap objek mempunyai rumus sendiri-sendiri, misal untuk objek polygon, alternatif terbaik membagi objek polygon dalam bentuk beberapa segitiga sesuai dengan banyaknya sudut, kalau menggunakan macros hitung luas dan keliling tinggal pencet tombol yang sudah kita buat sebelumnya, otomatis keluar jumlah luas dan keliling objek;

Untuk memasang macros menghitung luas dan keliling bidang datar caranya sebagai berikut:

1. Copy salah satu script dibawah ini;

Untuk ukuran Centimeter

'Menghitung luas dan keliling bidang datar
Public Sub hitungLuas()
Dim bidang As Shape
Dim Luas As Long
Dim Keliling As Long
ActiveDocument.Unit = cdrCentimeter
Set bidang = ActiveDocument.ActiveShape.Duplicate
bidang.ConvertToCurves
Luas = bidang.Curve.Area
Keliling = bidang.Curve.Length
bidang.Delete
MsgBox "Luas: " & Luas & " cm." & vbCrLf & "Keliling: " & Keliling & " cm.", vbApplicationModal
End Sub

Untuk ukuran Millimeter

'Menghitung luas dan keliling bidang datar
Public Sub hitungLuas()
Dim bidang As Shape
Dim Luas As Long
Dim Keliling As Long
ActiveDocument.Unit = cdrMillimeter
Set bidang = ActiveDocument.ActiveShape.Duplicate
bidang.ConvertToCurves
Luas = bidang.Curve.Area
Keliling = bidang.Curve.Length
bidang.Delete
MsgBox "Luas: " & Luas & " mm." & vbCrLf & "Keliling: " & Keliling & " mm.", vbApplicationModal
End Sub

2. Selanjutnya buka program CorelDRAW, pada Menu Bar > Tools > Macros > klik Macro Editor... atau bisa dengan cara cepat pijit tombol Alt+F11 di keyboard;

3. GlobalMacros (GlobalMacros.gms) > pilih Modules > doubel klik pada CorelMacros;

4. Sehingga muncul GlobalMacros.gms - CorelMacros.gms, selanjutnya Paste-kan script yang tadi kita Copy dibawah script yang sudah ada (yang aku beri tanda panah);

5. Hasilnya akan seperti yang aku beri kotak merah;

5. Kemudian pijit tombol Save GlobalMacros.gms atau cukup dengan pijit tombol Ctrl+S di keyboard;

6. Langkah selanjutnya kita buat tombol baru tentang hitung luas, langkahnya Menu Bar > Tool > Options > Workspace > Customization > Commonds > Appearance dan buat icon tombol baru atau import icon yang ada, setelah selesai, drag atau seret icon ke deretan atau kelompok icon yang lain;

7. Selanjutnya, klik tahan dan seret atau drag ke Standard Bar atau bisa juga ke Property Bar, Setelah selesai proses membuat icon dan proses draging icon klik OK, dan jangan lupa untuk menyimpan perubahan klik Save Settings As Default pada menu Tools;

8. Cara memakainya, misal pada objek Polygon, klik atau seleksi pada objek Polygon yang akan kita ketahui luas dan kelilingnya, kemudian pijit tombol HitungLuas yang telah kita buat tadi;

9. Sehingga luas dan keliling objek bidang datar dalam hal ini objek Polygon bisa kita lihat seperti gambar dibawah ini;

Demikian semoga bermanfaat, salam vector...

NB: Revisi kode. penambahan quadrat pada satuan luas

'Menghitung luas dan keliling bidang datar
Public Sub hitungLuas()
Dim bidang As Shape
Dim Luas As Long
Dim Keliling As Long
ActiveDocument.Unit = cdrCentimeter
Set bidang = ActiveDocument.ActiveShape.Duplicate
bidang.ConvertToCurves
Luas = bidang.Curve.Area
Keliling = bidang.Curve.Length
bidang.Delete
MsgBox "Luas: " & Luas & " cm²" & vbCrLf & "Keliling: " & Keliling & " cm", vbApplicationModal
End Sub

contoh hasilnya;

Source: KPCI
Created by: @BaniAdams

Shaping - Intersect Tutorial Dalam Gambar Bergerak

Intersect Berfungsi untuk membuat irisan atau perpotongan object;
Letak; pada  Menu Bar > Shaping > Intersect atau pada Property Bar klik Icon Intersect.



Tapi yang kita pakai adalah perintah Intersect yang lain, tempatnya di Menu Bar > Window > Dockers > Shaping > pilih Intersect pada menu Dockers;

Caranya simak gambar gerak dibawah ini;