HI Guys
Is it Possible to break apart a hatch fill so that the lines show in wire frame mode. Whenever I fill a shape with a hatch and switch to wire frame the lines do not show up.
is it possible?
Any Help Appreciated
Mark
Maybe export as EMF or CMX - and import again.
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
Hi,
after import
convert line caps to round
convert outlines to objects
intersect with original shape
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
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