Greetings Corel Mutt-របៀបផ្ចាប់ខ្សែមុខប្រសព្វគ្នា នូវក្នុង Coreldraw

• កូដនេះគឺជា VBA Macro សម្រាប់ CorelDRAW។

• វាប្រើ GUID (លេខសម្គាល់ផ្ទាល់ខ្លួន) ដើម្បីបញ្ជាឲ្យ CorelDRAW ភ្ជាប់បន្ទាត់ខ្វាច់ៗ (Join Curves)។

• វាដូចជា លោក/លោកស្រី ចុចពិធីការ "Join Curves" ដោយដៃក្នុងម៉ឺនុយ Arrange > Join Curves។

---

📝 របៀបប្រើប្រាស់

1. ជ្រើសរើសបន្ទាត់បើក (open curves) ដែលអ្នកចង់ភ្ជាប់។

2. រត់ macro JoinC_Apply។

3. CorelDRAW នឹងភ្ជាប់ចំណុចបញ្ចប់ ដែលនៅជិតគ្នា (តាមការកំណត់ Tolerance)។

 The Apply button of Join Curves can be executed with this macro. The Docker Join Curves must be loaded for the macro to work. The macro works with Coreldraw 2021 Update 1. Maybe someone can test if it works with the newer versions.1

1 2 3 4 5 6

Sub JoinC_Apply() Dim g As String ' GUID g = "1ec6f3a8-566d-6dbf-40c1-35e6402e4bd3" Application.FrameWork.Automation.InvokeItem g End Sub

For the Docker Corner (must be loaded too), this macro can be used to control the Apply button directly:

1 2 3 4 5 6

Sub Edges_Apply() Dim g As String ' GUID g = "508d4101-5cb3-6581-4fa5-fcc4f1ca6b9d" Application.FrameWork.Automation.InvokeItem g End Sub

ឧទាហរណ៍ GUID ដែលគេស្គាល់

បញ្ជា (Command)	GUID
Join Curves	1ec6f3a8-566d-6dbf-40c1-35e6402e4bd3
Convert to Curves	450f9f0d-2dc5-4e02-8d6d-efa5b35cf61e
Break Apart	7683a8f7-4c9c-4b90-8c58-429053c0ff3f
Combine Curves	f9e7ec3f-5b4b-4a7d-ae70-b1f44466d3f0
Weld	d6f46b8c-e8cc-4108-8122-e9e9229b2fe1

(ខ្លះអាចប្រែប្រួលទៅតាមវើសិន CorelDRAW)