I am trying to figure out how to find if there are any spot colors in the CDR file using CQL
I am able to find Fountains by during thisActivePage.Shapes.FindShapes(Query:="@fill.type = 'fountain'")
But how do I write the query to see if there are any spot colors, pantones, cmyk, rgb, lab, etc.So tried this and it does not workActivePage.Shapes.FindShapes(Query:="@colors.find('cmyk')")Any ideas?
Thanks ,
Tom
Shelby, the document properties will show if there is a spot color used. Printing to the device independent PS driver to separations and print previewing will show exactly what page and object it is.
I understand the coding exercise but as a work flow I don't.
Shelby,
Were you able to figure out #1 and #2? Been trying to figure it out but have difficulties.
Any help would be appreciated.
Thanks,
I figured out #2 Node count.
ActivePage.Shapes.FindShapes(Query:="@com.curve.nodes.Count > 0")
Still trying to figure out #1 shapes within a Powerclip
Tom,
Here is a little example of how to find all shapes in powerclips:
Sub TestFindAllShapes() Dim s As Shape, sr As ShapeRange Set sr = FindAllShapes.Shapes.FindShapes(Type:=cdrBitmapShape) For Each s In sr.Shapes s.Bitmap.ConvertToBW cdrRenderLineArt Next s End Sub Function FindAllShapes() As ShapeRange Dim s As Shape Dim sr As ShapeRange Dim srAll As New ShapeRange, srPowerClipped As New ShapeRange If ActiveSelection.Shapes.count > 0 Then Set sr = ActiveSelection.Shapes.FindShapes() Else Set sr = ActivePage.Shapes.FindShapes() End If Do For Each s In sr.Shapes.FindShapes(Query:="!@com.powerclip.IsNull") srPowerClipped.AddRange s.PowerClip.Shapes.FindShapes() Next s srAll.AddRange sr sr.RemoveAll sr.AddRange srPowerClipped srPowerClipped.RemoveAll Loop Until sr.count = 0 Set FindAllShapes = srAll End Function
Hope that helps,
-Shelby
Anyway to do it without looping through the Powerclips/Shapes?
Also whenI run this on macro
ActivePage.Shapes.FindShapes(Query:="!@com.curve.IsNull")I get this error. From Doc Info: 70752 points, 2569 objects, 2567 Curves
If I run it on a smaller file it has no problem.( 59285 points, 706 Objects, 706 Curves)