Coreldraw vba Break Apart Hatch Fill

Hi Jeff

Thank you for this

I created a routine which temporarily exports the selection as an emf  to a file and then re import the file and swap the position with the original and then delete the original using the following code

    Set expflt = ActiveDocument.ExportEx(FileName, cdrEMF, cdrSelection, expopt)
    expflt.Finish

When I go to wire frame it does show the hatch but the lines are single width and are not showing the true width of the lines

Also the imported image is slightly smaller (96mm x 86mm instead of original which was 100mm x 90mm)  and the hatched is jagged with lines broken

I'm doing this so the design can be sent to a vinyl cutter and if I was to send this it would just cut slits and not the hatch

Is there any way of preserving the width of the lines before exporting it and having a truerepresentation of the original hatchfill?

i Would have thought Corel would have made a command that does this instead of resulting to saving a file

Many Thanks for your help

Mark

Hi Jeff

I Understand the thinking behind your solution but  I Cant Get it to work

So I do the import export as an EMF The new image is smaller than the original

I Apply the round caps which works as number 3 except its inside the original

I cannot then convert to object as it is already an object and the convert to object is greyed out in the object menu

I Then do an intersect and it creates a third image which is identical to after I did the import

Number 5 in your image is exactly what I am after. The only way I can do it currently is to convert the original image to a bitmap and then do a line-art trace removing the background but the quality isn't crisp

Really appreciate your help on this below is the wireframe from each stage I have achieved

Mark

Hi John

Ok Im Getting Closer The reason the Convert to Object was greyed out was because the lines were grouped.

I Un-grouped the selection and then applied the round caps and then applied a convert to Object and the below shows the result (Left Pic)

Problem now is that Intersect,Trim,Front minus back do not do anything. The only shaping command that does anything is Back Minus Front but as you will see below (Right pic) it does what I want but the lines are reversed ie they are the in between the lines and not the actual lines themselves

Below is the code I have managed so far

    Dim x2 As Double, y2 As Double
    Dim temp1 As ShapeRange
    Dim temp2 As ShapeRange
    Set temp1 = ActiveSelectionRange
    temp1.GetPositionEx cdrCenter, x2, y2
    sw = temp1.SizeWidth
    sh = temp1.SizeHeight
    Dim FileName As String
    FileName = "C:\Users\Public\Documents\BCP\Files\tempfile.emf"
    Dim expopt As StructExportOptions
    Set expopt = CreateStructExportOptions
    expopt.UseColorProfile = False
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportEx(FileName, cdrEMF, cdrSelection, expopt)
    expflt.Finish
    Dim impopt As StructImportOptions
    Set impopt = CreateStructImportOptions
    With impopt
        .MaintainLayers = True
        With .ColorConversionOptions
            .SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
            .TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Dot Gain 15%"
        End With
    End With
    Dim impflt As ImportFilter
    Set impflt = ActiveLayer.ImportEx(FileName, cdrEMF, impopt)
    impflt.Finish
    Set temp2 = ActiveSelectionRange
    temp2.SetPositionEx cdrCenter, x2, y2
    temp1.Delete
    temp2.UngroupAll
    temp2.SetOutlineProperties , , , , , , , cdrOutlineRoundLineCaps
    temp2.ConvertOutlineToObject

I have tried recording the steps to do a back minus front but it does not record and on looking up i dont think you can do a back minus front  in VBA

Any Ideas how to reverse the back minus front so that it does the lines?

BTW The selection is made up of 17 lines and 1 outline

Your help is greatly appreciated

Mark

hi,

After import;

1. weld the black lines
2. intersect that with main interior shape
3. delete everything except intersection result
4. set fill and outline parameters on intersection result

Hi John

Ok I Think we are there

So I did the import export as per the code above.I did what you said but it didnt work only produced a black background and the red lines

The problem  I Think was the red lines were separate and no grouped. So When I did a count there were 18 shapes in the selection 2 were the background and 16 were the lines

So I Did the following

1. I Broke apart the 2 backgrounds as they were combined.

2. I Deleted one of the backgrounds

3. I grouped all the red lines

4. I intersected the groupd lines from the background and it produced the below shape

Its not 100% accurate but I think its good enogh

ust now need to work out how to get this done in the right order in VBA now

Thanks for the assist

Mark

Mark,

I know it's been a while but I was wondering if you were still working on this and would be willing to share the code you've come up with.  I'm just wanting connecting hairlines to vector fill shapes.

Thanks

John.