Merhaba arkadaşlar makro ile şu işlemi yapmak istiyorum bilen varsa öğretirse minnettar olurum.
Varsayalım ki corel çalışma alanımızda yüzlerce curve nesne var ve bunlardan bazıları iç içe duruyor. yani kare içinde kare varmış gibi düşünün. ben diğer nesnelere hiç dokunmadan bu iç içe olan nesneleri bulup bunları weld ile birleştiren bir makro yapmak istiyorum. bunun için ne yapmam lazım.
yardımcı olacak kişiye şimdiden çok teşekkür ediyorum.
Hi my friend you can do it at once in a tool============
================
Teşekkür ediyorum. Ancak aradığım cevap bu değil. soruyu yanlış sordum sanırım
For Each s In srIf s.Type = cdrContourGroupShape Then
s.BreakApartEx
s.combine ????????????????
'buraya kadar tamam ancak contour'dan ayırdığım şeklin ayrıldığı şekille combine olmasını istiyorum.
bu nesneyi ayır ve ayırdığın nesne ile combine et. demeye çalışıyorum yapamıyorum
G curve -----------------------> g curve
G curve ----------------------> g curve
B curve + contour --------------> B combine
Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange ActiveSelection.Separate Dim grp1 As ShapeRange Set grp1 = ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), OrigSelection(1)).UngroupAllEx ActiveDocument.CreateSelection grp1(2), grp1(1) Dim s1 As Shape Set s1 = ActiveSelection.Combinebu kodlar işime yaramıyor çünkü activelayer.shapes(3) her zaman aynı değil.
STEP***1
---------------
STEP***2
This step is optional, not mandatory
==========
STEP***3
Select the two cursor layers inside the red rectangle
STEP***4
----------------
STEP***5
The final result